home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / 3d / irit / scripts / ffloops.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  1.3 KB  |  60 lines
  1. #
  2. # This file existance is justified to demonstrate loops on free form trans.:
  3. #
  4.  
  5. save_mat = view_mat;
  6. view_mat = view_mat * scale(vector(0.7,    0.7, 0.7));
  7.  
  8. cbzr = cbezier( list( ctlpt( P3, 1.0, 0.0, 0.0, 0.0 ),
  9.                   ctlpt( P3, 0.707, 0.707, 0.0, 0.0 ),
  10.                   ctlpt( P3, 1.0, 1.0, 1.0, 0.0 ) ) );
  11. sbzr = sbezier( list ( list( ctlpt( E3, 0.0, 0.0, 0.5 ),
  12.                      ctlpt( E3, 0.0, 0.5, -1.0 ),
  13.                      ctlpt( E3, 0.0, 1.0, 0.5 ) ),
  14.                    list( ctlpt( E3, 0.5, 0.0, -0.5 ),
  15.                      ctlpt( E3, 0.5, 0.5, 1.0 ),
  16.                      ctlpt( E3, 0.5, 1.0, -0.5 ) ),
  17.                    list( ctlpt( E3, 1.0, 0.0, 0.5 ),
  18.                      ctlpt( E3, 1.0, 0.5, -1.0 ),
  19.                      ctlpt( E3, 1.0, 1.0, 0.5 ) ) ) );
  20.  
  21. rot10x = rotx(10);
  22. rot10y = roty(10);
  23. rot10z = rotz(10);
  24.  
  25. interact(list(axes, cbzr, sbzr));
  26.  
  27. #
  28. # Rotate around    the X axes:
  29. #
  30.  
  31. for ( a = 1, 1, 36,
  32.     cbzr = cbzr * rot10x:
  33.         view(list(cbzr,axes), on)
  34.     );
  35.  
  36.  
  37. #
  38. # Rotate around    the Y axes:
  39. #
  40.  
  41. for ( a = 1, 1, 36,
  42.     sbzr = sbzr * rot10y:
  43.         view(list(sbzr,axes), on)
  44.     );
  45.  
  46.  
  47. #
  48. # Rotate around    the Z axes:
  49. #
  50.  
  51. for ( a = 1, 1, 36,
  52.     cbzr = cbzr * rot10z:
  53.         view(list(cbzr,axes), on)
  54.     );
  55.  
  56. view_mat = save_mat;
  57.  
  58. free(rot10x); free(rot10y); free(rot10z);
  59. # free(cbzr); free(sbzr);
  60.