File: minimum-viewer.scm

package info (click to toggle)
gauche-gl 0.6-4
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, forky, sid, trixie
  • size: 6,052 kB
  • sloc: ansic: 33,199; lisp: 13,740; sh: 2,484; makefile: 288
file content (14 lines) | stat: -rwxr-xr-x 307 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/bin/sh
:; exec gosh -I../../src -I../../lib $0 "$@"
;; A minimum demo to use gl.simple.viewer

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

(define (main args)
  (glut-init args)
  (simple-viewer-display (^[state] (glut-wire-sphere 2.0 10 8)))
  (simple-viewer-window 'demo)
  (simple-viewer-run)
  0)