Знак РАДИАЦИИ

прога на бейсике, рисует знак радиации.
qr = .0174329252#

c2 = 14
LINE (180, 470)-(350, 175), c2 '1 treugolnik
LINE (350, 175)-(520, 470), c2
LINE (520, 470)-(180, 470), c2
PAINT (183, 469), 14, 14

c2 = 0
LINE (190, 460)-(350, 180), c2 '2 treugolnik
LINE (350, 180)-(510, 460), c2
LINE (510, 460)-(190, 460), c2

PAINT (195, 458), 0, 0
c2 = 14
LINE (200, 455)-(350, 195), c2 '3 treugolnik
LINE (350, 195)-(500, 455), c2
LINE (500, 455)-(200, 455), c2
PAINT (220, 440), 14, 14

CIRCLE (350, 360), 15, 0 'krug
PAINT (350, 360), 0, 0

CIRCLE (350, 360), 75, 0, qr * 0, qr * 60 '1 lepestok
CIRCLE (350, 360), 23, 0, qr * 0, qr * 60
ps1x = 75 * COS(300 * qr) + 350
ps1y = 75 * SIN(300 * qr) + 360
ps2x = 23 * COS(300 * qr) + 350
ps2y = 23 * SIN(300 * qr) + 360
ps3x = 75 * COS(0 * qr) + 350
ps3y = 75 * SIN(0 * qr) + 360
ps4x = 23 * COS(0 * qr) + 350
ps4y = 23 * SIN(0 * qr) + 360
LINE (ps1x, ps1y)-(ps2x, ps2y), 0
LINE (ps3x, ps3y)-(ps4x, ps4y), 0
PAINT (ps1x, ps1y + 2), 0, 0

CIRCLE (350, 360), 75, 0, qr * 120, qr * 180 '2 lepestok
CIRCLE (350, 360), 23, 0, qr * 120, qr * 180
ps1x = 75 * COS(240 * qr) + 350
ps1y = 75 * SIN(240 * qr) + 360
ps2x = 23 * COS(240 * qr) + 350
ps2y = 23 * SIN(240 * qr) + 360
ps3x = 75 * COS(180 * qr) + 350
ps3y = 75 * SIN(180 * qr) + 360
ps4x = 23 * COS(180 * qr) + 350
ps4y = 23 * SIN(180 * qr) + 360
LINE (ps1x, ps1y)-(ps2x, ps2y), 0
LINE (ps3x, ps3y)-(ps4x, ps4y), 0
PAINT (ps1x, ps1y + 2), 0, 0

CIRCLE (350, 360), 75, 0, qr * 240, qr * 300 '3 lepestok
CIRCLE (350, 360), 23, 0, qr * 240, qr * 300
ps1x = 75 * COS(60 * qr) + 350
ps1y = 75 * SIN(60 * qr) + 360
ps2x = 23 * COS(60 * qr) + 350
ps2y = 23 * SIN(60 * qr) + 360
ps3x = 75 * COS(120 * qr) + 350
ps3y = 75 * SIN(120 * qr) + 360
ps4x = 23 * COS(120 * qr) + 350
ps4y = 23 * SIN(120 * qr) + 360
LINE (ps1x, ps1y)-(ps2x, ps2y), 0
LINE (ps3x, ps3y)-(ps4x, ps4y), 0
PAINT (ps1x - 2, ps1y), 0, 0

у моей подруги в квартире на обоях был такой знак. - поменяла