Вложений: 1
Код:
DIM tr(36), qx(36), qy(36)
1 CLS : SCREEN 12
LOCATE (1), (1)
INPUT "insert angle", a
r = 180
x0 = 320: y0 = 240
RG = 3.14159265358# / 180
ar = a * RG
CIRCLE (x0, y0), r
PSET (x0, y0 - 1.22 * r), 12
DRAW "C12D15NH5NE5"
kx = r * SIN(ar): ky = r * COS(ar)
FOR i = 2 TO 3: CIRCLE (x0 + kx, y0 - ky), i, 10: NEXT i
FOR i = 2 TO 3: CIRCLE (x0 - kx, y0 + ky), i, 10: NEXT i
FOR j = 1 TO 36
tr(j) = ar + j * 10 * RG
qx(j) = x0 + 1.1 * r * SIN(tr(j))
qy(j) = y0 - 1.1 * r * COS(tr(j))
NEXT j
PSET (qx(1), qy(1)), 0
DRAW "C9BM-6,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(2), qy(2)), 0
DRAW "C9BM-6,-3"
DRAW "BD R U R3 D3 G3 D2 L D R5 U L3 U2 E3 U2 BU"'2
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(3), qy(3)), 0
DRAW "C9BM-6,-3"
DRAW "BD R U R3 D4 NL2 D5 L3 U L BR5 U3 BU2 U2 BU"'3
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(4), qy(4)), 0
DRAW "C9BM-6,-3"
DRAW "BR3 G D G D G D NR5 D R3 D2 R U2 NR BH U6 R ND5 BR"'4
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(5), qy(5)), 0
DRAW "C9BM-6,-3"
DRAW "BD2 D2 BD4 R D R3 U5 R ND4 H L3 ND U3 F U R3" '5
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(6), qy(6)), 0
DRAW "C9BM-6,-3"
DRAW "BD2 D6 F NR3 U5 R3 ND4 F ND3 BU BL4 U3 E R2 D R BU"'6
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(7), qy(7)), 0
DRAW "C9BM-6,-3"
DRAW "R4 D G D G D2 G D2 R U2 E U2 E U2 R U" '7
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(8), qy(8)), 0
DRAW "C9BM-6,-3"
DRAW "BR NR2 G ND2 R D3 NR2 G ND3 R D4 R3 E NU3 L U4 E NU2 L U3 BR"'8
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(9), qy(9)), 0
DRAW "C9BM-6,-3"
DRAW "BR G D3 F NU4 R3 D3 G L2 U L BR4 U8 NL2 F ND6 BU"'9
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(10), qy(10)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(11), qy(11)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(12), qy(12)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD R U R3 D3 G3 D2 L D R5 U L3 U2 E3 U2 BU"'2
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(13), qy(13)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD R U R3 D4 NL2 D5 L3 U L BR5 U3 BU2 U2 BU"'3
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(14), qy(14)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR3 G D G D G D NR5 D R3 D2 R U2 NR BH U6 R ND5 BR"'4
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(15), qy(15)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD2 D2 BD4 R D R3 U5 R ND4 H L3 ND U3 F U R3" '5
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(16), qy(16)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD2 D6 F NR3 U5 R3 ND4 F ND3 BU BL4 U3 E R2 D R BU"'6
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(17), qy(17)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "R4 D G D G D2 G D2 R U2 E U2 E U2 R U" '7
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(18), qy(18)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR NR2 G ND2 R D3 NR2 G ND3 R D4 R3 E NU3 L U4 E NU2 L U3 BR"'8
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(19), qy(19)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "R4 D G D G D2 G D2 R U2 E U2 E U2 R U" '7
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(20), qy(20)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD2 D6 F NR3 U5 R3 ND4 F ND3 BU BL4 U3 E R2 D R BU"'6
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(21), qy(21)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD2 D2 BD4 R D R3 U5 R ND4 H L3 ND U3 F U R3" '5
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(22), qy(22)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR3 G D G D G D NR5 D R3 D2 R U2 NR BH U6 R ND5 BR"'4
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(23), qy(23)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD R U R3 D4 NL2 D5 L3 U L BR5 U3 BU2 U2 BU"'3
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(24), qy(24)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BD R U R3 D3 G3 D2 L D R5 U L3 U2 E3 U2 BU"'2
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(25), qy(25)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(26), qy(26)), 0
DRAW "C9BM-10,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(27), qy(27)), 0
DRAW "C9BM-6,-3"
DRAW "BR G D3 F NU4 R3 D3 G L2 U L BR4 U8 NL2 F ND6 BU"'9
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(28), qy(28)), 0
DRAW "C9BM-6,-3"
DRAW "BR NR2 G ND2 R D3 NR2 G ND3 R D4 R3 E NU3 L U4 E NU2 L U3 BR"'8
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(29), qy(29)), 0
DRAW "C9BM-6,-3"
DRAW "R4 D G D G D2 G D2 R U2 E U2 E U2 R U" '7
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(30), qy(30)), 0
DRAW "C9BM-6,-3"
DRAW "BD2 D6 F NR3 U5 R3 ND4 F ND3 BU BL4 U3 E R2 D R BU"'6
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(31), qy(31)), 0
DRAW "C9BM-6,-3"
DRAW "BD2 D2 BD4 R D R3 U5 R ND4 H L3 ND U3 F U R3" '5
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(32), qy(32)), 0
DRAW "C9BM-6,-3"
DRAW "BR3 G D G D G D NR5 D R3 D2 R U2 NR BH U6 R ND5 BR"'4
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(33), qy(33)), 0
DRAW "C9BM-6,-3"
DRAW "BD R U R3 D4 NL2 D5 L3 U L BR5 U3 BU2 U2 BU"'3
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(34), qy(34)), 0
DRAW "C9BM-6,-3"
DRAW "BD R U R3 D3 G3 D2 L D R5 U L3 U2 E3 U2 BU"'2
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(35), qy(35)), 0
DRAW "C9BM-6,-3"
DRAW "BR3 G2 D E2 D8 R U9 BR"'1
DRAW "BR3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
PSET (qx(36), qy(36)), 0
DRAW "C9BM-3,-3"
DRAW "BR G D7 F U9 R3 D9 NL2 E U7 BU"'0
FOR ro = 10 TO 90 STEP 10
IF ro = 30 OR ro = 60 OR ro = 90 THEN g = 14 ELSE g = 15
FOR fi = 0 TO 180 STEP 2
ror = ro * RG: fir = fi * RG
dy = (r * COS(ror)) / (SIN(ror) * SIN(fir) + 1)
dx = (r * SIN(ror) * COS(fir)) / (SIN(ror) * SIN(fir) + 1)
br = ATN(dy / dx): D = SQR(dx ^ 2 + dy ^ 2)
b1r = br + ar
dy1 = D * SIN(b1r)
dx1 = D * COS(b1r)
m = x0 + dx1: n = y0 + dy1
m1 = x0 - dx1: n1 = y0 - dy1
PSET (m, n), g
PSET (m1, n1), g
NEXT fi
NEXT ro
FOR fi = 0 TO 90 STEP 10
IF fi = 30 OR fi = 60 OR fi = 90 THEN g = 14 ELSE g = 15
FOR ro = 10 TO 170 STEP 2
ror = ro * RG: fir = fi * RG
dy = (r * COS(ror)) / (SIN(ror) * SIN(fir) + 1)
dx = (r * SIN(ror) * COS(fir)) / (SIN(ror) * SIN(fir) + 1)
br = ATN(dy / dx): D = SQR(dx ^ 2 + dy ^ 2)
b1r = br + ar
dy1 = D * SIN(b1r)
dx1 = D * COS(b1r)
m = x0 + dx1: n = y0 + dy1
m1 = x0 - dx1: n1 = y0 - dy1
PSET (m, n), g
PSET (m1, n1), g
NEXT ro
NEXT fi
INPUT s$
IF s$ = "" THEN GOTO 1
END
Этот фрагмент кода рисует так называемую "сетку Вульфа" с поворотом на заданный угол. На всякий случай сам файл прилагаю. |
