Jump to content

curved polyline


Recommended Posts

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
    

    
    


 


    
    

  

 

 

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...