home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 79 / af079sub.adf / Raystorm / ray.lzx / raystorm / arexx / eight.ray < prev    next >
Text File  |  1984-02-13  |  1KB  |  61 lines
  1. /***************
  2.  * NAME:          eight.ray
  3.  * VERSION:       1.0 06.08.1995
  4.  * DESCRIPTION:   Billard scene
  5.  * AUTHORS:       Andreas Heumann
  6.  * BUGS:          none
  7.  * TO DO:         none
  8.  * HISTORY:       DATE     NAME  COMMENT
  9.  *                06.08.95 ah    initial release
  10.  ***************/
  11.  
  12. OPTIONS RESULTS
  13.  
  14. IF ~SHOW('P','RAYSTORM') THEN DO  /* if not allready running, start RayStorm */
  15.    ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
  16.    ADDRESS COMMAND WaitForPort RAYSTORM
  17. END  
  18.  
  19. ADDRESS RAYSTORM
  20.  
  21. BRUSHPATH '/brushes'
  22. OBJECTPATH '/objects'
  23.  
  24. SETSCREEN 160 128
  25. SETCAMERA '100 100 -120  0 5 5  0 1 0 25 20'
  26. SETWORLD 0 0 0  50 50 50
  27. POINTLIGHT '-20 200 -100 255 255 255 SHADOW'
  28. POINTLIGHT '-20 200 100 255 255 255 SHADOW'
  29.  
  30. NEWSURFACE TABLETOP
  31. DIFFUSE 0 100 0
  32.  
  33. PLANE 'TABLETOP 0 0 0 0 1 0'
  34.  
  35. NEWSURFACE EIGHT
  36. DIFFUSE 0 0 0
  37. AMBIENT 38 38 38
  38. REFLECT 38 38 38
  39. BRUSH 'eight_brush.iff COLOR FLAT -4 1 -5.1  0 0 0  8 8 10.2'
  40.  
  41. SPHERE 'EIGHT 0 5 0 5'
  42.  
  43. NEWSURFACE WHITE
  44. DIFFUSE 255 255 255
  45. AMBIENT 51 51 51
  46. REFLECT 38 38 38
  47.  
  48. SPHERE 'WHITE 0 5 10 5'
  49.  
  50. LOADOBJ 'eight_queue.iob 20 0 0 0 0 0 1 1 1'
  51.  
  52. ANTIALIAS 2
  53.  
  54. STARTRENDER
  55.  
  56. SAVEPIC 'eight.iff'
  57.  
  58. CLEANUP
  59.  
  60. exit 0
  61.