####################################
### DM2_w24 # Patrycja Werstak   ###
### hu_07 Anne Frank Buecherregal###   
### paneling  / new dimensions   ### 
####################################

##########################################################
import rhinoscriptsyntax as rs                         ###
import random, time, sys                               ###
sys.path.append("P:\WWW\arch2506\DM2\FINALE")          ###
import DM_lib as dm                                    ### 
#import _OSM_demo as dm                                 ###
reload(dm)                                             ###
##########################################################

##########################       https://www.openstreetmap.org/export
#### AGruber@tugraz.at ###       https://osmbuildings.org/
#### OSM demo  2024/12 ###       
##########################
#
# 
#reload (osm)
#
#rs.UnitSystem(4)                # meters = 4
#rs.ShowGrid(None, 0) 
#rs.ShowGridAxes(None, 1) 
#rs.EnableRedraw(0)
#currentMode = rs.ViewDisplayMode(rs.CurrentView())
#rs.ViewDisplayMode(rs.CurrentView(), "wireframe")
#rs.Redraw()
###############################
#
#
########################
###OSMpath = "D:/OSM/osmData/"
#OSMpath = "P:\WWW\arch2506\DM2\FINALE"
########################
#
#OSMfile = "wien_1010.osm"
#OSMfile = "attersee.osm"
#OSMfile = "frohnleiten.osm"
#OSMfile = "seoul_small.osm"
#OSMfile = "NYC_stuyvesant_town_big.osm"
#OSMfile = "NYC_stuyvesant_town.osm"
#OSMfile = "NYC_madison_square_garden_big.osm"
#OSMfile = "NYC_madison_square_garden.osm"
#OSMfile = "NYC_empire_state_bldg.osm"
#OSMfile = "ellmauer_halt.osm"
#OSMfile = "weissensee.osm"
#OSMfile = "kibo.osm"
##OSMfile = "paris_sorbonne.osm"
##OSMfile = "karlsplatz.osm"
##OSMfile = "madison_square.osm"
##OSMfile = "NYC_sankt_marks.osm"
##OSMfile = "urania.osm"
##OSMfile = "urania_00.osm"
##OSMfile = "kiew.osm"
##OSMfile = "EmpStat.osm"
##OSMfile = "stockholm.osm"
##OSMfile = "lampedusa.osm"
###############################  # 

#
#osm.eAA()                       # erase absolutely all objects, even hidden & locked
##osm.OSMi(OSMfile, OSMpath, move2Guinea=1)
#osm.OSMi(OSMfile, OSMpath, trimBounds=1, do3D=1, minHeight=1.0, heightFac=1.0, randomize=[5.0, 10.0], doAllCurves=1, move2Guinea = 1, verbose=0)
#


####################################
rs.CurrentLayer("Default")
rs.ViewDisplayMode(None, "ghosted")

##################################################################################################################################################

rs.UnitSystem(4)                                        # km = 5, meters = 4, cm = 3 etc
rs.ShowGrid(None, 0)                                    # grid > 0 = off
rs.ShowGridAxes(None, 1)                                # y/y/z axen display > 0/1 = off/on
rs.ViewDisplayMode(rs.CurrentView(), "wireframe")
rs.Command("cplane w t enter", 0)						# cPlane World Top
dm.PointRadius(displayModeX=0, rad=3, styl=3)
dm.printDisplay(1)                                      # nomen est omen
rs.EnableRedraw(0)



###_________________________________________#
### basic settings for grid to fit UN_slab  #
###                                         # 
floors = H  = dm.H = 40                     # default=40 / incl roof
slabs  = L  = dm.L = 11                     # default=11
depth  = D  = dm.D =  4                     # default= 4 / division in building_depth
floorHeight = fH = dm.fH = 4.0              # default= 4.0 / 4.0*(H-1) = 156 meters
                                            #
