Skip to content

Instantly share code, notes, and snippets.

@davexunit

davexunit/picture-language-wip.scm Secret

Last active October 14, 2020 21:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save davexunit/47a7c64e602316264931deae390b5765 to your computer and use it in GitHub Desktop.
Save davexunit/47a7c64e602316264931deae390b5765 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
picture-language-wip.scm
(define center (vec2 320.0 240.0))
(superimpose
(with-style ((stroke-color white))
(with-style ((fill-color tango-light-plum)
(stroke-width 5.0))
(fill-and-stroke
(rounded-rectangle (vec2 40.0 40.0) 560.0 400.0 #:radius 20.0)))
(with-style ((stroke-width 10.0))
(stroke
(circle center 60.0)
(path
(arc center 360.0 360.0 pi (+ 2pi (/ pi 4.0)))
(line-to center))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment