(use-modules (ice-9 optargs))

(define* (range start end #:optional (step 1))
  (define (range-helper-minus start end step)
    (cond ((> start end)
           (cons start (range-helper-minus (+ start step) end step)))
          (else '())))

  (define (range-helper-plus start end step)
    (cond ((< start end)
           (cons start (range-helper-plus (+ start step) end step)))
          (else '())))

  (cond ((> step 0)
         (range-helper-plus start end step))
        ((< step 0)
         (range-helper-minus start end step))
        (else
         '())))

(init-screen 640 480 #t)
(for-each (lamba (x)
                 )
          (range ))

;; Simple:

(init-screen 700 200 
             #:name "Hello World"
             #:double-buffer #t)
(set-color 'red)
(draw-line 0 0 100 100)
(set-color 'green)
(draw-pixel 50 50)
(draw-circle 50 30 50)
(draw-circle 50 30 50 #:color 'blue)
(define sprite (load-sprite "somesprite"))
(draw-sprite sprite 10 10)
(set-color 'blue)
(set-color (rgb 100 255 100))
(set-color #x100200)
(clear-screen)
(readkey)
(readevent)
(mouse:get-x)
(mouse:get-y)

(init-screen 320 200 #f)
(clear-screen)
(draw-line 10 10 310 190)
(draw-line 10 190 310 10)
(draw-rect 10 190 310 10)
(flip-screen)
      
;; EOF ;;