diff options
Diffstat (limited to 'bytepusher.scm')
| -rw-r--r-- | bytepusher.scm | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/bytepusher.scm b/bytepusher.scm index 19cdeae..d72aaf4 100644 --- a/bytepusher.scm +++ b/bytepusher.scm @@ -114,23 +114,29 @@ (call-with-renderer (make-renderer w) (lambda (renderer) - (set-renderer-scale! renderer 4 4) - (clear-renderer renderer) - (render-copy renderer - (surface->texture - renderer - (bytevector->surface (get-pixels) - width - height - 32 - (* width 4)))) - - (present-renderer renderer) - (sleep 10))))) + (set-renderer-scale! renderer scale scale) + (let ((texture (make-display-texture renderer))) + (clear-renderer renderer) + (load-display! texture) + (render-copy renderer texture) + (present-renderer renderer) + (sleep 10)))))) (sdl-quit)) ;; ---- debug +;; rendering ---- +(define (make-display-texture renderer) + (make-texture renderer 'argb8888 'streaming width height)) + +(define (load-display! texture) + (update-texture texture + (make-rect 0 0 width height) + (get-pixels) + (* width 4))) +;; ---- rendering + + ;; main operation ---- (define (load-program! path) @@ -152,20 +158,14 @@ (unless (= count 0) (loop (- count 1))))) (define (loop! renderer) + (define texture (make-display-texture renderer)) (set-renderer-scale! renderer 4 4) (let loop () (let ((t0 (sdl-ticks))) (loop-frame!) (clear-renderer renderer) - ;; TODO: Too many copies, improve upstream in Guile-SDL2 - (render-copy renderer - (surface->texture - renderer - (bytevector->surface (get-pixels) - width - height - 32 - (* width 4)))) + (load-display! texture) + (render-copy renderer texture) (present-renderer renderer) (let ((t1 (sdl-ticks))) (unless (> t1 (+ t0 1000/60)) |