#DM2:WS2024/25 - Gruppe Hirschberg 3 - HUE1 - Raphael Wieser - 01613917
########################################################################
#
#
#load rhinoscriptsyntax library
import rhinoscriptsyntax as rs

#PhaseOne
#create curve for initial R
rs.Command("_Curve Degree=2 9,55,0 9,5,0 16,5,0 16,15,0 15,29,0 20,29,0 35,5,0 45,5,0 28,35,0 45,40,0 28,60,0 Close _Enter")
crv = rs.FirstObject(select=True)

#extrude curve
rs.Command("_ExtrudeCrv Solid=No 30 Enter")
srf = rs.FirstObject(select=True)

#extrude contourlines in direction of z-axis
rs.Command("_Contour 0,0,0 0,0,1 3.0 Enter")
rs.Command("_ExtrudeCrv Solid=Yes 0.3 Enter")

#extrude contourlines in x-direction
rs.SelectObject(srf)
rs.Command("_Contour 0,0,0 1,0,0 2.0 Enter")
rs.Command("_Pipe 0.2 _Enter")

#delete not needed assets
rs.DeleteObject(srf)
rs.DeleteObject(crv)


#PhaseTwo
#create curve for initial W
rs.Command("_Curve Degree=2 58,58,0 65,5,0 75,5,0 85,35,0 95,35,0 110,5,0 115,5,0 125,55,0 120,55,0 110,30,0 95,45,0 85,45,0 75,30,0 65,55,0 Close _Enter")
crv = rs.FirstObject(select=True)

#extrude curve
rs.Command("_ExtrudeCrv Solid=No 25 Enter")
srf = rs.FirstObject(select=True)

#extrude contourlines in direction of z-axis
rs.Command("_Contour 0,0,0 0,0,1 3.0 Enter")
rs.Command("_ExtrudeCrv Solid=Yes 0.3 Enter")

#extrude contourlines in x-direction
rs.SelectObject(srf)
rs.Command("_Contour 0,0,0 1,0,0 2.0 Enter")
rs.Command("_Pipe 0.2 _Enter")

#delete not needed assets
rs.DeleteObject(srf)
rs.DeleteObject(crv)