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

Changed the line syntax to (line x1 y1 x2 y2)

Browse Source
This commit is contained in:
Devine Lu Linvega
2019-07-24 20:29:03 +09:00
parent 33574979cd
commit 1c7b74d582
13 changed files with 71 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/projects/drawing.lisp
View File

@@ -16,7 +16,7 @@
(of e :is-down)
(
(stroke
(line prev-pos e) 2 "white")
(line (of prev-pos :x) (of prev-pos :y) (of e :x) (of e :y)) 2 "white")
(set prev-pos :x
(of e :x) :y
(of e :y))))))