%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:349
File Name:ROTATE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM ROTATES A TRIANGLE THROUGH A GIVEN ANGLE"
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Lbl 1
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"ANGLE:\Deg"?\->Q
A\cos Q-B\sin Q\->G
A\sin Q+B\cos Q\->H
\Orange \Plot G,H
C\cos Q-D\sin Q\->I
C\sin Q+D\cos Q\->J
\Orange \Plot I,J:\Orange \Line
E\cos Q-F\sin Q\->K
E\sin Q+F\cos Q\->L
\Orange \Plot K,L:\Orange \Line
\Orange \Plot G,H:\Orange \Line\Disp\Cls:\Plot C,D:\Plot E,F:\Goto1
%End