# ---------------------------------- # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box) # - /home/davila/Creatis/creaTools/creatools_source/bbtk/packages/vtk/bbs/boxes/TransformWidget.bbs # ---------------------------------- include std include itkvtk include wx include vtk include std define TransformWidget vtk author "Author ??" description "Description ??" category "" new LayoutTab Box00 new LayoutLine Box01 set Box01.WinTitle "Rotation" new Slider Box03 set Box03.ChangeResolution "true" set Box03.Label "true" set Box03.Max "180" set Box03.Min "-180" set Box03.ReactiveOnTrack "true" set Box03.Title "Rotation X" new Slider Box04 set Box04.ChangeResolution "true" set Box04.Label "true" set Box04.Max "180" set Box04.Min "-180" set Box04.ReactiveOnTrack "true" set Box04.Title "Rotation Y" new Slider Box05 set Box05.ChangeResolution "true" set Box05.Label "true" set Box05.Max "180" set Box05.Min "-180" set Box05.ReactiveOnTrack "true" set Box05.Title "Rotation Z" new LayoutLine Box06 set Box06.WinTitle "Translate" new Slider Box07 set Box07.ChangeResolution "true" set Box07.Label "true" set Box07.Max "1800" set Box07.Min "-1800" set Box07.ReactiveOnTrack "true" set Box07.Title "Translation X" new Slider Box08 set Box08.ChangeResolution "true" set Box08.Label "true" set Box08.Max "1800" set Box08.Min "-1800" set Box08.ReactiveOnTrack "true" set Box08.Title "Translation Y" new Slider Box09 set Box09.ChangeResolution "true" set Box09.Label "true" set Box09.Max "1800" set Box09.Min "-1800" set Box09.ReactiveOnTrack "true" set Box09.Title "Translation Z" new LayoutLine Box10 set Box10.WinTitle "Scale" new Slider Box11 set Box11.ChangeResolution "true" set Box11.In "100" set Box11.Label "true" set Box11.Max "500" set Box11.Min "0" set Box11.ReactiveOnTrack "true" set Box11.Title "Scale X" new Slider Box12 set Box12.ChangeResolution "true" set Box12.In "100" set Box12.Label "true" set Box12.Max "500" set Box12.Min "0" set Box12.ReactiveOnTrack "true" set Box12.Title "Scale Y" new Slider Box13 set Box13.ChangeResolution "true" set Box13.In "100" set Box13.Label "true" set Box13.Max "500" set Box13.Min "0" set Box13.ReactiveOnTrack "true" set Box13.Title "Scale Z" new Transform Box14 new ConcatStrings Box15 set Box15.In2 " " set Box15.In3 "1 0 0" new ConcatStrings Box16 set Box16.In2 " " set Box16.In4 " " new MultipleInputs Box17 new MultipleInputs Box18 new MultipleInputs Box19 new MultipleInputs Box20 new Div Box22 set Box22.In2 "100" new Div Box23 set Box23.In2 "100" new Div Box24 set Box24.In2 "100" new Transform Box28 new ConcatStrings Box29 set Box29.In2 " " set Box29.In3 "0 1 0" new Transform Box30 new ConcatStrings Box31 set Box31.In2 " " set Box31.In3 "0 0 1" new Transform Box32 new Transform Box33 new Transform Box34 new Add Box35 new GetVectorDoubleElement Box36 set Box36.ErrorValue "0" set Box36.I "0" new Add Box40 new GetVectorDoubleElement Box41 set Box41.ErrorValue "0" set Box41.I "1" new Add Box42 new GetVectorDoubleElement Box43 set Box43.ErrorValue "0" set Box43.I "2" new Add Box44 new ConcatStrings Box45 set Box45.In2 " " set Box45.In4 " " new GetVectorDoubleElement Box47 set Box47.ErrorValue "1" set Box47.I "0" new GetVectorDoubleElement Box49 set Box49.ErrorValue "1" set Box49.I "1" new GetVectorDoubleElement Box50 set Box50.ErrorValue "1" set Box50.I "2" new MagicBox Box52 new MagicBox Box53 new Add Box55 new GetVectorDoubleElement Box56 set Box56.ErrorValue "0" set Box56.I "0" new Add Box57 new GetVectorDoubleElement Box58 set Box58.ErrorValue "0" set Box58.I "1" new GetVectorDoubleElement Box59 set Box59.ErrorValue "0" set Box59.I "2" new Add Box60 new MagicBox Box61 new Mul Box62 new Mul Box63 new Mul Box64 connect Box01.Widget Box00.Widget1 connect Box05.Widget Box01.Widget3 connect Box04.Widget Box01.Widget2 connect Box03.Widget Box01.Widget1 connect Box09.Widget Box06.Widget3 connect Box08.Widget Box06.Widget2 connect Box07.Widget Box06.Widget1 connect Box13.Widget Box10.Widget3 connect Box12.Widget Box10.Widget2 connect Box11.Widget Box10.Widget1 connect Box06.Widget Box00.Widget2 connect Box10.Widget Box00.Widget3 connect Box16.Out Box14.Translate connect Box03.BoxChange Box17.In1 connect Box04.BoxChange Box17.In2 connect Box05.BoxChange Box17.In3 connect Box07.BoxChange Box18.In1 connect Box08.BoxChange Box18.In2 connect Box09.BoxChange Box18.In3 connect Box11.BoxChange Box19.In1 connect Box12.BoxChange Box19.In2 connect Box13.BoxChange Box19.In3 connect Box17.BoxChange Box20.In1 connect Box18.BoxChange Box20.In2 connect Box19.BoxChange Box20.In3 connect Box11.Out Box22.In1 connect Box12.Out Box23.In1 connect Box13.Out Box24.In1 connect Box15.Out Box28.RotateWXYZ connect Box29.Out Box30.RotateWXYZ connect Box31.Out Box32.RotateWXYZ connect Box28.Out Box30.In connect Box30.Out Box32.In connect Box14.Out Box28.In connect Box20.BoxChange Box33.BoxExecute connect Box32.Out Box33.In connect Box36.Out Box35.In2 connect Box07.Out Box35.In1 connect Box35.Out Box16.In1 connect Box41.Out Box40.In2 connect Box08.Out Box40.In1 connect Box40.Out Box16.In3 connect Box43.Out Box44.In2 connect Box09.Out Box44.In1 connect Box44.Out Box16.In5 connect Box45.Out Box33.Scale connect Box52.Out Box50.In connect Box52.Out Box47.In connect Box52.Out Box49.In connect Box53.Out Box43.In connect Box53.Out Box36.In connect Box53.Out Box41.In connect Box56.Out Box55.In2 connect Box58.Out Box57.In2 connect Box59.Out Box60.In2 connect Box61.Out Box59.In connect Box61.Out Box56.In connect Box61.Out Box58.In connect Box03.Out Box55.In1 connect Box55.Out Box15.In1 connect Box04.Out Box57.In1 connect Box57.Out Box29.In1 connect Box05.Out Box60.In1 connect Box60.Out Box31.In1 connect Box22.Out Box62.In1 connect Box23.Out Box63.In1 connect Box24.Out Box64.In1 connect Box62.Out Box45.In1 connect Box63.Out Box45.In3 connect Box64.Out Box45.In5 connect Box47.Out Box62.In2 connect Box49.Out Box63.In2 connect Box50.Out Box64.In2 # Complex input ports input TitleWindow Box00.WinTitle " " input scaleXYZ Box52.In " " input translateXYZ Box53.In " " input rotateXYZ Box61.In " " # Complex output ports output Window Box00.Widget " " output Transform Box33.Out " " output BoxChange Box33.BoxChange " " message endefine