john7rv

このプログラムは
OS:Linux
Scheme:Racket Scheme
racoパッケージ:sglパッケージ
を前提にしています

またsglパッケージのgl-frame.rktを使うので
https://github.com/racket/sgl/tree/HEAD
のexample内から
gl-frame.rkt
をダウンロードして同じフォルダに置いてください

triangle.rkt

(module triangle scheme
  (require 
   mred
   sgl/gl
   sgl/gl-vectors
   "gl-frame.rkt")
  
  (define (init-func)
      (glShadeModel GL_SMOOTH)
      (glClearColor 0 0 1 0)
      (glClearDepth 1)
      (glEnable GL_DEPTH_TEST)
      (glDepthFunc GL_LEQUAL)
      (glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST)
      (glEnable GL_COLOR_MATERIAL)      
      (glEnable GL_LIGHT0)
      (glEnable GL_LIGHTING)
      (glEnable GL_NORMALIZE)     
      )
  
  (define (draw-func)
    (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
    (glLoadIdentity)
    (glTranslated 0 0 -5)
 	(glColor3f 1 0 0)
	(glBegin GL_TRIANGLES)
	    (glNormal3f 0 0 1)
		(glVertex3f -1 0 0)
		(glVertex3f 0 1 0)
		(glVertex3f 1 0 0)
	(glEnd)   
    (glFlush))
  
  (set-gl-init-fn init-func)
  (set-gl-draw-fn draw-func)
  (gl-run)
  )