dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added transforms example

Browse Source
This commit is contained in:
Devine Lu Linvega
2019-08-02 20:33:19 +09:00
parent 0f04ed8628
commit 95abe4b1dc
2 changed files with 24 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/basics/shapes.lisp
View File

@@ -1,5 +1,5 @@
; shapes
(clear) (clear)
; stroke rect
(stroke (stroke
(rect 0 0 300 300) "red") (rect 0 0 300 300) "red")
(stroke (stroke
@@ -19,7 +19,7 @@
(pos 300 300) (pos 300 300)
(pos 600 0) (pos 600 0)
(pos 600 300)) "red") (pos 600 300)) "red")
(move 0 300) (transform:move 0 300)
(fill (fill
(rect 0 0 300 300) "red") (rect 0 0 300 300) "red")
(fill (fill
@@ -39,4 +39,4 @@
(pos 300 300) (pos 300 300)
(pos 600 0) (pos 600 0)
(pos 600 300)) "red") (pos 600 300)) "red")
(resetTransform) (transform:reset)

21
examples/basics/transforms.lisp Normal file
View File

@@ -0,0 +1,21 @@
; transforms
(clear)
(def f
(frame))
(transform:move 150 150)
(fill
(circle 0 0 150) "#ffb545")
(transform:move 300 0)
(transform:rotate
(rad 90))
(fill
(circle 0 0 150) "white")
(transform:move 300 0)
(transform:rotate
(rad 90))
(fill
(circle 0 0 150) "#72dec2")
(transform:move 300 0)
(fill
(circle 0 0 150) "#555")
(transform:reset)