Показать сообщение отдельно
Старый 05.10.2015, 06:03   #6
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Ответ: Пунктирная окружность

Функция окружность пунктиром с регулируемым шагом .
DarkInside , если у тебя не получилось , то посмотри этот

Код под спойлером :

Function StepCircle(Point_X# ,Point_Y# ,Radius# = 1,Offset = 4 , rr% = 255 ,gg% = 255 ,bb% = 255)
    Local angle = 0 , trigger
    If Offset < 1 Offset = 1
    While  angle  < 360 
        If trigger
            For thisAngle# = angle  To angle  +Offset  Step 0.1
                x# = Radius * Cos (thisAngle) + Point_X# 
                y# = Radius * Sin (thisAngle) + Point_Y#     
                WritePixel x,y, (rr*$10000+gg*$100+bb)
            Next
        EndIf
        angle  = angle  + Offset  
        trigger = Not trigger
    Wend
End Function
__________________
Мой проект здесь
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
DarkInside (06.10.2015)