+prog aqua urs:1
kopf
norm DIN EN199x-200x
beto nr 1 C 35
stah nr 2 B 500B
ende

+prog sofimsha urs:2
kopf
syst art 3D GDIV 100000

let#bx 10 $ Breite Decke
let#by 20 $ Länge Decke

let#dx 0.5  $ Netzgröße
let#dy 0.5
let#Ex #bx/#dx
let#Ey #by/#dy



LOOP#i #Ex+1
LOOP#j #Ey+1

Let#nr 1001+#i+1000*#j
let#x #i*#dx
let#y #j*#dy
let#z 0

KNOT Nr #nr X #x Y #y Z #z

endloop
endloop



LOOP#i #Ex+1-1
LOOP#j #Ey+1-1

GRUP 1
QUAD Nr - K1 1001+#i+1000*#j K2 1001+#i+1+1000*#j K3 1001+#i+1000*(#j+1)+1 K4 1001+#i+1000*(#j+1)

endloop
endloop

endloop

let#h 2.5 $ Geschosshöhe
Loop#level 5   $ Anzahl Geschosse
grup 1+(#level+1)
tran typ quad von grp 1 dz -#h*(#level+1)
endloop


ende