curved polyline

[tismacfan2]

Hello

 

how can I script several curved poly lines with a different offset and fillcolor on base of settings from my classes.?
No I make something, but it only works in a straight way, not in curved modus

thanks

 

PROCEDURE tegelwand;
VAR
    l,md,td:REAL;

BEGIN
    
    l            := PLINELENGTH;
    md            := pmd;
    td            := ptd;

    { teken onderlegger }
NameClass('onderlegger');
poly (0,0,l,0,l,pmd,0,pmd,0,0);
    { teken tegels }

NameClass('tegels');
poly(0,0,l,0,l,ptd,0,ptd,0,0);

    { teken muur }
    
NameClass('muur');
poly(0,pmd,0,0,l,0);

{ teken daglijn }

moveto (0,pmd);

 

 

{ teken daglijn}

NameClass('daglijn');
poly(0,pmd,0,0,l,0);

 

END;
Run(tegelwand);    

 

thanks
    

    
    

 

    
    

  

 

 

[Pat Stanford]

Completely untested, but something like:

BeginPoly;

  MoveTo(0,0);

  LineTo(I,0);

  CurveTo(I,pmd);

  CurveThrough(0,pmd);

  LineTo(0,0);

EndPoly;