tismacfan2 Posted March 19, 2021 Share Posted March 19, 2021 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 Quote Link to comment
Pat Stanford Posted March 19, 2021 Share Posted March 19, 2021 Completely untested, but something like: BeginPoly; MoveTo(0,0); LineTo(I,0); CurveTo(I,pmd); CurveThrough(0,pmd); LineTo(0,0); EndPoly; Quote Link to comment
Recommended Posts
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.