Journals30
Newest
Lets have some fun.
1 min read
Xo
Join the community to add your comment. Already a deviant? Log In
That was fun
1 min read
Now, can something happen?
Join the community to add your comment. Already a deviant? Log In
Everyday
1 min read
I must be strong here in my life
I must be something to keep me strife
I will not break
I will not bent
This is not for me
The end
.
I must be something to keep me strife
I will not break
I will not bent
This is not for me
The end
.
Join the community to add your comment. Already a deviant? Log In
gnu Common Lisp (gcl) graphics
8 min read
GCL (GNU Common Lisp) 2.6.12 CLtL1 Fri Apr 22 15:51:11 UTC 2016
Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
Binary License: GPL due to GPL'ed components: (XGCL READLINE UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Temporary directory for compiler files:
/tmp/
> (in-package "TK")
(tkconnect)
(button '.hello :text "Hello World" :command '(print "hi"))
#<"TK" package>
TK>;; Loading "/usr/lib/gcl-2.6.12/gcl-tk/tkl.o"
start address -T 0xe65e50 ;; Finished loading "/usr/lib/gcl-2.6.12/gcl-tk/tkl.o"
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5016 19792 :0.0 "
""
T
TK>
.HELLO
TK>(pack '.hello)
""
T
TK>(pack '.hello)
"hi"
"hi"
Error: Bad tk message
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by SYSTEM::GCL-TOP-LEVEL.
Bad tk message
Broken at SYSTEM::GCL-TOP-LEVEL. Type :H for Help.
1 Return to top level.
TK>>
(tkconnect)
(button '.hello :text "Hello World" :command '(print "hi"))
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5048 19792 :0.0 "
""
T
TK>>
.HELLO
TK>>(pack '.hello)
""
T
TK>>
"hi"
"hi"
"hi"
"hi"
"hi"
1
Top level.
TK>(toplevel '.root)
Error: Bad tk message
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by TOPLEVEL.
Bad tk message
Broken at TOPLEVEL. Type :H for Help.
1 Return to top level.
TK>>(widget '.root)
Error: UNDEFINED-FUNCTION :NAME WIDGET
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by TOPLEVEL.
UNDEFINED-FUNCTION :NAME WIDGET
Broken at TOPLEVEL.
1 (abort) Return to debug level 1.
2 Return to top level.
TK>>>2
Top level.
TK>(tkconnect)
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5080 19792 :0.0 "
""
T
TK>(canvas '.canvas :width 800 :height 600)
.CANVAS
TK>(pack '.canvas)
""
T
TK>(.cavas :borderWidth 10)
Error: UNDEFINED-FUNCTION :NAME .CAVAS
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNDEFINED-FUNCTION :NAME .CAVAS
Broken at EVAL. Type :H for Help.
1 Return to top level.
TK>>('.canvas :addtag 'x)
Error: TYPE-ERROR
ATUM (QUOTE .CANVAS) :EXPECTED-TYPE FUNCTION
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
TYPE-ERRORATUM (QUOTE .CANVAS) :EXPECTED-TYPE FUNCTION
Broken at EVAL.
1 (abort) Return to debug level 1.
2 Return to top level.
TK>>>(.canvas :addtag 'x)
TK>>>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS.
1 (abort) Return to debug level 2.
2 Return to debug level 1.
3 Return to top level.
TK>>>>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS.
1 (abort) Return to debug level 3.
2 Return to debug level 2.
3 Return to debug level 1.
4 Return to top level.
TK>>>>>4
Top level.
TK>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS. Type :H for Help.
1 Return to top level.
TK>>1
Top level.
TK>(.canvas :create 'arc 0 0 100 100)
TK>(.canvas :create 'arc 0 0 100 100 :fill :red)
TK>(.canvas :create 'arc 0 0 100 100 :fill "red")
TK>(.canvas :create 'arc 100 100 200 200 :fill "red")
TK>(.canvas :create 'arc 300 300 200 200 :fill "red")
TK>(.canvas :create 'arc 300 300 400 400 :fill "red")
TK>(.canvas :create 'line 100 100 500 500 :stroke "red")
TK>(.canvas :create 'line 100 100 500 500 :fill "red")
TK>(.canvas :create 'line 100 100 500 500 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 200 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :arrow :both))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t :arrow :both))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 3))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 3))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t :width 1))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 1))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 1))
NIL
TK>
Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
Binary License: GPL due to GPL'ed components: (XGCL READLINE UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter
Use (help) to get some basic information on how to use GCL.
Temporary directory for compiler files:
/tmp/
> (in-package "TK")
(tkconnect)
(button '.hello :text "Hello World" :command '(print "hi"))
#<"TK" package>
TK>;; Loading "/usr/lib/gcl-2.6.12/gcl-tk/tkl.o"
start address -T 0xe65e50 ;; Finished loading "/usr/lib/gcl-2.6.12/gcl-tk/tkl.o"
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5016 19792 :0.0 "
""
T
TK>
.HELLO
TK>(pack '.hello)
""
T
TK>(pack '.hello)
"hi"
"hi"
Error: Bad tk message
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by SYSTEM::GCL-TOP-LEVEL.
Bad tk message
Broken at SYSTEM::GCL-TOP-LEVEL. Type :H for Help.
1 Return to top level.
TK>>
(tkconnect)
(button '.hello :text "Hello World" :command '(print "hi"))
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5048 19792 :0.0 "
""
T
TK>>
.HELLO
TK>>(pack '.hello)
""
T
TK>>
"hi"
"hi"
"hi"
"hi"
"hi"
1
Top level.
TK>(toplevel '.root)
Error: Bad tk message
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by TOPLEVEL.
Bad tk message
Broken at TOPLEVEL. Type :H for Help.
1 Return to top level.
TK>>(widget '.root)
Error: UNDEFINED-FUNCTION :NAME WIDGET
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by TOPLEVEL.
UNDEFINED-FUNCTION :NAME WIDGET
Broken at TOPLEVEL.
1 (abort) Return to debug level 1.
2 Return to top level.
TK>>>2
Top level.
TK>(tkconnect)
"/usr/lib/gcl-2.6.12/gcl-tk/gcltksrv 127.0.0.1 5080 19792 :0.0 "
""
T
TK>(canvas '.canvas :width 800 :height 600)
.CANVAS
TK>(pack '.canvas)
""
T
TK>(.cavas :borderWidth 10)
Error: UNDEFINED-FUNCTION :NAME .CAVAS
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNDEFINED-FUNCTION :NAME .CAVAS
Broken at EVAL. Type :H for Help.
1 Return to top level.
TK>>('.canvas :addtag 'x)
Error: TYPE-ERROR
ATUM (QUOTE .CANVAS) :EXPECTED-TYPE FUNCTIONFast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
TYPE-ERROR
ATUM (QUOTE .CANVAS) :EXPECTED-TYPE FUNCTIONBroken at EVAL.
1 (abort) Return to debug level 1.
2 Return to top level.
TK>>>(.canvas :addtag 'x)
TK>>>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS.
1 (abort) Return to debug level 2.
2 Return to debug level 1.
3 Return to top level.
TK>>>>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS.
1 (abort) Return to debug level 3.
2 Return to debug level 2.
3 Return to debug level 1.
4 Return to top level.
TK>>>>>4
Top level.
TK>(.canvas :create arc 0 0 100 100)
Error: UNBOUND-VARIABLE :NAME ARC
Fast links are on: do (si::use-fast-links nil) for debugging
Signalled by EVAL.
UNBOUND-VARIABLE :NAME ARC
Broken at .CANVAS. Type :H for Help.
1 Return to top level.
TK>>1
Top level.
TK>(.canvas :create 'arc 0 0 100 100)
TK>(.canvas :create 'arc 0 0 100 100 :fill :red)
TK>(.canvas :create 'arc 0 0 100 100 :fill "red")
TK>(.canvas :create 'arc 100 100 200 200 :fill "red")
TK>(.canvas :create 'arc 300 300 200 200 :fill "red")
TK>(.canvas :create 'arc 300 300 400 400 :fill "red")
TK>(.canvas :create 'line 100 100 500 500 :stroke "red")
TK>(.canvas :create 'line 100 100 500 500 :fill "red")
TK>(.canvas :create 'line 100 100 500 500 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 200 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(.canvas :create 'line 100 100 500 500 200 0 (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t)
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :arrow :both))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t :arrow :both))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "grey" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 8))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 3))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 3))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t :width 2))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "white" :smooth t :width 1))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "red" :smooth t :width 1))
NIL
TK>(dotimes (i 10) (.canvas :create 'line (random 800) (random 600) 500 500 (random 800) (random 600) (random 800 ) (random 600) (random 800 ) (random 600) :fill "black" :smooth t :width 1))
NIL
TK>
Join the community to add your comment. Already a deviant? Log In
Bug Report
1 min read
Join the community to add your comment. Already a deviant? Log In