aesthetic.computer
Monorepo for Aesthetic.Computer
aesthetic.computer
1; hello.lisp - KidLisp Hello World for Playdate
2; Bouncing text animation using Playdate's 1-bit display
3
4(def x 100)
5(def y 100)
6(def dx 2)
7(def dy 1)
8
9; Main loop (called each frame)
10(wipe white)
11(ink black)
12
13; Draw the message
14(write "aesthetic.computer" x y)
15
16; Draw a small circle that follows crank
17(def crank-angle (crank))
18(circle (+ 200 (* 50 (cos crank-angle)))
19 (+ 120 (* 50 (sin crank-angle)))
20 10 "fill")
21
22; Bounce off edges
23(if (> x 300) (def dx -2))
24(if (< x 0) (def dx 2))
25(if (> y 220) (def dy -1))
26(if (< y 0) (def dy 1))
27
28(def x (+ x dx))
29(def y (+ y dy))