home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / giochi / behemot / library / prolog / rtutils.pro < prev    next >
Encoding:
Text File  |  1997-05-03  |  700 b   |  34 lines
  1. % RTUTILS
  2.  
  3. rt_createsphere(Name,X,Y,Z,R,Mat):-
  4.     rt_createfromscheme(nsection(object,
  5.                             attribute(name,Name),
  6.                             attribute(material,Mat),
  7.                             pvector(model,
  8.                                 nsection(sphere,
  9.                                     attribute(center,vector(X,Y,Z)),
  10.                                     attribute(radius,R)
  11.                                 )
  12.                             )
  13.                     ),_,_,_).
  14.                             
  15. rt_createplanematerial(Name,R,G,B):- 
  16.     rt_createfromscheme(nsection(material,
  17.                             attribute(name,Name),
  18.                             pvector(model,
  19.                                 nsection(phong,
  20.                                     attribute('Ks',0.0),
  21.                                     attribute('Kt',0.0),
  22.                                     attribute('Ka',0.2),
  23.                                     attribute('Kd',0.8),
  24.                                     attribute('Od',vector(R,G,B))
  25.                                 )
  26.                             )
  27.                         ),_,_,_).
  28.                         
  29.  
  30.     
  31.     
  32.  
  33.  
  34.