tests/v3d/manipulator/translate

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