Skip to content

Instantly share code, notes, and snippets.

@titouanc

titouanc/screen.scm

Created November 22, 2014 17:06
Show Gist options
  • Save titouanc/673c596a68a2bf015391 to your computer and use it in GitHub Desktop.
Save titouanc/673c596a68a2bf015391 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
screen.scm
(load "lib")
(define (mainloop)
(fill-rectangle! 0 0 64 64 #xf33)
(fill-rectangle! 0 64 64 64 #x33f)
(fill-rectangle! 64 0 64 64 #x33f)
(fill-rectangle! 64 64 64 64 #xf33)
(mainloop))
(mainloop)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment