home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 716 / data / planet.mcl < prev    next >
Encoding:
Text File  |  1993-06-03  |  1.3 KB  |  65 lines
  1. % letters of "POLYFILM" rotating about a blue planet
  2. % a la UNIVERSAL pictures intro... (best as a CFF)
  3.  
  4. type planet "\data\plan_180.3d";
  5. type letterp "\data\p.3d";
  6. type lettero "\data\o.3d";
  7. type letterl "\data\l.3d";
  8. type lettery "\data\y.3d";
  9. type letterf "\data\f.3d";
  10. type letteri "\data\i.3d";
  11. type letterm "\data\m.3d";
  12.  
  13. prefs "\data\planet.prf";
  14. palette 1;
  15.  
  16. object p type letterp looking [60*16,10*16,0];
  17. object o type lettero looking [50*16,10*16,0];
  18. object l type letterl looking [40*16,10*16,0];
  19. object why type lettery looking [30*16,10*16,0];
  20. object f type letterf looking [20*16,10*16,0];
  21. object i type letteri looking [12*16,10*16,0];
  22. object l2 type letterl looking [4*16,10*16,0];
  23. object m type letterm looking [-8*16,10*16,0];
  24. object earth type planet at [0,0,700] looking [180*16,0,0];
  25.  
  26. camera cam;
  27. lightsource lig at [0,0,0];
  28.  
  29. p.main[]{
  30.   rotate speed [48,0,0];
  31.   
  32.   while [p.a<>(16*60)-48]{
  33.     move to [earth.x, earth.y, earth.z] forward [250];
  34.     frame;
  35.   }
  36.   stop rotation;
  37.   endsim;
  38. }
  39. o.main[]{
  40.   p.main[];
  41. }
  42. l.main[]{
  43.   p.main[];
  44. }
  45. why.main[]{
  46.   p.main[];
  47. }
  48. f.main[]{
  49.   p.main[];
  50. }
  51. i.main[]{
  52.   p.main[];
  53. }
  54. l2.main[]{
  55.   p.main[];
  56. }
  57. m.main[]{
  58.   p.main[];
  59. }
  60.  
  61. earth.main[]{wait;}
  62.  
  63. cam.main[]{wait;}
  64. lig.main[]{wait;}
  65.