Does anyone have any hints on how to mirror a polyline (entpln) using DCAL?
Code: Select all
setrotrel(mat,PI,y,topp); {Mirror about apex}
For j:= 1 TO 6 DO
xformpt(p[j],mat,q[j]);
END;
In the above mat is inbuilt type modmat. Rotation is PI (ie 180degrees). Y is the axis of rotation, in my case the 'y' axis. topp is the point about which rotaation occurs.
In my case I had 6 points in point array p which are mirrored int point array q. These are declared in the VAR sectioin of the procedure.
VAR
p,q :ARRAY [1..6] OF point;
mat :modmat;