source: golgotha/src/test/lisp/dialog.scm @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 12 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 613 bytes
Line 
1
2(def_class color nil
3  (red 255)
4  (green 255)
5  (blue 255))
6
7(def_class options nil
8  (pixel                 (new color))
9  (render_mode           'single_pixel      '(list_box single_pixel double_pixel interlaced))   
10  (view_distance         'near              '(list_box near mid far))
11  (sound_volume          63.0               )
12  (ambient_and_music     'on                '(list_box on off))
13  (ambient_volume        63                 )
14  (shadows               T                  )
15  (sound                 '_2d               '(list_box off _2d _3d))
16  )
17 
18
19(setf p (new options))
Note: See TracBrowser for help on using the repository browser.