Something went wrong. Try again.
Monorepo for Aesthetic.Computer aesthetic.computer
Something went wrong. Try again.
591 B · 29 lines
123456789101112131415161718192021222324252627282930; hello.lisp - KidLisp Hello World for Playdate; Bouncing text animation using Playdate's 1-bit display
(def x 100)(def y 100)(def dx 2)(def dy 1)
; Main loop (called each frame)(wipe white)(ink black)
; Draw the message(write "aesthetic.computer" x y)
; Draw a small circle that follows crank(def crank-angle (crank))(circle (+ 200 (* 50 (cos crank-angle))) (+ 120 (* 50 (sin crank-angle))) 10 "fill")
; Bounce off edges(if (> x 300) (def dx -2))(if (< x 0) (def dx 2))(if (> y 220) (def dy -1))(if (< y 0) (def dy 1))
(def x (+ x dx))(def y (+ y dy))