Something went wrong. Try again.
Monorepo for Aesthetic.Computer aesthetic.computer
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788;;; kidlisp-runner.lisp — Run KidLisp pieces in the CL main loop
(in-package :ac-native.kidlisp)
(defun run-kidlisp-piece (source &key (label "$code")) "Run a KidLisp piece with full DRM graphics, audio, and input.SOURCE is the KidLisp source code string." (format *error-output* "~%════════════════════════════════════~%") (format *error-output* " KidLisp (~A)~%" label) (format *error-output* " SBCL ~A~%" (lisp-implementation-version)) (format *error-output* "════════════════════════════════════~%~%") (force-output *error-output*)
;; Parse the source (let ((ast (handler-case (kidlisp-parse source) (error (e) (format *error-output* "[kidlisp] Parse error: ~A~%" e) (force-output *error-output*) (return-from run-kidlisp-piece))))) (format *error-output* "[kidlisp] Parsed ~A: ~A top-level forms~%" label (if (and (listp ast) (string= (first ast) "progn")) (1- (length ast)) 1)) (force-output *error-output*)
;; Initialize display (let ((display (ac-native.drm:drm-init))) (unless display (format *error-output* "[kidlisp] DRM init failed~%") (return-from run-kidlisp-piece))
(let* ((dw (ac-native.drm:display-width display)) (dh (ac-native.drm:display-height display)) (scale (cond ((>= (min dw dh) 1440) 6) ((>= (min dw dh) 1080) 4) ((>= (min dw dh) 720) 3) (t 2))) (sw (floor dw scale)) (sh (floor dh scale)) (screen (ac-native.framebuffer:fb-create sw sh)) (graph (ac-native.graph:graph-create screen)) (input (ac-native.input:input-init dw dh scale)) (audio (ac-native.audio:audio-init)))
(format *error-output* "[kidlisp] ~Dx~D scale:~D -> ~Dx~D~%" dw dh scale sw sh) (force-output *error-output*)
;; Create KidLisp instance (let ((inst (make-kidlisp-instance :ast ast :graph graph :screen-w sw :screen-h sh :audio audio)))
;; Main loop (unwind-protect (let ((running t)) (loop while running do ;; Input (ac-native.input:input-poll input) (dotimes (i (ac-native.input:input-event-count input)) (let ((ev (ac-native.input:input-event input i))) (when (and (= (ac-native.input:event-type ev) 1) ; keyboard down (= (ac-native.input:event-code ev) 1)) ; ESC (setf running nil))))
;; Evaluate one frame (handler-case (kidlisp-frame inst) (error (e) (format *error-output* "[kidlisp] Runtime error: ~A~%" e) (force-output *error-output*)))
;; Present (ac-native.drm:drm-present display screen scale)
;; 60fps sync (sleep 1/60)))
;; Cleanup (when audio (ac-native.audio:audio-destroy audio)) (ac-native.input:input-destroy input) (ac-native.framebuffer:fb-destroy screen) (ac-native.drm:drm-destroy display) (format *error-output* "[kidlisp] Exited~%") (force-output *error-output*)))))))