################                            # get from DM_lib as dm:
UnoGridCoords  = dm.UnoGridCoords           # get gridCoords L*D*H = 1760
UnoPanelCoords = dm.UnoPanelCoords          # get panelCoords [frontPanels, backPanels, sidePanels, upSidePanels] / default arguments s.u.
################____________________________#
################
lengthVec = lVec = rs.VectorUnitize(rs.VectorSubtract( dm.getUnoCoord(0, 0, 0), dm.getUnoCoord(1, 0, 0) )) ## rs.AddPoint( dm.getUnoCoord(1, 0, 0) )
depthVec  = dVec = rs.VectorUnitize(rs.VectorSubtract( dm.getUnoCoord(0, 1, 0), dm.getUnoCoord(0, 0, 0) )) ## rs.AddPoint( dm.getUnoCoord(0, 1, 0) )
################
###########################################################################################
UnoPanelCoords = dm.getUNpanelCoords(anzL=10*7, anzH=39, anzD=3, stepL=1, stepH=1, stepD=1) ### = all ~windows_panels
BigPanelCoords = dm.getUNpanelCoords(anzL=10*1, anzH=39, anzD=3, stepL=2, stepH=6, stepD=2) ### = all ~windows_panels
UnoPanelCoords = dm.getUNpanelCoords(anzL=10*1, anzH=39, anzD=3, stepL=1, stepH=3, stepD=1) ### = standard for hu_06 ######mal .. (bsp. 7) um linien in breite zu schmaelern#######
###########################################################################################
##########################################################
frontPanels   = UnoPanelCoords[0] ### list of coordLists !
backPanels    = UnoPanelCoords[1]
sidePanels    = UnoPanelCoords[2]
upSidePanels  = UnoPanelCoords[3]
allPanels     = UnoPanelCoords[4]
#################################

dm.newEmptyLayer("UNO::setUp", [120,120,240])

if 1: ### SETUP >> dont' exec @ homework !
    rs.ObjectColor(rs.AddCurve( [dm.getUnoCoord(0,0,0), dm.getUnoCoord(0,0,39), dm.getUnoCoord(10,0,39), dm.getUnoCoord(10,0,0), dm.getUnoCoord(10,3,0), dm.getUnoCoord(0,3,0), dm.getUnoCoord(0,3,39), dm.getUnoCoord(10,3,39)], 1), [100,0,200])
    rs.ObjectColor(rs.AddLine( dm.getUnoCoord(0, 0, 0), dm.getUnoCoord(0, 1, 0) ), [222, 0, 0] )
    rs.ObjectColor(rs.AddLine( dm.getUnoCoord(0, 0, 0), dm.getUnoCoord(1, 0, 0) ), [0, 222, 0] )
    rs.ObjectColor(rs.AddLine( dm.getUnoCoord(0, 0, 0), dm.getUnoCoord(0, 0, 2) ), [0, 0, 222] )
    rs.ObjectPrintWidth( rs.AllObjects()[0:4], 1.0 )
    rs.ZoomExtents()
    #for coords in BigPanelCoords[4]: rs.AddCurve( coords, 1 )

if 0: ### DEMO  >> dont' exec @ homework !
    print len(frontPanels)
    dm.textDots( frontPanels[0] )
    
    for coords in frontPanels[0:10]+sidePanels:
        pass
        rs.AddPoints( coords )
        rs.AddCurve( coords, 1 )
        #rs.AddSrfPt( coords )
    #for coords in sidePanels[0:]:
    #    rs.AddPoints( coords )
    
    for coords in BigPanelCoords[4]:
        pass
        rs.AddCurve( coords, 1 )

if 0: ### DEMO  >> dont' exec @ homework !!!!!!############

#############:
### panel_DEF:
    def myPanel( panel, basement = 0 ):
        p0, p1, p2, p3 = panel ### get items (==coords) from list
        rs.AddLine( p0, p2 )
        if basement:
            crv = rs.AddCurve( [p0, p1, dm.pntInbetween(p1, p3), p2, p3], 1 )
            rs.ObjectPrintWidth( crv, 1 )
            rs.ObjectColor( crv, [200,0,0])
        else:
            rs.AddCurve( panel )

    for i,panel in enumerate(frontPanels[:]):
        pass
        panNr = 0
        if i<10 or i>119:
            panNr = 1
        myPanel( panel, basement = panNr ) ### basement = (i<20 or i>109)
        #rs.Redraw()

#################
### abbreveation:
def gC (l=1, d=2, h=3):
    cor = dm.getUnoCoord(l, d, h)
    return cor
## rs.AddPoint( gC(1,0,1) )
#################

#_____________________________here you go:
dm.newEmptyLayer("Buecherregal", [100,100,100])

#Boden
p0 = gC (0,0,0)
p1 = gC (0,3,0)
p2 = gC (10,3,0)
p3 = gC (10,0,0)
p4 = gC (0,0,0)

coords_boden = [p0, p1, p2, p3, p4]
rs.AddCurve( coords_boden, 1)

