FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 11:43Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Рисование нестандартной площади (Рисование нестандартной площади)
Рисование нестандартной площади
haavДата: Понедельник, 11.02.2013, 07:04 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Рисование нестандартной площади


Я даже не знаю как эта фигура называется. Наверное не это главное...
Автор: Albert



Код

' autor: Albert
dim as integer xres,yres
screen 19
screeninfo xres,yres
screenres xres,yres

dim as double rad = atn(1)/45
dim as double c,s,deg2
dim as double x1,y1,sqrt
dim as ulongint deg, xctr=xres/2, yctr=yres/2, radius=400

deg2=0
for deg = 0 to 90 step 1
      
     c=((90-deg)*rad)*(rad*50)
     s=(deg*rad)*(rad*50)

     sqrt = sqr(1-(s*c+s*s)*c)
      
     x1=radius*c*sqrt/2
     y1=radius*s*sqrt/2 ' divide by 2 to 5 for rectangle | no divide for square
      
     'line(xctr,yctr)-(xctr+x1,yctr+y1),11
     'line(xctr,yctr)-(xctr+x1,yctr-y1),11
     'line(xctr,yctr)-(xctr-x1,yctr+y1),11
     'line(xctr,yctr)-(xctr-x1,yctr-y1),11
      
     circle(xctr+x1,yctr+y1),5,9,,,,f
     circle(xctr+x1,yctr-y1),5,9,,,,f
     circle(xctr-x1,yctr+y1),5,9,,,,f
     circle(xctr-x1,yctr-y1),5,9,,,,f
      
     sleep 10
next
     circle(xctr,yctr),25,9
     paint(xctr+30,yctr+30),9,9

sleep     
Прикрепления: 3931161.png (35.3 Kb)


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Рисование нестандартной площади (Рисование нестандартной площади)
  • Страница 1 из 1
  • 1
Поиск: