#tootcoding #commonLisp
(loop
:for cmd
:in (list '(com-set-cur1 grass)
'(com-l) '(com-j) '(com-push-cur1))
:do
(execute-frame-command *nic* cmd)
(sleep 1))
Discussion
Loading...
#tootcoding #commonLisp
(loop
:for cmd
:in (list '(com-set-cur1 grass)
'(com-l) '(com-j) '(com-push-cur1))
:do
(execute-frame-command *nic* cmd)
(sleep 1))
#tootcoding #commonLisp
(uiop:run-program "gimp")
;; I saved IMGS/SOIL.PNG and IMGS/GRASS.PNG .
(loop
:for cmd
:in (list '(com-set-cur1 imgs/grass.png)
'(com-swap)
'(com-set-cur1 grass)
'(com-set-bitmap))
:do
(execute-frame-command *nic* cmd)
(sleep 1))
(loop
:for cmd
:in (list '(com-set-cur1 imgs/soil.png)
'(com-swap)
'(com-set-cur1 soil)
'(com-set-bitmap))
:do
(execute-frame-command *nic* cmd)
(sleep 1))
3 media
#tootcoding #commonLisp
(loop
:for cmd
:in (list '(com-set-cur1 grass)
'(com-l) '(com-j) '(com-push-cur1)
'(com-h) '(com-push-cur1))
:do
(execute-frame-command *nic* cmd)
(sleep 1))
#tootcoding #commonLisp
(execute-frame-command *nic* '(writef garden))
EDIT:
On disk, GARDEN is now:
(SOIL) (SOIL) (SOIL) (SOIL) (SOIL)
(SOIL) (SOIL GRASS) (SOIL) (SOIL) (SOIL)
(SOIL) (SOIL) (SOIL) (SOIL GRASS) (SOIL GRASS)
(SOIL) (SOIL) (SOIL) (SOIL) (SOIL)