so, hier isses (als prototyp)
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">
! s1 = 1 ! schnittebene 1
! s2 = 1.5 ! schnittebene 2
! s12d = 0.75 ! verlängern um ...m
! lmax = 10 ! maximallänge x des objektes
! bmax = 10 ! maximalbreite y des Objekts
cutpolya 4, 1, 0, ! Teil links
s1,-bmax, 8,
s1, bmax, 8,
lmax, bmax, 8,
lmax, -bmax, 8
gosub 100
cutend
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Teil Mitte
mxfakt = (s2-s1+s12d)/(s2-s1)
addx -s1*(mxfakt-1)
mulx mxfakt
cutpolya 4, 1, 0,
-lmax, -bmax, 8,
-lmax, bmax, 8,
s1, bmax, 8,
s1, -bmax, 8
cutpolya 4, 1, 0,
s2,-bmax, 8,
s2, bmax, 8,
lmax, bmax, 8,
lmax, -bmax, 8
gosub 100
cutend
cutend
del 2
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
addx s12d ! Teil rechts
cutpolya 4, 1, 0,
-lmax, -bmax, 8,
-lmax, bmax, 8,
s2, bmax, 8,
s2, -bmax, 8
gosub 100
cutend
del 1
end
100:
! hier das zu dehnende Objekt einkopieren
return bin natürlich dankbar für anregungen!