Post
#tootcoding #NicCLIM ( #gamedev #devlog ) #programming #fedi #McCLIM #commonLisp
In this article I am further investigating collaborative fediversal learning and programming.
(ql:quickload :mcclim)
(compile-file #P"~/Downloads/nicclim.lisp" :load t)
(in-package :nic)
(require 'bordeaux-threads)
(require 'uiop)
(uiop:chdir "~/GAME/") ; you do you.
(rect-file 'garden 5 5 '(soil))
(bt:make-thread
(lambda ()
(in-package :nic)
(enclose-map 'garden)))
#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))
#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)
A space for Bonfire maintainers and contributors to communicate
