1 2 3 4 5 6 7 8 9 10 11 12 13 | CONST pi = 3.141592653589793 #, Gradus = pi / 180 CONST deleniye = 72 , chastey = ( 360 \ deleniye) - 1 DIM xm%(chastey), ym%(chastey) cx = 320 : cy = 240 : r = 150 FOR i% = 0 TO chastey xm%(i%) = cx + COS(i% * Gradus * deleniye) * r ym%(i%) = cy - SIN(i% * Gradus * deleniye) * r NEXT ' Вывод линий SCREEN 12 FOR i% = 0 TO chastey LINE (xm%(i%), ym%(i%))-(xm%((i% + 1 ) MOD (chastey + 1 )), ym%((i% + 1 ) MOD (chastey + 1 ))), 10 NEXT |
Тестирование выполнено в программе QB64 ( Скачать )