Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setq screenWidth 800 screenHeight 450)
- (native "libraylib.so" "InitWindow" NIL screenWidth screenHeight "raylib [core] example - basic window")
- (native "libraylib.so" "SetTargetFPS" NIL 60)
- (while (=0 (native "libraylib.so" "WindowShouldClose" 'B))
- (native "libraylib.so" "BeginDrawing")
- (native "libraylib.so" "ClearBackground" NIL '(NIL (4 (B . 4)) 245 245 245 255) )
- (native "libraylib.so" "DrawText" NIL "Congrats! You created your first window!" 190 200 20 '(V (4 (B . 4)) 200 200 200 255) )
- (native "libraylib.so" "EndDrawing") )
- (native "libraylib.so" "CloseWindow")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement