Skip to content

Instantly share code, notes, and snippets.

@nullscm

nullscm/core_input_keys.lisp

Last active December 25, 2023 10:52
Show Gist options
  • Save nullscm/29021228c22fc7f71043b3923b54c201 to your computer and use it in GitHub Desktop.
Save nullscm/29021228c22fc7f71043b3923b54c201 to your computer and use it in GitHub Desktop.
Download ZIP
generate-raylib.lisp & samples/core_input_keys.lisp - Vector2 Error?
Raw
core_input_keys.lisp
#!/usr/bin/env ol
; temporarily use raylib without installation
(define *path* (cons ".." *path*))
;; Initialization
(import (lib raylib))
(define screenWidth 800)
(define screenHeight 450)
(InitWindow screenWidth screenHeight "raylib [core] example - keyboard input")
(SetTargetFPS 60)
;; Main game loop
(let loop ((close (WindowShouldClose))
(ballPosition (cons (/ screenWidth 2.1) (/ screenHeight 2.1))))
(unless close
;; Update
(let*((x (car ballPosition))
(y (cdr ballPosition))
(x (if (IsKeyDown KEY_RIGHT) (+ x 2) x))
(x (if (IsKeyDown KEY_LEFT) (- x 2) x))
(y (if (IsKeyDown KEY_UP) (- y 2) y))
(y (if (IsKeyDown KEY_DOWN) (+ y 2) y)) )
;; Draw
(BeginDrawing)
(ClearBackground RAYWHITE)
(DrawText "move the ball with arrow keys" 10 10 20 DARKGRAY)
(DrawCircleV (list x y) 50 MAROON)
(EndDrawing)
(loop (WindowShouldClose) (cons x y)))))
;; De-Initialization
(CloseWindow) ; Close window and OpenGL context
Raw
generate-raylib.lisp
(import (file xml)(scheme file))
;; filter numbers from string
(define (digit? x) (<= #\0 x #\9))
(define (number-filter lst) (cond ((null? lst) lst) ((or (eq? #\space (car lst)) (digit? (car lst))) (cons (car lst) (number-filter (cdr lst)))) (else (number-filter (cdr lst)))))
(define filter-numbers (lambda (lst) (list->string (number-filter (string->list lst)))))
;; check if string contains substring
(define (string-contains s t) (let* ((len (string-length s)) (max (- (string-length t) len))) (let loop ((i 0)) (cond ((> i max) #f) ((string=? s (substring t i (+ i len))) i) (else (loop (+ i 1)))))))
;; split string by #\space
(define (tokenize l) (let loop ((t '()) (l l)) (if (pair? l) (let ((c (car l))) (if (char=? c #\space) (cons (reverse t) (loop '() (cdr l))) (loop (cons (car l) t) (cdr l)))) (if (null? t) '() (list (reverse t))))))
(define (string-split s) (map list->string (tokenize (string->list s))))
;; download raylib_api.xml
(if (not (file-exists? "raylib_api.xml")) (syscall 1017 (c-string "wget https://raw.githubusercontent.com/raysan5/raylib/master/parser/output/raylib_api.xml") #f #f))
;; load raylib_api.xml
(define xml (xml-get-root-element (xml-parse-file "raylib_api.xml")))
(define enums (xml-get-subtags xml 'Enums))
(define enums (xml-get-subtags (ref enums 1) 'Enum))
(define structs (xml-get-subtags xml 'Structs))
(define structs (xml-get-subtags (ref structs 1) 'Struct))
(define defines (xml-get-subtags xml 'Defines))
(define defines (xml-get-subtags (ref defines 1) 'Define))
(define aliases (xml-get-subtags xml 'Aliases))
(define aliases (xml-get-subtags (ref aliases 1) 'Alias))
(define funcs (xml-get-subtags xml 'Functions))
(define funcs (xml-get-subtags (ref funcs 1) 'Function))
(define %convert-to-fft-enum (append (map (lambda (struct) (xml-get-attribute struct 'name "")) structs) '()))
(define (convert port type)
(if (string-contains "float" type) (display " fft-float" port ))
(if (string-contains "int" type) (display " fft-int" port ))
(if (string-contains "bool" type) (display " fft-bool" port ))
(if (string-contains "void" type) (display " fft-void" port ))
(if (string-contains "short" type) (display " fft-short" port))
(if (string-contains "rAudioBuffer" type) (display " fft-any" port))
(if (string-contains "rAudioProcessor" type) (display " fft-any" port))
(if (string-contains "long" type) (display " fft-long" port))
(if (string-contains "double" type) (display " fft-double" port))
(if (string-contains "char" type) (display " type-string" port))
(if (string-contains "Quaternion" type) (display " Vector4" port))
(if (equal? "Texture2D" type) (display " Texture" port))
(if (string-contains "TextureCubemap" type) (display " Texture" port))
(if (string-contains "RenderTexture2D" type) (display " RenderTexture" port) )
(if (pair? (cdr (string-split type))) (if (member (car (cdr (string-split type))) %convert-to-fft-enum) (display (string-append " " (car (cdr (string-split type)))) port) ))
(if (member (car (string-split type)) %convert-to-fft-enum) (display (string-append " " (car (string-split type))) port) )
(if (string-contains "*" type) (and (not (member (car (string-split type)) %convert-to-fft-enum)) (display "" port)))
(if (string-contains "void *" type) (and (not (member (car (string-split type)) %convert-to-fft-enum)) (display "*" port)))
(if (string-contains "double *" type) (and (not (member (car (string-split type)) %convert-to-fft-enum)) (display "*" port)))
(if (string-contains "float *" type) (and (not (member (car (string-split type)) %convert-to-fft-enum)) (display "*" port)))
(if (string-contains "int *" type) (and (not (member (car (string-split type)) %convert-to-fft-enum)) (display "*" port)))
)
(define (display-types-to port lst)
(for-each
(lambda (param)
(let* ((t (assoc 'type (ff->alist (ref param 2))))
(type (if (pair? t) (cdr t) t)))
(convert port type)
))
(car (cddr (vector->list lst)))))
;;;; Generate lib/raylib.scm file
;; create ./lib directory
(if (not (file-exists? "lib")) (syscall 1017 (c-string "mkdir lib") #f #f))
(define port (open-output-file "lib/raylib.scm"))
;; Define Library
(print-to port "(define-library (lib raylib) (import (otus lisp) (otus ffi)) (export ")
;; Colornames
(for-each
(lambda (define)
(if (equal? "COLOR" (xml-get-attribute define 'type #f)) (print-to port (xml-get-attribute define 'name #f))))
defines)
;; Enums
(for-each (lambda (enum)
(for-each (lambda (value)
(print-to port (xml-get-attribute value 'name "")))
(xml-get-subtags enum 'Value)))
enums)
;;Structs
(for-each (lambda (struct) (print-to port (xml-get-attribute struct 'name ""))) structs)
(print-to port "rgba->hex")
;; Functionnames
(for-each (lambda (func) (print-to port (xml-get-attribute func 'name ""))) funcs)
(print-to port ")(cond-expand (Linux (begin (define raylib (load-dynamic-library \"libraylib.so\")) (define raylib-err \"Use, for example, sudo apt install libraylib.so\"))) (else (runtime-error \"unsupported platform\" (uname)))) (begin (if (not raylib) (runtime-error \"Can't load raylib library.\" raylib-err))")
;; Common Pointers
(print-to port "(define fft-float* (fft* fft-float))")
(print-to port "(define fft-void* (fft* fft-void))")
(print-to port "(define fft-int* (fft* fft-int))")
;;(print-to port "(define fft-enum* (fft* fft-enum))")
;;(print-to port "(define type-string* (fft* type-string))")
(print-to port "(define fft-double* (fft* fft-double))")
;;(print-to port "(define fft-long* (fft* fft-long))")
;;(print-to port "(define fft-short* (fft* fft-short))")
;; rgba->hex
(print-to port "(define (rgba->hex r g b a) (+ (<< a 24) (<< b 16) (<< g 8) r))")
;; Structs
(print-to port) (print-to port ";;;; Structs")
(for-each (lambda (x) (let ((name (xml-get-attribute x 'name #f))
(retType (xml-get-attribute x 'retType #t)))
(print-to port ";; " (xml-get-attribute x 'desc #f))
(display-to port (string-append "(define " name " (list "))
(display-types-to port x) (print-to port "))")))
structs)
;; Aliases
;;(for-each (lambda (x) (let ((name (xml-get-attribute x 'name #t))
;; (type (xml-get-attribute x 'type #t)))
;; (print-to port ";; " (xml-get-attribute x 'desc #f))
;; (display-to port (string-append "(define " type " " name ")"))))
;; aliases)
;; Functions
(print-to port) (print-to port ";;;; Functions")
(for-each (lambda (x) (let ((name (xml-get-attribute x 'name #f))
(retType (xml-get-attribute x 'retType #t)))
(print-to port ";; " (xml-get-attribute x 'desc #f))
(display-to port (string-append "(define " name " (raylib "))
(convert port retType)
(display-to port (string-append " \"" name "\""))
(display-types-to port x) (print-to port "))")))
funcs)
;; Enums
(print-to port) (print-to port ";;;; Enums")
(for-each (lambda (enum)
(print-to port ";; " (xml-get-attribute enum 'name #f))
(for-each (lambda (value)
(print-to port "(define " (xml-get-attribute value 'name "") " " (xml-get-attribute value 'integer "") ")"))
(xml-get-subtags enum 'Value)))
enums)
;; Colors
(print-to port) (print-to port ";;;; Colors")
(for-each
(lambda (define)
(cond ((equal? "COLOR" (xml-get-attribute define 'type #f))
(print-to port "(define " (xml-get-attribute define 'name #f) " (rgba->hex "
(filter-numbers (xml-get-attribute define 'value #f)) "))"))))
defines)
(display "))" port)
(close-port port)
Raw
test.lisp
#!/usr/bin/env ol
; temporarily use raylib without installation
(define *path* (cons ".." *path*))
;; Initialization
(import (lib raylib))
(define screenWidth 800)
(define screenHeight 450)
(InitWindow screenWidth screenHeight "raylib [core] example - basic window")
(SetTargetFPS 60)
;; Main game loop
(let loop ((close (WindowShouldClose)))
(unless close
;; Update
;; TODO: Update your variables here
;; Draw
(BeginDrawing)
(ClearBackground RAYWHITE)
(DrawText "Congrats! You created your first window!" 190 200 20 LIGHTGRAY)
;;(DrawPixelV (list 14 29) MAROON)
;;(display (GetWindowPosition))
(print (GetMousePosition)) ;; Only Outputs (0,0 0,0), without the Vector2 (list.. it outputs the X-Value
(EndDrawing)
(loop (WindowShouldClose))))
;; De-Initialization
(CloseWindow) ; Close window and OpenGL context
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment