: Специальные аспекты создания дверей и
окон
Пример:
|
RESOL 72 |
|
||
|
ROTX -90 |
|
||
|
MULY -1 |
|
||
|
C= 0.12 : Z=(360*A)/(2*R *PI) |
|||
|
Y= (360*C)/(2*R_*PI) |
|
||
|
A1= 270+Z/2 : A2=270-Z/2 |
|||
|
GOSUB1 |
|
||
|
ADDZ B |
|
||
|
MULZ -1 |
|
||
|
GOSUB1 |
|
||
|
DEL 2 |
|
||
|
ADDZ C |
|
||
|
GOSUB2 |
|
||
|
MULX -1 |
|
||
|
GOSUB2 |
|
||
|
END |
|
||
|
1: |
|
||
|
PRISM_ 9, |
C, |
||
|
COS(A2)*R_, |
SIN(A2)*R_+R , 11, |
||
|
COS(A2+Y)-R_, |
SIN(A2+Y)-R_+R_, 13, |
||
|
0, |
R_, 900, |
||
|
0, |
Z-2*Y, 4009, |
||
|
COS(A1)*R_, |
SIN(A1)*R_+R_, 11, |
||
|
COS(A1)*(R_-0.1), |
SIN(A1)*(R_-0.1)+R_, 11, |
||
|
COS(A1-Y)*(R_-0.1), |
SIN(A1-Y)*(R_-0.1)+R_, 13, |
||
|
0, |
-(Z-2'Y), 4009, |
||
|
COS(A2)*(R -0.1), |
SIN(A2)*(R_-0.1)+R_, 11 |
||
|
RETURN |
|
||
|
2: |
|
||
|
PRISM_ 4, |
B-2*C, |
||
|
COS(A2)*R , |
S!N(A2)'R_+R_, 10, |
||
|
COS(A2+Y)*R_, |
SIN(A2+Y)*R_+R_, 15, |
||
|
COS(A2+Y)*(R_-0.1) |
,SIN(A2+Y)*(R_-0.1)+R , 10, |
||
|
COS(A2)*(R -0.1), |
SIN(A2)*(R_-0.1)+R , 10 |
||
|
RETURN |
|
||
208
Справочное пособие по GDL