Платоново тело. Додекаэдр

После картины "Радужный тор" пришла идея программно строить интересные фигуры, а потом их раскрашивать вручную. Вчера такую попытку предпринял. Представляю мое самое любимое платоново тело. В юности удалось сделать развертку этой фигуры, склеить и отнести в школу в качестве подарка учительнице по геометрии. Ну, а вчера составил прогу на языке Yabasic и распечатал при помощи плоттера контур этого рисунка на художественном картоне. Сегодня утром раскрасил и вставил в рамку. Опять же использовал семь основных цветов плюс чёрный.  Текст проги:

dim x(20),y(20),x1(20),y1(20)
r=200
k=1.5
R=r*k
x0=400:y0=400
for i=0 to 4
a=i*2*pi/5
x(i)=r*cos(a)
y(i)=r*sin(a)
next i
x(5)=x(0):y(5)=y(0)
for j=0 to 9
b=j*pi/5
x1(j)=R*cos(b)
y1(j)=R*sin(b)
next j
x1(10)=x1(0):y1(10)=y1(0)
open window 1000,1000
for i=1 to 5
line x(i-1)+x0,y(i-1)+y0 to x(i)+x0,y(i)+y0
next i
for i=1 to 10
line x1(i-1)+x0,y1(i-1)+y0 to x1(i)+x0,y1(i)+y0
next
line x(0)+x0,y(0)+y0 to x1(0)+x0,y1(0)+y0
line x(1)+x0,y(1)+y0 to x1(2)+x0,y1(2)+y0
line x(2)+x0,y(2)+y0 to x1(4)+x0,y1(4)+y0
line x(3)+x0,y(3)+y0 to x1(6)+x0,y1(6)+y0
line x(4)+x0,y(4)+y0 to x1(8)+x0,y1(8)+y0

22 ноября 2022 г