[Peter v W]

Ik ben een script aan het schrijven om een eenvoudig kozijn met een toog aan de bovenkant te kunnen tekenen. Dit gaat redelijk. Mijn idee is een polylijn te laten tekenen, die een offset te geven met de kozijdikte. Deze vlakken vervolgens van elkaar af te trekken en van het resultaat een extrusie te maken. De laatste twee stappen krijg ik niet goed voor elkaar. Wat doe ik verkeerd? Onderstaand het script voorzover ik het nu gemaakt heb.

Hartelijke groet,

Peter van Woerden

Procedure staldeur_klein;
VAR
breedte, hoogte, dikte, negge, toog: REAL;
result: BOOLEAN;
hOmtrek, hOffset, hProfiel, hBlok1, hBlok2, hKozijn, hTest: HANDLE;
BEGIN
breedte := Pbreedte;
hoogte := Phoogte;
dikte := Pdikte;
negge := Pnegge;
toog := Ptoog;

BeginPoly;
		LineTo(0, 0);
		LineTo(0,hoogte);
		CurveTo(breedte/2,hoogte+toog);
		LineTo(breedte,hoogte);
		LineTo(breedte,0);
		Closepoly;
Endpoly;
hOmtrek := LnewObj;
hOffset := OffsetPolyN(hOmtrek,-100,FALSE);

BeginXtrd (0,114);
hOffset := OffsetPolyN(hOmtrek,-100,FALSE);
{Hprofiel := SubtractPolygon(hOmtrek, hOffset, 1);}
EndXtrd;

END;

RUN (staldeur_klein);