#Wand links
p0 = gC (0,0,0)
p1 = gC (0,0,39)
p2 = gC (0,3,39)
p3 = gC (0,3,0)

coords_wand_links = [p0, p1, p2, p3]
rs.AddCurve( coords_wand_links, 1)

#Decke
p0 = gC (0,0,39)
p1 = gC (10,0,39)
p2 = gC (10,3,39)
p3 = gC (0,3,39)

coords_decke = [p0, p1, p2, p3]

rs.AddCurve( coords_decke, 1)

#Wand rechts
p0 = gC (10,0,39)
p1 = gC (10,0,0)
p2 = gC (10,3,0)
p3 = gC (10,3,39)

coords_wand_rechts = [p0, p1, p2, p3]
rs.AddCurve( coords_wand_rechts, 1)

#unterer Boden Erhoeung
p0 = gC (0,0,3)
p1 = gC (0,3,3)
p2 = gC (10,3,3)
p3 = gC (10,0,3)
p4 = gC (0,0,3)

coords_unterer_boden_erhoeung = [p0, p1, p2, p3, p4]
rs.AddCurve( coords_unterer_boden_erhoeung ,1)

#unteres Regal
p0 = gC (0,0,14)
p1 = gC (0,3,14)
p2 = gC (10,3,14)
p3 = gC (10,0,14)
p4 = gC (0,0,14)

coords_unteres_regal = [p0, p1, p2, p3, p4]
rs.AddCurve(coords_unteres_regal, 1)

#oberes Regal
p0 = gC (0,0,27)
p1 = gC (0,3,27)
p2 = gC (10,3,27)
p3 = gC (10,0,27)
p4 = gC (0,0,27)

coords_oberes_regal = [p0, p1, p2, p3, p4]
rs.AddCurve(coords_oberes_regal, 1)

##Buecher unteres Regal

#Buch 1 gerade

dm.newEmptyLayer("Buch 1", [100,150,255])

p0 = gC (0,2,3)
p1 = gC (0,2,7)
p2 = gC (0,0,11)
p3 = gC (0,0,3)
p4 = gC (0,2,3)
p5 = gC (1,2,3)
p6 = gC (1,2,11)
p7 = gC (0,2,11)
p8 = gC (1,2,11) 
p9 = gC (1,0,11)
p10= gC (0,0,11)
p11= gC (0,0,3)
p12= gC (1,0,3)
p13= gC (1,0,11)
p14= gC (1,0,3)
p15= gC (1,2,3)

coords_buch_1 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_1, 1)

#Buch 2 schraeg

dm.newEmptyLayer("Buch 2", [150,164,199])

p0 = gC (2,0,3)
p1 = gC (1,0,10)
p2 = gC (1,2,10)
p3 = gC (2,2,3)
p4 = gC (2,0,3)
p5 = gC (3,0,4)
p6 = gC (2,0,11)
p7 = gC (1,0,10)
p8 = gC (2,0,11) 
p9 = gC (2,2,11)
p10 = gC (1,2,10)
p11 = gC (2,2,11)
p12 = gC (3,2,4)
p13 = gC (2,2,3)
p14 = gC (3,2,4)
p15 = gC (3,0,4)

coords_buch_2 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_2, 1)

#Buch 3 gerade

dm.newEmptyLayer("Buch 3", [150,220,180])

p0 = gC (3,0,3)
p1 = gC (3,0,9)
p2 = gC (3,2,9)
p3 = gC (3,2,3)
p4 = gC (3,0,3)
p5 = gC (4,0,3)
p6 = gC (4,0,9)
p7 = gC (3,0,9)
p8 = gC (4,0,9) 
p9 = gC (4,2,9)
p10 = gC (3,2,9)
p11 = gC (4,2,9)
p12 = gC (4,2,3)
p13 = gC (3,2,3)
p14 = gC (4,2,3)
p15 = gC (4,0,3)

coords_buch_3 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_3, 1)

#Buch 4 gerade

dm.newEmptyLayer("Buch 4", [250,220,180])

p0 = gC (4,0,3)
p1 = gC (4,0,8)
p2 = gC (4,2,8)
p3 = gC (4,2,3)
p4 = gC (4,0,3)
p5 = gC (5,0,3)
p6 = gC (5,0,8)
p7 = gC (4,0,8)
p8 = gC (5,0,8) 
p9 = gC (5,2,8)
p10 = gC (4,2,8)
p11 = gC (5,2,8)
p12 = gC (5,2,3)
p13 = gC (4,2,3)
p14 = gC (5,2,3)
p15 = gC (5,0,3)

