Renamed run -> include

This commit is contained in:
Devine Lu Linvega
2019-07-18 10:57:49 +09:00
parent 557750c3f8
commit c71cd4a6de
5 changed files with 21 additions and 22 deletions

4
examples/include.lisp Normal file
View File

@@ -0,0 +1,4 @@
; include
(
(include "../examples/recursive.lisp")
(echo line-color))

View File

@@ -1,17 +1,16 @@
; recursive
(
(clear)
(def line-color "red")
(clear)
(defn rec
(v)
(if (gt v 0)
((stroke (circle
(mul 5 v)
(mul 5 v)
(mul 5 v)) 1 line-color)
(rec (sub v 5))))
)
(rec 100)
)
(v)
(if
(gt v 0)
(
(stroke
(circle
(mul 5 v)
(mul 5 v)
(mul 5 v)) 1 "red")
(rec
(sub v 5)))))
(rec 100))

View File

@@ -1,4 +0,0 @@
(
(include "../examples/recursive.lisp")
(echo line-color)
)