# Version 1
# Draw the problem
LaunchModeler "modify"
Select { "*" }
SelClear
SetUnits "mm" 0
GlobalCS
NewObjColor 255 0 0
Box [0, 0, 0] 600 -100 45 "MirrorB"
NewObjColor 0 255 0
Box [0, 2, 0] 600 100 45 "MirrorA"
FitAllViews
GlobalCS
origin [100, 2, 0]
NewObjColor 0 0 255
Box [-25, 0, 5.5] 50 -0.01 15 "Drive2A"
NewObjColor 0 255 255
Box [-25, 0, 24.5] 50 -0.01 15 "Drive1A"
FitAll
NewObjColor 0 0 0
Box [-15, -2, 12.5] 30 0.01 20 "SenseA"
hide "MirrorA"
Shaded "smooth"
FitAllViews
NewObjColor 0 0 128
Box [-85, 0, 2.5] 40 -0.01 40 "GapSensorB1AA"
NewObjColor 0 0 128
Box [45, 0, 2.5] 40 -0.01 40 "GapSensorB2AA"
NewObjColor 0 0 0
Box [-75, -2, 12.5] 20 0.01 20 "GapSensorB1BA"
NewObjColor 0 0 0
Box [55, -2, 12.5] 20 0.01 20 "GapSensorB2AB"
Select { "+GapSensorB2AB" }
ReName "GapSensorB2AB" "GapSensorB2BA"
DeSelect { "*" }
Box [-45, 0, 31.5] 20 -0.01 1 "connection1"
Box [25, 0, 12.5] 20 -0.01 1 "connection2"
Unite { "Drive1A" "connection1" "GapSensorB1AA" }
Unite { "Drive2A" "connection2" "GapSensorB2AA" }
FitAllViews
show "MirrorA"
show "MirrorB"
WireFrame
FitRegion 2000 "n"
Region [-4000, -4000, -4000] 8000 8000 8000
FitAllViews
hide "background"
FitAllViews
Select { "+MirrorB" "+SenseA" "+GapSensorB1BA" "+GapSensorB2BA" }
Move Vec3 deltaX deltaY deltaZ
Shaded "smooth"
hide "MirrorA"
FitAllViews
DeSelect { "*" }
FitAllViews
Select { "+GapSensorB1BA" "+GapSensorB2BA" "+MirrorB" "+SenseA" }
Rotate 0 alfaX
Rotate 2 alfaZ
origin [100, 2, 22.5]
Rotate 1 alfaY
DeSelect { "*" }
show "MirrorA"
Save3d "*" "?v"
Exit