blob: 931c0e462ea8740bab2e772aea83acd0b7eada14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(defun main int)
(InitWindow 800 800 "test")
(SetTargetFPS 40)
(let x:int 0)
(let y:int 0)
(for i:int 0 (= (WindowShouldClose) 0) 0)
(BeginDrawing)
(ClearBackground RAYWHITE)
(DrawText "test" x y 40 RED)
(EndDrawing)
(set x (+ x 5))
(set y (+ y 5))
(endfor)
(CloseWindow)
(endfun)
|
