home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / tsipp / tsipp.lha / tsipp3.0a / demos / ellipsoid.tcl < prev    next >
Encoding:
Text File  |  1992-11-02  |  937 b   |  25 lines
  1. #==============================================================================
  2. #                               ellipsoid.tcl
  3. #------------------------------------------------------------------------------
  4. # A port of SIPP demo program ellipsoid.c to Tcl-SIPP.
  5. #------------------------------------------------------------------------------
  6. # $Id: ellipsoid.tcl,v 2.0 1992/11/02 03:55:26 markd Rel $
  7. #------------------------------------------------------------------------------
  8.  
  9. source util.tcl
  10. ParseArgs
  11.  
  12. set RESOLUTION 15
  13.  
  14. SippLightSourceCreate { 1.0  1.0 1.0} {0.9 0.9 0.9} DIRECTION
  15. SippLightSourceCreate {-1.0 -1.0 0.5} {0.4 0.4 0.4} DIRECTION
  16.  
  17. set shader [SippShaderBasic 0.5 0.6 0.2 {0.6 0.3 0.5}]
  18.     
  19. SippObjectAddSubobj WORLD [SippEllipsoid {1.0 2.0 3.0} $RESOLUTION $shader \
  20.                                          WORLD]
  21.  
  22. SippCameraParams STDCAMERA {10.0 0.0 0.0} {0.0 0.0 0.0} {0.0 0.0 1.0} 0.4
  23.  
  24. DoRendering "ellipsoid"
  25.