統失学校でプログラミング学んできた

最終更新 2025/07/22 20:37

優しい名無しさん

9rxhB

Drawlispで動くArt Action用ステージ
let :stroke-color #00000000
(create-window 400 400)
let draw-cool-box (lambda (x y x1 y1)
(rect x y x1 y1)
)
for-each (range 32)(lambda i
(let :fill-color #C8FAC8FF)
(draw-cool-box (rand-int 356) (rand-int 256) 100 100)
)
for-each (range 16)(lambda i
(let :fill-color #000000FF)
(draw-cool-box (+ (rand-int 360) 20) (rand-int 360) 20 20)
)
for-each (range 8)(lambda i
(let :fill-color #000000FF)
(draw-cool-box (rand-int 256) (+ (rand-int 256) 300) 200 200)
(draw-cool-box (+ (rand-int 206) 30) (+ (rand-int 366) 0) 200 20)
(let :fill-color #646464)
(draw-cool-box (+ (rand-int 156) 100) (+ (rand-int 366) 0) 10 10)
)
(let :fill-color #3F48CCFF)
(rect 0 (rand-int 125) 20 20)
(let :fill-color #963232)
(rect 380 (+ (rand-int 125) 160) 20 20)
(draw)

2025/07/22 20:34:17