0031704: Visualization - add an interactive object AIS_LightSource representing a...
[occt.git] / tests / v3d / light_source / manipulator
diff --git a/tests/v3d/light_source/manipulator b/tests/v3d/light_source/manipulator
new file mode 100644 (file)
index 0000000..eb93216
--- /dev/null
@@ -0,0 +1,50 @@
+puts "==================================================="
+puts "0031704: Visualization - add an interactive object AIS_LightSource representing a light source"
+puts "==================================================="
+
+pload MODELING VISUALIZATION
+vclear
+vinit View1
+vlight -clear
+vbackground -color GRAY
+vrenderparams -shadingModel PHONG
+vlight -add ambient -COLOR WHITE -intensity 0.1
+box b 0 0 0 30 30 30
+vdisplay b -dispMode 1
+vsetmaterial b Brass
+vfit
+vlight -add spotlight -pos 15 -10 15 -dir 0 1 0 -name aSpotLight -color RED -display
+
+puts "=== Attach manipulator ==="
+vmanipulator m -attach aSpotLight -adjustPosition location 
+vdump $imagedir/${casename}_manip.png
+
+puts "=== Test manipulator - rotation ==="
+vmanipulator m -followRotation 1
+
+set mouse_pick_rotate {128 231}
+set mouse_drag_rotate {98 200}
+
+vmoveto {*}$mouse_pick_rotate
+vselect {*}$mouse_pick_rotate
+vmanipulator m -startTransform {*}$mouse_pick_rotate
+vmanipulator m -transform {*}$mouse_drag_rotate
+vmanipulator m -stopTransform
+vselect 0 0
+vmoveto {*}$mouse_drag_rotate
+vdump $imagedir/${casename}_rot.png
+
+puts "=== Test manipulator - translation ==="
+set mouse_pick_translate {87 315}
+set mouse_drag_translate {167 358}
+
+vmoveto {*}$mouse_pick_translate 
+vselect {*}$mouse_pick_translate 
+vmanipulator m -startTransform {*}$mouse_pick_translate 
+vmanipulator m -transform {*}$mouse_drag_translate 
+vmanipulator m -stopTransform
+vselect 0 0
+vmoveto {*}$mouse_drag_translate
+vmanipulator m -detach
+vremove aSpotLight
+vdump $imagedir/${casename}_trans.png