aesthetic.computer
Monorepo for Aesthetic.Computer
aesthetic.computer
1// Generated by kidlisp-to-pd.mjs
2// Do not edit - regenerate from source
3
4#include <stdio.h>
5#include <stdlib.h>
6#include "pd_api.h"
7#include "kidlisp.h"
8
9// Temp string buffer for number display
10static char temp_str[32];
11
12// Forward declarations
13static int update(void* userdata);
14
15// === Variables ===
16
17// === Main Loop ===
18static void kidlisp_main(void) {
19 kl_scroll(0, 0);
20 kl_blur(5);
21 kl_ink(KL_BLACK);
22 kl_line(kl_random(400), kl_random(240), kl_random(400), kl_random(240));
23 kl_line(kl_random(400), kl_random(240), kl_random(400), kl_random(240));
24 kl_line(kl_random(400), kl_random(240), kl_random(400), kl_random(240));
25}
26
27// Playdate event handler
28#ifdef _WINDLL
29__declspec(dllexport)
30#endif
31int eventHandler(PlaydateAPI* pd, PDSystemEvent event, uint32_t arg) {
32 (void)arg;
33
34 if (event == kEventInit) {
35 kl_init(pd);
36 pd->system->setUpdateCallback(update, pd);
37 }
38
39 return 0;
40}
41
42// Frame update
43static int update(void* userdata) {
44 (void)userdata;
45 kl_update();
46 kidlisp_main();
47 return 1;
48}