Как нарисовать зелёную радужку глаза

[Anton]

Программа рисует чёрный круг (зрачок) и потом поверх него зелёную радужку.

Листинг программы:

Код: Выделить всё

open window 640,512
backcolor 150,150,150
clear window

dfgh = 0.01
r1 = 200
r = 0
g = 250
b = 170
n = 0

 color 0,0,0
    fill circle 320,256, 197

do
   
    color max(r,0), max(g,0), max(b,0)
    line 320 + r1 * sin(n), 256 + r1 * cos(n) to 320,256

    // Уменьшение радиуса и снижение насыщенности цвета
    r1 = r1 - dfgh
    g = g - 0.016
    b = b - 0.016

    // Закончить цикл при заданном условии и нарисовать белый круг
    if g < -30 then
        color 255,255,255
        fill circle 375,200,27
        break
    endif

    // Инкремент угла
    n = n + 0.2
    sleep 0.0001
loop

Результат выполнения программы:

2025-05-16_18-56-14.gif