interscheme/init.scm

;;; defined in C code
;;; (define pixel-put (lambda (x y c) 0))

(define pixel-hline (lambda (x1 x2 y color)
  (if (> x1 x2)
    #t
    (begin 
      (pixel-put x1 y color)
      (pixel-hline (+ x1 1) x2 y color)))))

(define pixel-vline (lambda (x y1 y2 color)
  (if (> y1 y2)
    #t
    (begin 
      (pixel-put x y1 color)
      (pixel-vline x (+ y1 1) y2 color)))))

(define pixel-rect (lambda (x1 y1 x2 y2 color)
  (begin
    (pixel-hline x1 x2 y1 color)
    (pixel-hline x1 x2 y2 color)
    (pixel-vline x1 y1 y2 color)
    (pixel-vline x2 y1 y2 color)
    )))

(display "hello from scheme world!\n")

(define main (lambda ()
               (begin
                 (display "(main)\n")
                 (pixel-rect 32 32 128 128 #xffffff))))