#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))
Discussion
Loading...
Post
#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))
Some brown squiggles 32x32 pixels denoting SOIL
Some green squiggles 32x32 pixels denoting grass.
The map symbol SOIL has changed to some brown squiggles in the hextille grid, and there is one green GRASS squiggle overlaid at position 1-1 (in the fourth quadrant as normal)
#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)
bonfire.cafe
A space for Bonfire maintainers and contributors to communicate
Automatic federation enabled