coords_buch_4 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_4, 1)

#Buch 5 gerade

dm.newEmptyLayer("Buch 5", [250,100,180])

p0 = gC (5,0,3)
p1 = gC (5,0,12)
p2 = gC (5,2,12)
p3 = gC (5,2,3)
p4 = gC (5,0,3)
p5 = gC (6,0,3)
p6 = gC (6,0,12)
p7 = gC (5,0,12)
p8 = gC (6,0,12) 
p9 = gC (6,2,12)
p10 = gC (5,2,12)
p11 = gC (6,2,12)
p12 = gC (6,2,3)
p13 = gC (5,2,3)
p14 = gC (6,2,3)
p15 = gC (6,0,3)

coords_buch_5 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_5, 1)

#Buch 6 gerade

dm.newEmptyLayer("Buch 6", [250,220,200])

p0 = gC (7,0,3)
p1 = gC (6,0,10)
p2 = gC (6,2,10)
p3 = gC (7,2,3)
p4 = gC (7,0,3)
p5 = gC (8,0,4)
p6 = gC (7,0,11)
p7 = gC (6,0,10)
p8 = gC (7,0,11) 
p9 = gC (7,2,11)
p10 = gC (6,2,10)
p11 = gC (7,2,11)
p12 = gC (8,2,4)
p13 = gC (7,2,3)
p14 = gC (8,2,4)
p15 = gC (8,0,4)

coords_buch_6 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_6, 1)

#Buch 7 schraeg

dm.newEmptyLayer("Buch 7", [100,220,155])

p0 = gC (8,0,3)
p1 = gC (8,0,8)
p2 = gC (8,2,8)
p3 = gC (8,2,3)
p4 = gC (8,0,3)
p5 = gC (9,0,3)
p6 = gC (9,0,8)
p7 = gC (8,0,8)
p8 = gC (9,0,8) 
p9 = gC (9,2,8)
p10 = gC (8,2,8)
p11 = gC (9,2,8)
p12 = gC (9,2,3)
p13 = gC (8,2,3)
p14 = gC (9,2,3)
p15 = gC (9,0,3)

coords_buch_7 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_7, 1)

#Buch 8 gerade

dm.newEmptyLayer("Buch 8", [142,100,155])

p0 = gC (9,0,3)
p1 = gC (9,0,9)
p2 = gC (9,2,9)
p3 = gC (9,2,3)
p4 = gC (9,0,3)
p5 = gC (10,0,3)
p6 = gC (10,0,9)
p7 = gC (9,0,9)
p8 = gC (10,0,9) 
p9 = gC (10,2,9)
p10 = gC (9,2,9)
p11 = gC (10,2,9)
p12 = gC (10,2,3)
p13 = gC (9,2,3)
p14 = gC (10,2,3)
p15 = gC (10,0,3)

coords_buch_8 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_8, 1)

##Buecher mittleres Regal

#Buch 9 liegend

dm.newEmptyLayer("Buch 9", [100,100,140])

p0 = gC (3,0,14)
p1 = gC (0,0,14)
p2 = gC (0,2,14)
p3 = gC (3,2,14)
p4 = gC (3,0,14)
p5 = gC (3,0,16) 
p6 = gC (0,0,16)
p7 = gC (0,0,4)
p8 = gC (0,0,16) 
p9 = gC (0,2,16)
p10 = gC (0,2,14)
p11 = gC (0,2,16)
p12 = gC (3,2,16)
p13 = gC (3,2,14)
p14 = gC (3,2,16)
p15 = gC (3,0,16)

coords_buch_9 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_9, 1)

#Buch 10 liegend

dm.newEmptyLayer("Buch 10", [100,100,200])

p0 = gC (2,0,16)
p1 = gC (0,0,16)
p2 = gC (0,2,16)
p3 = gC (2,2,16)
p4 = gC (2,0,16)
p5 = gC (2,0,18) 
p6 = gC (0,0,18)
p7 = gC (0,0,4)
p8 = gC (0,0,18) 
p9 = gC (0,2,18)
p10 = gC (0,2,16)
p11 = gC (0,2,18)
p12 = gC (2,2,18)
p13 = gC (2,2,16)
p14 = gC (2,2,18)
p15 = gC (2,0,18)

