home *** CD-ROM | disk | FTP | other *** search
/ Trixter's Scene Collection / trixter.zip / trixter / Demos / MECH2.ZIP / OTHER2.DCC < prev    next >
Text File  |  1995-05-22  |  3KB  |  145 lines
  1.  
  2.  
  3. node mk_new("n0");
  4. node mk_new("n1");
  5. node mk_new("n2");
  6. node mk_new("n3");
  7. node mk_new("n4");
  8. node mk_new("n5");
  9.  
  10. widget mk_new("w0");
  11. widget mk_new("w1");
  12. widget mk_new("w2");
  13. widget mk_new("w3");
  14. widget mk_new("w4a");
  15. widget mk_new("w4b");
  16. widget mk_new("w5");
  17.  
  18.  
  19. n0 << (w0) ;
  20. n1 << (w1) ;
  21. n2 << (w2) ;
  22. n3 << (w3) ;
  23. n4 << (w4a) << (w4b) ;
  24. n5 << (w5)
  25. // w << (0.0 0.0 0.8 )  ;
  26. ;
  27.  
  28.  
  29. w0
  30.  mk_cyl_pts( -1.85 -1.0 0.0   1.0 -1.0 0.0  0.125  1 )
  31. ;
  32.  
  33. w1
  34.  mk_cyl_pts( -0.5 -1.0 -0.25  -1.4  0.15 -0.25  0.125  15 )
  35. ;
  36.  
  37. w2
  38.  mk_cyl_pts( -1.4  0.35 -0.25  -0.4 1.1 -0.25  0.125  11 )
  39. ;
  40.  
  41. w3
  42.  mk_cyl_pts( -0.2 1.1 -0.25 0.5 1.0 -0.25  0.125  4 )
  43.  
  44. ;
  45.  
  46. w4a
  47.  mk_cyl_pts( 0.2 1.0 0.0 1.10 1.0 0.0  0.125  7 )
  48. ;
  49.  
  50. w4b
  51.  mk_cyl_pts( 1.25 2.0 0.0 1.25 0.0 0.0  0.125  7 )
  52. ;
  53.  
  54. w5
  55.  mk_cyl_pts( -2.0 -0.8 0.125 -2.0 -0.8 0.25 0.5  6 )
  56. ;
  57.  
  58.  
  59. n0 act(64) ;
  60. n1 act(64) ;
  61. n2 act(64) ;
  62. n3 act(64) ;
  63. n4 act(64) ;
  64. n5 act(64) ;
  65.  
  66. revolute mk_new("r0");
  67. revolute mk_new("r1");
  68. revolute mk_new("r2");
  69. revolute mk_new("r3");
  70. revolute mk_new("r4");
  71.  
  72.  
  73. r0  << ( n0 )  << ( n5 )
  74.  sf allocate() mk_cyl ( 0.25 0.125  12 );
  75.  set_pt ( -2.0 -1.0 0.0 )
  76.  set_opt( -2.0 -1.0 0.2 )
  77.  set_ax ( 0 0 1 )
  78.  act(64)
  79.  see_force(0.05 -2.0 -1.0 -0.4 )
  80. ;
  81.  
  82. r1 << ( n1 ) << ( n2 )
  83.  sf allocate() mk_cyl ( 0.25 0.125  12 );
  84.  set_pt( -1.5  0.25 -0.25 )
  85.  set_ax ( 0 0 1 )
  86.  act(64)
  87.  see_force(0.05 -1.5  0.25 -0.6 )
  88. ;
  89.  
  90. r2 << ( n2 ) << ( all_rooms idx (0) deref() )
  91.  sf allocate() mk_cyl ( 0.25 0.125  12 );
  92.  set_pt( -0.7 0.6 -0.25 )
  93.  set_ax ( 0 0 1 )
  94.  act(64)
  95.  see_force(0.05 -0.7 0.6 -0.6 )
  96. ;
  97.  
  98. r3 << ( n2 ) << ( n3 )
  99.  sf allocate() mk_cyl ( 0.25 0.125  12 );
  100.  set_pt( -0.3 1.1 -0.25  )
  101.  set_ax ( 0 0 1 )
  102.  act(64)
  103.  see_force(0.05 -0.3 1.2 -0.6 )
  104. ;
  105.  
  106. r4 << ( n3 ) << ( n4 )
  107.  sf allocate() mk_cyl ( 0.25 0.125  12 );
  108.  set_pt( 0.6 1.0 -0.25 )
  109.  set_opt(0.6 1.0 0.0 )
  110.  set_ax ( 0 0 1 )
  111.  act(64)
  112.  see_force(0.05 0.6 1.0 -0.6 )
  113. ;
  114.  
  115. slider mk_new("s0");
  116. slider mk_new("s1");
  117.  
  118. s0  << ( n1 )  << ( n0 )
  119.  set_pt( -0.65 -1.0 -0.25 )
  120.  set_opt(-0.65 -1.0 0.0 )
  121.  set_ax ( 1 0 0 )
  122.  act(64)
  123.  max_dis << ( 1.5 ) ;
  124.  see_force(0.05 -0.65 -1.0 -0.4 )
  125. ;
  126.  
  127. s1 << ( all_rooms idx (0) deref() ) << ( n4 )
  128.  set_pt( 0.6 1.0 0.0 )
  129.  set_ax ( 1 0 0 )
  130.  act(64)
  131.  max_dis << ( 1.5 ) ;
  132. // see_force(0.05 0.6 1.0 -0.6 )
  133. ;
  134.  
  135. //engine mk_new("e0");
  136. drive  << ( n5 ) << ( all_rooms idx (0) deref() )
  137.  set_pt(  -2.0 -0.80 0.2 )
  138.  set_ax ( 0 0 1 )
  139.  
  140. // see_eforce(0.15 -2.0 -0.80 -0.6 )
  141.  
  142. // w << (0.6) ;
  143.  act(64)
  144. ;
  145.