mmo-project/lisp/client/picolisp/demo/basic-window.l

12 lines
448 B
Plaintext
Raw Permalink Normal View History

2023-11-18 18:06:43 -05:00
(de raylib @ (pass native "libraylib.dylib"))
(raylib "InitWindow" NIL 800 450 "raylib [core] example - basic window")
(raylib "SetTargetFPS" NIL 60)
(until (= 1 (raylib "WindowShouldClose" 'I))
(raylib "BeginDrawing")
(raylib "ClearBackground" NIL (hex "FFF5F5F5"))
(raylib "DrawText" NIL "Congrats! You created your first window!" 190 200 20 (hex "ffc8c8c8"))
(raylib "EndDrawing") )
(raylib "CloseWindow")
(bye)