# ---------------------------------- # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box) # - TransformWidget.bbs # ---------------------------------- include std include itkvtk include wx include vtk include std define TransformWidget vtk author "Author ??" description "Description ??" category "" new wx:LayoutTab Box00 new wx:LayoutLine Box01 set Box01.WinTitle "Rotation" new wx: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 wx: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 wx: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 wx:LayoutLine Box06 set Box06.WinTitle "Translate" new wx: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 wx: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 wx: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 wx:LayoutLine Box10 set Box10.WinTitle "Scale" new wx: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 wx: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 wx: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 vtk:Transform Box14 new std:ConcatStrings Box15 set Box15.In2 " " set Box15.In3 "1 0 0" new std:ConcatStrings Box16 set Box16.In2 " " set Box16.In4 " " new std:MultipleInputs Box17 new std:MultipleInputs Box18 new std:MultipleInputs Box19 new std:MultipleInputs Box20 new std:Div Box22 set Box22.In2 "100" new std:Div Box23 set Box23.In2 "100" new std:Div Box24 set Box24.In2 "100" new vtk:Transform Box28 new std:ConcatStrings Box29 set Box29.In2 " " set Box29.In3 "0 1 0" new vtk:Transform Box30 new std:ConcatStrings Box31 set Box31.In2 " " set Box31.In3 "0 0 1" new vtk:Transform Box32 new vtk:Transform Box33 new vtk:Transform Box34 new std:Add Box35 new std:GetVectorDoubleElement Box36 set Box36.ErrorValue "0" set Box36.I "0" new std:Add Box40 new std:GetVectorDoubleElement Box41 set Box41.ErrorValue "0" set Box41.I "1" new std:Add Box42 new std:GetVectorDoubleElement Box43 set Box43.ErrorValue "0" set Box43.I "2" new std:Add Box44 new std:ConcatStrings Box45 set Box45.In2 " " set Box45.In4 " " new std:GetVectorDoubleElement Box47 set Box47.ErrorValue "1" set Box47.I "0" new std:GetVectorDoubleElement Box49 set Box49.ErrorValue "1" set Box49.I "1" new std:GetVectorDoubleElement Box50 set Box50.ErrorValue "1" set Box50.I "2" new std:MagicBox Box52 new std:MagicBox Box53 new std:Add Box55 new std:GetVectorDoubleElement Box56 set Box56.ErrorValue "0" set Box56.I "0" new std:Add Box57 new std:GetVectorDoubleElement Box58 set Box58.ErrorValue "0" set Box58.I "1" new std:GetVectorDoubleElement Box59 set Box59.ErrorValue "0" set Box59.I "2" new std:Add Box60 new std:MagicBox Box61 new std:Mul Box62 new std:Mul Box63 new std: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 " " endefine