vielleicht hilft dir das noch fürs tragwerk:
(parameter entsprechend ergänzen und verändern)
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">! Kegeldachtragstruktur.gsm by zzyzx
begwink = -85 ! Beginn Kegelanordnung Sparren
endwink = 85 ! Ende Kegelanordnung Sparren
kgwink =atn(b/a) ! halber Kegelwinkel
ns = 10 !anzahl Sparren
spb = 0.08 !sparrenbreite
sph = 0.2 !sparrenbreite
spl = sqr(a*a+b*b) !sparrenlänge
pfb = 0.08 !Pfettenbreite
pfh = 0.15 !Pfettenhöhe
! Sparren
rotx -begwink
iwink = (begwink-endwink)/(ns-1)
for i = 1 to ns
roty -kgwink
addy -spb/2
block spl,spb,sph
del 2
rotx iwink
next i
del ns+1
! Pfetten
a2 = a*0.3
b2 = b*0.3
gosub 110
a2 = a*0.7
b2 = b*0.7
gosub 110
end
110: ! Pfetten
cutplane 180
addx a2
roty -90
prism_ 4, pfb,
0,0,913,
b2,360,4013,
0,0,913,
b2-pfh,360,4013
del 2
cutend
return