Адрес: ул. Б. Очаковская 32 Москва Россия
Наши официальные канал и чат в telegram, группа в ВКонтакте

Diamond Sierp3

Очередная графическая демка

Библиотеки и примеры программ на языке Yabasic
Аватара пользователя
Anton
Site Admin
Сообщения: 137
Зарегистрирован: Чт фев 08, 2024 7:03 pm
Откуда: Москва

Diamond Sierp3

Сообщение Anton »

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

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

open window 640,512
backcolor 0,0,0
clear window

for sides=3 to 10

	clear window
	
	scale=(sides-2)/(sides-1)
	
	dim p(sides,2)
	
	for x=0 to sides
	 angle=(x/sides)*2*3.141
	 p(x,1)=320+256*cos(angle)
	 p(x,2)=256+256*sin(angle)
	next x
	
	px=ran(640)
	py=ran(512)
	
	c=0
	
	repeat
	 color ran(256),ran(256),ran(256)
	 point=max(min(sides,ran(sides)+1),1)
	 px=((p(point,1)-px)*scale)+px
	 py=((p(point,2)-py)*scale)+py
	 fill rectangle px,py to px+1,py+1
	 c=c+1
	until (c>10000)
	pause 2
next sides
Демонстрация работы:
2025-05-16_17-29-34.gif
У вас нет необходимых прав для просмотра вложений в этом сообщении.