Art
i made two solo projects it was so fun to code theme , i love the "digital starry night" even though it had alot of codes but it was chalenging ,I love the "flower" drawing too becuase it had to smilar sides
digital starry night
(defn draw [scale shape]
(js/browserdraw
(into-array (flatten shape))
scale))
(defn make-arc [deg]
(repeat deg [:fwd 2 :right 2]))
(defn make-arc2 [deg]
(repeat deg [:fwd 3 :right 2]))
(defn make-arc3 [deg]
(repeat deg [:fwd 3 :left 2]))
(defn make-arc4 [deg]
(repeat deg [:fwd 2 :left 2]))
(defn make-arc5 [deg]
(repeat deg [:fwd 1 :left 1]))
(defn make-arc6 [deg]
(repeat deg [:fwd 1 :right 2]))
(defn make-arc7 [deg]
(repeat deg [:fwd 2 :right 1]))
(defn make-arc8 [deg]
(repeat deg [:fwd 2 :left 1]))
(defn make-arc9 [deg]
(repeat deg [:fwd 1 :right 1]))
(defn make-arc10 [deg]
(repeat deg [:fwd 1 :left 2]))
(defn make-arc11 [deg]
(repeat deg [:fwd 1 :left 4 ]))
(defn make-arc12 [deg]
(repeat deg [:fwd 1 :left 3 ]))
(defn make-arc13 [deg]
(repeat deg [:fwd 15 :right 1 ]))
(defn make-arc14 [deg]
(repeat deg [:fwd 15 :left 3 ]))
(defn make-arc15 [deg]
(repeat deg [:fwd 10 :right 1]))
(defn make-arc16 [deg]
(repeat deg [:fwd 7 :right 1]))
(defn make-arc17 [deg]
(repeat deg [:fwd 7 :right 3]))
(defn make-arc18 [deg]
(repeat deg [:fwd 7 :left 1]))
(defn make-arc19 [deg]
(repeat deg [:fwd 15 :right 3 ]))
(defn make-arc20 [deg]
(repeat deg [:fwd 15 :right 2 ]))
(defn make-arc21 [deg]
(repeat deg [:fwd 16 :right 2 ]))
(defn make-arc22 [deg]
(repeat deg [:fwd 16 :left 2 ]))
(defn make-arc23 [deg]
(repeat deg [:fwd 5 :left 2 ]))
(defn make-arc24 [deg]
(repeat deg [:fwd 5 :right 2 ]))
(defn make-arc25 [deg]
(repeat deg [:fwd 5 :right 3 ]))
(defn make-arc26 [deg]
(repeat deg [:fwd 4 :left 3 ]))
(defn make-arc27 [deg]
(repeat deg [:fwd 17 :right 1 ]))
(defn run1 []
(draw 0.25
(concat [ :color "yellow" ]
; the moon
(make-arc2 360 ) [:right 90 :pen :up
[:color "#f5af47"]
:fwd 35 :pen :down :left 90
(make-arc 70 ) [:left 182]]
(make-arc4 140 ) [:left 140 ] ( make-arc 30 )
[:right 8 ] ( make-arc 10) [:right 15] (make-arc 10)
[:right 8 ] (make-arc 10 ) [:right 8] (make-arc 10 )
[:right 8 ] (make-arc 14)
;the 1st star
[ :color "white"]
[:right 67 :pen :up :fwd 50 :right 90 :fwd 300 :pen :down
(make-arc10 360 ) ]
[ :color "yellow"]
[:pen :up :fwd 15 :left 90
:fwd 27 :pen :down ] (make-arc11 360)
; the 2nd star
[:pen :up :right 180 :fwd 140 :left 90 :fwd 150
:pen :down [:color "white"] (make-arc10 360 )]
[ :color "yellow"]
[:pen :up :fwd 15 :left 90
:fwd 27 :pen :down ] (make-arc11 360)
;the 3rd star
[:color "white"]
[:pen :up :right 90 :fwd 250 :right 90 :fwd 60
:left 90 :fwd 10 :pen :down ]
(make-arc10 360)
[:color "yellow"]
[ :pen :up :left 90 :fwd 15 :right 90
:pen :down ( make-arc11 360 )]
;the 4th star
[:color "white" ]
[ :pen :up :fwd 100 :pen :down (make-arc9 360)
:pen :up
[:color "yellow"]
:right 110 :fwd 50 :pen :down
(make-arc12 360)]
;the 5th star
[:pen :up :fwd 50 :left 110 :fwd 210 :left 90
:fwd 120 :pen :down
[:color "white"]
(make-arc10 360)
[:color "yellow"]
:pen :up :fwd 15 :left 90 :fwd 27 :pen :down
(make-arc11 360)]
;the 6th star
[:pen :up :left 90 :fwd 120 :left 90 :fwd 50
:pen :down :color "white" ]
(make-arc10 360) [ :pen :up :left 90 :fwd 15
:right 90 :pen :down :color "yellow"
(make-arc11 360)]
[ :pen :up :fwd 150 :left 90
:color "white"
:fwd 130 :pen :down
(make-arc9 360) :pen :up
:right 90 :fwd 40 :right 90
:pen :down
:color "yellow"
(make-arc12 360) ]
; the frame
[:color "blue" :pen :up
:fwd 225 :left 90
:pen :down
:fwd 200 :left 90
:fwd 1000 :left 90
:fwd 1550 :left 90
:fwd 1000 :left 90
:fwd 1550]
; the wind thing
[ :left 90 :fwd 300
:left 55
[:color "#4281ed"]
(make-arc22 30 )
[:fwd 70 ]
(make-arc13 15)
(make-arc21 14)
(make-arc19 15)
(make-arc6 13)
(make-arc17 13)
(make-arc 40)
(make-arc6 20)
(make-arc8 45)
(make-arc22 30)
(make-arc13 36)
]
; the wind thing 2
[:color "#4281ed"]
[:left 180
:pen :up
:fwd 780 :left 90 :fwd 100 :pen :down (make-arc7 80) :right 10]
(make-arc7 60 ) (make-arc23 50) (make-arc24 80)
(make-arc25 60 ) [ :right 45 :fwd 10 :right 100
(make-arc3 30 )(make-arc10 20)(make-arc4 9) (make-arc10 20) (make-arc4 31) (make-arc3 30) (make-arc10 7) (make-arc23 8) (make-arc19 30 )(make-arc25 22)]
; black
[ :pen :up :left 100 :left 90 :fwd 488 :right 80 :fwd 500 :pen :down
[:color "black"]
:right 90 :fwd 100
(make-arc21 15) (make-arc23 20) (make-arc22 5) (make-arc24 20 )
:left 218 (make-arc22 10 ) :left 160
(make-arc16 30) ( make-arc23 15 ) (make-arc24 20)
:fwd 30 :right 160 :fwd 30
(make-arc23 15) (make-arc24 20 ) (make-arc26 5)
(make-arc22 5) (make-arc21 7) :left 170 (make-arc18 18 )
:right 180 :fwd 5 (make-arc22 10 ) (make-arc13 10)
:left 150 :fwd 10 (make-arc8 20)(make-arc22 7 )
:right 150 :fwd 10 (make-arc17 10) :fwd 20
(make-arc13 15 ) (make-arc18 22)
]
))
(println "Done!"))
flower
(defn flower-make-arc [deg]
(repeat deg [:fwd 1 :right 1]))
(defn flower-make-arc2 [deg]
(repeat deg [:fwd 4 :right 2]))
(defn flower-make-arc3 [deg]
(repeat deg [:fwd 4 :left 2]))
(defn flower-make-arc4 [deg]
(repeat deg [:fwd 1 :left 1]))
(defn run2 []
(draw 0.5
(concat [:color "#4287f5"]
(repeat 4
(concat
(flower-make-arc 360)
[:left 90]))
[:color "#fce008"]
[:pen :up :fwd 115]
[:pen :down :right 90 :fwd 115
:right 90 :fwd 230
:right 90 :fwd 230
:right 90 :fwd 230
:right 90 :fwd 115 ]
[:left 90 ]
[:color "#32a852"]
(flower-make-arc2 45 )
[:fwd 80 :right 90
:fwd 120 ]
(flower-make-arc2 36)
[:color "#32a852"]
[ :pen :up :right 17 :fwd 230
:pen :down ] (flower-make-arc3 45 )
[ :fwd 80 :left 90
:fwd 120 ]
(flower-make-arc3 36)
[ :right 72 :fwd 10
:right 90 ]
(flower-make-arc 50) (flower-make-arc4 50) (flower-make-arc 50)
[:left 90 :fwd 10
:left 90 ]
(flower-make-arc4 50) (flower-make-arc 50) (flower-make-arc4 50)
[:fwd 10 ]
[:pen :up :fwd 230 :left 90
:fwd 35 :pen :down :right 90 :fwd 10 ]
(flower-make-arc 50) (flower-make-arc4 50) (flower-make-arc 50)
[:left 90 :fwd 10 :left 90 ]
(flower-make-arc4 50) (flower-make-arc 50) (flower-make-arc4 50)
;; (move & do the left side curves )
[:color "#32a852"]
[:fwd 20] [:pen :up :fwd 115
:right 90 :fwd 90 :right 90
:fwd 20 :left 90 :pen :down
:fwd 20 ]
(flower-make-arc4 50) (flower-make-arc 50) (flower-make-arc4 50)
[:right 90 :fwd 10 :right 90 ]
(flower-make-arc 50) (flower-make-arc4 50) (flower-make-arc 50)
[:fwd 30 ]
;; (mave & do the right side curve )
[:color "#32a852"]
[:pen :up :fwd 230 :right 90
:fwd 45 :left 90 :pen :down :fwd 20 ]
(flower-make-arc4 50) (flower-make-arc 50) (flower-make-arc4 50)
[:right 90 :fwd 10 :right 90 ]
(flower-make-arc 50) (flower-make-arc4 50) (flower-make-arc 50)
[:fwd 30 ]
;; ___________ (the lines on the 2 leafs )
[:color "#32a852"]
[:right 90 :pen :up :fwd 140
:right 35 :pen :down :fwd 140 ]
[ :pen :up :right 187 :fwd 464
:pen :down :right 14 :fwd 140 ]
;; [:pen :up :fwd 70 :left 90 :fwd 90 :fwd 70 ]
;; [:pen :down ] (flower-make-arc 360 )
;; (flower-make-arc4 )
;; [:fwd 50 :right 90 :fwd 50 ]
; :fwd 130 ( flower-make-arc2 23)]
;; [:fwd 60 :right 90
;; :fwd 120 ( flower-make-arc2 24)]
;; [ :fwd 230 ]
;; (flower-make-arc3 30)
;; [ :fwd 50 :left 90
;; :fwd 130 ]
;; (flower-make-arc2 30 )
))
;; [ :pen :up :fwd 230
;; :pen :down :fwd 100 ]
(println "Done!"))