coords_buch_10 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_10, 1)

#Buch 11 gerade

dm.newEmptyLayer("Buch 11", [233,233,233])

p0 = gC (3,0,14)
p1 = gC (3,0,23)
p2 = gC (3,2,23)
p3 = gC (3,2,14)
p4 = gC (3,0,14)
p5 = gC (4,0,14)
p6 = gC (4,0,23)
p7 = gC (3,0,23)
p8 = gC (4,0,23) 
p9 = gC (4,2,23)
p10 = gC (3,2,23)
p11 = gC (4,2,23)
p12 = gC (4,2,14)
p13 = gC (3,2,14)
p14 = gC (4,2,14)
p15 = gC (4,0,14)

coords_buch_11 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_11, 1)

#Buch 12 gerade

dm.newEmptyLayer("Buch 12", [144,144,144])

p0 = gC (4,0,14)
p1 = gC (4,0,20)
p2 = gC (4,2,20)
p3 = gC (4,2,14)
p4 = gC (4,0,14)
p5 = gC (5,0,14)
p6 = gC (5,0,20)
p7 = gC (4,0,20)
p8 = gC (5,0,20) 
p9 = gC (5,2,20)
p10 = gC (4,2,20)
p11 = gC (5,2,20)
p12 = gC (5,2,14)
p13 = gC (4,2,14)
p14 = gC (5,2,14)
p15 = gC (5,0,14)

coords_buch_12 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_12, 1)

#Buch 13 schraeg

dm.newEmptyLayer("Buch 13", [120,129,160])

p0 = gC (5,0,15)
p1 = gC (6,0,22)
p2 = gC (6,2,22)
p3 = gC (5,2,15)
p4 = gC (5,0,15)
p5 = gC (6,0,14)
p6 = gC (7,0,21)
p7 = gC (6,0,22)
p8 = gC (7,0,21) 
p9 = gC (7,2,21)
p10 = gC (6,2,22)
p11 = gC (7,2,21)
p12 = gC (6,2,14)
p13 = gC (5,2,15)
p14 = gC (6,2,14)
p15 = gC (6,0,14)

coords_buch_13 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_13, 1)

#Buch 14 gerade

dm.newEmptyLayer("Buch 14", [190,240,190])

p0 = gC (7,0,14)
p1 = gC (7,0,22)
p2 = gC (7,2,22)
p3 = gC (7,2,14)
p4 = gC (7,0,14)
p5 = gC (8,0,14)
p6 = gC (8,0,22)
p7 = gC (7,0,22)
p8 = gC (8,0,22) 
p9 = gC (8,2,22)
p10 = gC (7,2,22)
p11 = gC (8,2,22)
p12 = gC (8,2,14)
p13 = gC (7,2,14)
p14 = gC (8,2,14)
p15 = gC (8,0,14)

coords_buch_14 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_14, 1)

#Buch 15 gerade

dm.newEmptyLayer("Buch 15", [190,105,110])

p0 = gC (9,0,14)
p1 = gC (9,0,21)
p2 = gC (9,2,21)
p3 = gC (9,2,14)
p4 = gC (9,0,14)
p5 = gC (10,0,14)
p6 = gC (10,0,21)
p7 = gC (9,0,21)
p8 = gC (10,0,21) 
p9 = gC (10,2,21)
p10 = gC (9,2,21)
p11 = gC (10,2,21)
p12 = gC (10,2,14)
p13 = gC (9,2,14)
p14 = gC (10,2,14)
p15 = gC (10,0,14)

coords_buch_15 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_15, 1)

##Buecher oberes Regal 

#Buch 16 gerade

dm.newEmptyLayer("Buch 16", [150,115,200])

p0 = gC (0,0,27)
p1 = gC (0,0,36)
p2 = gC (0,2,36)
p3 = gC (0,2,27)
p4 = gC (0,0,27)
p5 = gC (1,0,27)
p6 = gC (1,0,36)
p7 = gC (0,0,36)
p8 = gC (1,0,36) 
p9 = gC (1,2,36)
p10 = gC (0,2,36)
p11 = gC (1,2,36)
p12 = gC (1,2,27)
p13 = gC (0,2,27)
p14 = gC (1,2,27)
p15 = gC (1,0,27)

coords_buch_16 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_16, 1)

#Buch 17 gerade

