tests/v3d/manipulator/translate

   1 puts "====================================="
   2 puts "AIS_Manipulator - translate an object"
   3 puts "====================================="
   4
   5 pload MODELING VISUALIZATION
   6
   7 set anImage1 $imagedir/${casename}_1.png
   8 set anImage2 $imagedir/${casename}_2.png
   9 set anImage3 $imagedir/${casename}_3.png
  10 set anImage4 $imagedir/${casename}_4.png
  11 set anImage5 $imagedir/${casename}_5.png
  12
  13 # -------------------------------------
  14 # create manipulated and helper objects
  15 # -------------------------------------
  16
  17 pcylinder c1  5 10
  18 pcylinder c2 10 20
  19 ttranslate c1 100 0 20
  20 ttranslate c2 100 0 0
  21 trotate c1 100 0 25 0 1 0 90
  22 trotate c1 100 0 25 0 0 1 10
  23
  24 # -------------------------------------
  25 # display manipulated objects (scene 1)
  26 # -------------------------------------
  27
  28 vdisplay c1
  29 vdisplay c2
  30 vsetdispmode 1
  31 vaxo
  32 vfit
  33
  34 # ------------------
  35 # attach manipulator
  36 # ------------------
  37
  38 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40
  39 vmanipulator m -followRotation 1
  40 vmanipulator m -followTranslation 1
  41 vmanipulator m -part 0 4 0
  42 vmanipulator m -part 1 4 0
  43 vmanipulator m -part 2 4 0
  44
  45 # ----------------------------------------------------
  46 # test x translation transform (world reference frame)
  47 # ----------------------------------------------------
  48
  49 set mouse_pick {204 112}
  50 set mouse_drag {204 156}
  51
  52 vmoveto {*}$mouse_pick
  53 vselect {*}$mouse_pick
  54 vmanipulator m -startTransform {*}$mouse_pick
  55 vmanipulator m -transform {*}$mouse_drag
  56 vmanipulator m -stopTransform
  57 vselect 0 0
  58 vmoveto {*}$mouse_drag
  59 vdump $anImage1
  60
  61 # ----------------------------------------------------
  62 # test y translation transform (world reference frame)
  63 # ----------------------------------------------------
  64
  65 set mouse_pick {215 160}
  66 set mouse_drag {265 132}
  67
  68 vmoveto {*}$mouse_pick
  69 vselect {*}$mouse_pick
  70 vmanipulator m -startTransform {*}$mouse_pick
  71 vmanipulator m -transform {*}$mouse_drag
  72 vmanipulator m -stopTransform
  73 vselect 0 0
  74 vmoveto {*}$mouse_drag
  75 vdump $anImage2
  76
  77 # ----------------------------------------------------
  78 # test z translation transform (world reference frame)
  79 # ----------------------------------------------------
  80
  81 set mouse_pick {263 145}
  82 set mouse_drag {127 065}
  83
  84 vmoveto {*}$mouse_pick
  85 vselect {*}$mouse_pick
  86 vmanipulator m -startTransform {*}$mouse_pick
  87 vmanipulator m -transform {*}$mouse_drag
  88 vmanipulator m -stopTransform
  89 vselect 0 0
  90 vmoveto {*}$mouse_drag
  91 vdump $anImage3
  92
  93 # -------------------------------------
  94 # display manipulated objects (scene 2)
  95 # -------------------------------------
  96
  97 vremove -all
  98 vdisplay c1
  99 vdisplay c2
 100 vsetdispmode 1
 101 vaxo
 102 vfit
 103
 104 # -------------------------------------------
 105 # attach manipulator and rotate around z axis
 106 # -------------------------------------------
 107
 108 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40
 109 vmanipulator m -followRotation 1
 110 vmanipulator m -followTranslation 1
 111 vmanipulator m -part 0 4 0
 112 vmanipulator m -part 1 4 0
 113 vmanipulator m -part 2 4 0
 114
 115 set mouse_pick {223 144}
 116 set mouse_drag {181 140}
 117
 118 vmoveto {*}$mouse_pick
 119 vselect {*}$mouse_pick
 120 vmanipulator m -startTransform {*}$mouse_pick
 121 vmanipulator m -transform {*}$mouse_drag
 122 vmanipulator m -stopTransform
 123 vselect 0 0
 124 vmoveto {*}$mouse_drag
 125
 126 # ----------------------------------------------------
 127 # test x translation transform (object reference frame)
 128 # ----------------------------------------------------
 129
 130 set mouse_pick {199 131}
 131 set mouse_drag {175 168}
 132
 133 vmoveto {*}$mouse_pick
 134 vselect {*}$mouse_pick
 135 vmanipulator m -startTransform {*}$mouse_pick
 136 vmanipulator m -transform {*}$mouse_drag
 137 vmanipulator m -stopTransform
 138 vselect 0 0
 139 vmoveto {*}$mouse_drag
 140 vdump $anImage4
 141
 142 # ----------------------------------------------------
 143 # test y translation transform (object reference frame)
 144 # ----------------------------------------------------
 145
 146 set mouse_pick {199 164}
 147 set mouse_drag {246 177}
 148
 149 vmoveto {*}$mouse_pick
 150 vselect {*}$mouse_pick
 151 vmanipulator m -startTransform {*}$mouse_pick
 152 vmanipulator m -transform {*}$mouse_drag
 153 vmanipulator m -stopTransform
 154 vselect 0 0
 155 vmoveto {*}$mouse_drag
 156 vdump $anImage5