Re:気軽に3D描画を楽しめる何かが欲しい

「気軽に3D描画を楽しめる何かが欲しい」と書いたところ、たくさんのアドバイスを頂きました。みなさんありがとうございます。結局 Gauche-gl を使うことにしました。以前も SICP で使ったことがあったので触り始めて1時間ほどでコツがつかめました。これを利用して Real-Time Rendering の勉強を続けていこうと思います。

(use gl)
(use gl.glut)
(use gl.simple.viewer)

(define (draw-rectangle color p1 p2 p3 p4)
  (gl-begin GL_LINE_LOOP)
  (apply gl-color color)
  (apply gl-vertex p1)
  (apply gl-vertex p2)
  (apply gl-vertex p3)
  (apply gl-vertex p4)
  (gl-end))

(define rect-before '((0.0 0.0 0.0) (1.0 0.0 0.0) (1.0 1.0 0.0) (0.0 1.0 0.0)))
(define rect-after '((-0.45 -0.45 0.5) (0.45 -0.45) (0.45 0.45) (-0.45 0.45)))

(define color1  '(0.2 0.7 0.9))
(define color2  '(0.8 0.4 0.3))

(define (main args)
  (glut-init args)
  (simple-viewer-display
   (lambda ()
     (apply draw-rectangle color1 rect-before)
     (apply draw-rectangle color2 rect-after)
     (gl-flush)))
  (simple-viewer-window 'hey)
  (simple-viewer-run)
  0)