dm.newEmptyLayer("Buch 17", [150,244,220])

p0 = gC (2,0,27)
p1 = gC (2,0,33)
p2 = gC (2,2,33)
p3 = gC (2,2,27)
p4 = gC (2,0,27)
p5 = gC (3,0,27)
p6 = gC (3,0,33)
p7 = gC (2,0,33)
p8 = gC (3,0,33) 
p9 = gC (3,2,33)
p10 = gC (2,2,33)
p11 = gC (3,2,33)
p12 = gC (3,2,27)
p13 = gC (2,2,27)
p14 = gC (3,2,27)
p15 = gC (3,0,27)

coords_buch_17 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_17, 1)

#Buch 18 gerade

dm.newEmptyLayer("Buch 18", [190,190,220])

p0 = gC (3,0,27)
p1 = gC (3,0,34)
p2 = gC (3,2,34)
p3 = gC (3,2,27)
p4 = gC (3,0,27)
p5 = gC (4,0,27)
p6 = gC (4,0,34)
p7 = gC (3,0,34)
p8 = gC (4,0,34) 
p9 = gC (4,2,34)
p10 = gC (3,2,34)
p11 = gC (4,2,34)
p12 = gC (4,2,27)
p13 = gC (3,2,27)
p14 = gC (4,2,27)
p15 = gC (4,0,27)

coords_buch_18 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_18, 1)

#Buch 19 liegend

dm.newEmptyLayer("Buch 19", [205,205,190])

p0 = gC (7,0,27)
p1 = gC (4,0,27)
p2 = gC (4,2,27)
p3 = gC (7,2,27)
p4 = gC (7,0,27)
p5 = gC (7,0,30)
p6 = gC (4,0,30)
p7 = gC (4,0,27)
p8 = gC (4,0,30) 
p9 = gC (4,2,30)
p10 = gC (4,2,27)
p11 = gC (4,2,30)
p12 = gC (7,2,30)
p13 = gC (7,2,27)
p14 = gC (7,2,30)
p15 = gC (7,0,30)

coords_buch_19 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_19, 1)

#Buch 20 liegend

dm.newEmptyLayer("Buch 20", [100,205,199])

p0 = gC (6,0,30)
p1 = gC (4,0,30)
p2 = gC (4,2,30)
p3 = gC (6,2,30)
p4 = gC (6,0,30)
p5 = gC (6,0,32)
p6 = gC (4,0,32)
p7 = gC (4,0,30)
p8 = gC (4,0,32) 
p9 = gC (4,2,32)
p10 = gC (4,2,30)
p11 = gC (4,2,32)
p12 = gC (6,2,32)
p13 = gC (6,2,30)
p14 = gC (6,2,32)
p15 = gC (6,0,32)

coords_buch_20 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_20, 1)

#Buch 21 gerade

dm.newEmptyLayer("Buch 21", [190,190,220])

p0 = gC (7,0,27)
p1 = gC (7,0,37)
p2 = gC (7,2,37)
p3 = gC (7,2,27)
p4 = gC (7,0,27)
p5 = gC (8,0,27)
p6 = gC (8,0,37)
p7 = gC (7,0,37)
p8 = gC (8,0,37) 
p9 = gC (8,2,37)
p10 = gC (7,2,37)
p11 = gC (8,2,37)
p12 = gC (8,2,27)
p13 = gC (7,2,27)
p14 = gC (8,2,27)
p15 = gC (8,0,27)

coords_buch_21 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_21, 1)

#Buch 22 schraeg

dm.newEmptyLayer("Buch 22", [190,222,222])

p0 = gC (8,0,28)
p1 = gC (9,0,35)
p2 = gC (9,2,35)
p3 = gC (8,2,28)
p4 = gC (8,0,28)
p5 = gC (9,0,27)
p6 = gC (10,0,34)
p7 = gC (9,0,35)
p8 = gC (10,0,34) 
p9 = gC (10,2,34)
p10 = gC (9,2,35)
p11 = gC (10,2,34)
p12 = gC (9,2,27)
p13 = gC (8,2,28)
p14 = gC (9,2,27)
p15 = gC (9,0,27)

coords_buch_22 = [p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15]
rs.AddCurve(coords_buch_22, 1)

#____________________________:here you end

#################################
#rs.ZoomExtents()
rs.EnableRedraw(1) ### 4 the MACs
dm.printDisplay(1)
dm.newEmptyLayer("Default")