# Version 1
# Draw the problem
LaunchModeler "modify"
Select { "*" }
SelClear
SetUnits "mm" 0
GlobalCS
NewObjColor 0 255 0
Circle [0, 0, 0] 2 177.8 "Mirror1" 1 12 [177.8, 0, 0]
FitAllViews
SweepVec { "Mirror1" } <0, 0, 45>
Shaded "smooth"
Shaded "smooth"
NewObjColor 128 128 128
Box [-177.8, -1, 0] 355.6 2 45 "gap"
Subtract { "Mirror1" } { "gap" }
EditPline "Base2"
AddVert [-25, -6, 0]
AddVert [-25, -11, 0]
AddVert [-25, -11, -1]
AddVert [-25, -16, -1]
AddVert [-25, -16, 0]
AddVert [-25, -21, 0]
AddVert [-25, -21, -5]
AddVert [-25, -11, -50]
AddVert [-25, -1, -50]
AddVert [-25, -1, -5]
AddVert [-25, -6, -5]
AddVert [-25, -6, 0]
NewObjColor 0 255 0
EndPline 1
SweepVec { "Base2" } <50, 0, 0>
EditPline "Base1"
AddVert [-25, 6, 0]
AddVert [-25, 11, 0]
AddVert [-25, 11, -1]
AddVert [-25, 16, -1]
AddVert [-25, 16, 0]
AddVert [-25, 21, 0]
AddVert [-25, 21, -5]
AddVert [-25, 11, -50]
AddVert [-25, 1, -50]
AddVert [-25, 1, -5]
AddVert [-25, 6, -5]
AddVert [-25, 6, 0]
NewObjColor 0 255 0
EndPline 1
SweepVec { "Base1" } <50, 0, 0>
NewObjColor 0 0 0
Box [-15, 1, -12.5] 30 -0.1 -30 "Sense"
Box [-20, -1, -10] 40 0.1 -15.5 "Drive1"
Box [-20, -1, -29.5] 40 0.1 -15.5 "Drive2"
FitRegion 2000 "n"
Select { "+Mirror1" "+Sense" "+Base1" }
Move Vec3 deltaX deltaY deltaZ
Shaded "smooth"
DeSelect { "*" }
Select {  "+Mirror1" "+Sense" "+Base1" }
origin [0, -1, -27.5]
Rotate 0 alfaX
Rotate 2 alfaZ
Rotate 1 alfaY
DeSelect { "*" }
Save3d "*" "?v"
Exit