# 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" }

Assign skinw -.1
EditPline "SkinL"
AddVert [-25, -1, 0]
AddVert [-25, -21, 0]
AddVert [-25, -21, -3]
AddVert [-25, -21, -45]
AddVert [-25, -1, -45]
AddVert [-25, -1, 0]
NewObjColor 255 255 0
EndPline 1
SweepVec { "SkinL" } <50, 0, 0>
EditPline "BaseL1"
AddVert [-24.9, -1.1, -.1]
AddVert [-24.9, -20.9, -.1]
AddVert [-24.9, -20.9, -2.95]
AddVert [-24.9, -20.9, -44.9]
AddVert [-24.9, -1.1, -44.9]
AddVert [-24.9, -1.1, -.1]
NewObjColor 0 255 0
EndPline 1
SweepVec { "BaseL1" } <49.8, 0, 0>
Select {"+SkinL" "+BaseL1"}
Move <0,0,-7>
DeSelect { "*" }
Select {"BaseL1"}
DupLine <0, 0, 0> 2
Subtract { "SkinL" } { "BaseL2" }

# add feet 4x4x7
Box [-2,-4,0] 4 -4 -7  "Foot1"
Box [-25,-16,0] 4 -4 -7  "Foot2"
Box [21,-16,0] 4 -4 -7  "Foot3"

#Add hole on the bottom of the skin
#Box [-26,0,0] 52 -25 -7  "Hole1"
#Subtract { "SkinL" } { "Hole1" }


Select {"+SkinL" "+BaseL1" "Foot1" "Foot2" "Foot3"}
DupMirror [0, 0, 0] [0, -1, 0] 
ReName "SkinL1"  "SkinR"
ReName "BaseL1" "BaseL"
ReName "BaseL2" "BaseR"
ReName "Mirror1" "MirrorR"
ReName "Mirror2" "MirrorL"
# Draw drive and sense pads and subtract from skin 
# Add 1mm gap to drive and sense to get masks
NewObjColor 0 0 0
Box [-20, -1.1, -10] 40 0.1 -17.5 "Drive1"
Box [-21, -1.1, -9] 42 0.1 -19.5 "Drive1mask"
Subtract { "SkinL" } { "Drive1mask" }
Box [-20, -1.1, -31.5] 40 0.1 -17.5 "Drive2"
Box [-21, -1.1, -30.5] 42 0.1 -19.5 "Drive2mask"
Subtract { "SkinL" } { "Drive2mask" }
Box [-15, 1, -14.5] 30 0.1 -30 "Sense"
Box [-16, 1, -13.5] 32 0.1 -32 "Sensemask"
Subtract { "SkinR" } { "Sensemask" }
FitRegion 2000 "n"
Select { "+MirrorR" "+Sense" "+BaseR" "+SkinR" "Foot4" "Foot5" "Foot6"}
Move Vec3 deltaX deltaY deltaZ
Shaded "smooth"
DeSelect { "*" }
Select { "+MirrorR" "+Sense" "+BaseR" "+SkinR" "Foot4" "Foot5" "Foot6"}
origin [0, -1, -29.5]
Rotate 0 alfaX
Rotate 2 alfaZ
Rotate 1 alfaY
DeSelect { "*" }
Save3d "*" "?v"
Exit