2008-06-09 05:45 PM - last edited on 2023-05-24 10:59 AM by Rubia Torres
2008-06-09 06:32 PM
2016-02-17 05:14 PM
2016-02-17 09:10 PM
2016-02-18 10:56 AM
2016-02-19 11:06 AM
addx a/2 c=zzyzx ddd=c ond=1.3 roehor=2 roever=2 glaslat=0.015 n1=a/0.200 n2=ROUND_INT(n1) deel=a/n2 links=deel rechts=deel bov=deel mid=ond+deel ROTX 90 ROTY 180 addx -a/2 for herh=0 to n2-1 extrude 5,0,0,ond,1+2+4+16+32, 0, 0, 0, 0, c, 0, deel, c, 0, deel, 0, 0, 0, 0, -1 addx deel next herh del n2 addz ond extrude 5,0,0,b-ond,1+2+4+16+32, 0, 0, 0, 0, c, 0, deel, c, 0, deel, 0, 0, 0, 0, -1 addx deel*(n2-1) extrude 5,0,0,b-ond,1+2+4+16+32, 0, 0, 0, 0, c, 0, deel, c, 0, deel, 0, 0, 0, 0, -1 roty 270 extrude 5,0,0,deel*(n2-2),1+2+4+16+32, 0, 0, 0, 0, c, 0, deel, c, 0, deel, 0, 0, 0, 0, -1 addx b-ond-deel extrude 5,0,0,deel*(n2-2),1+2+4+16+32, 0, 0, 0, 0, c, 0, deel, c, 0, deel, 0, 0, 0, 0, -1 del 7 addz -0.005 kx = -a/2+links+glaslat ky = mid+glaslat dx = (a-(rechts+glaslat+links+glaslat)-glaslat*(roehor-1)) / roehor dy = (b-(bov+glaslat)-(mid+glaslat)-glaslat*(roever-1)) / roever for iy = 1 to roever step 1 for ix = 1 to roehor step 1 put kx, ky, 15, kx+dx, ky, 15, kx+dx, ky+dy, 15, kx, ky+dy, 15, kx, ky, -1 kx = kx+dx+glaslat next ix kx = -a/2+links+glaslat ky = ky+dy+glaslat next iy prism_ 5+nsp/3, ddd+0.01, -a/2+links, mid, 15, a/2-rechts, mid, 15, a/2-rechts, b-bov, 15, -a/2+links, b-bov, 15, -a/2+links, mid, -1, use (nsp) del 1 material mat1 addz ddd/2-0.007 for ii = 1 to roever*roehor step 1 prism_ 5, 0.007, get (15) next ii del 1 body -1It's an older script, but it should be a stretchable door.