Тема: Line
Показать сообщение отдельно
Старый 23.12.2008, 00:43   #8
Tadeus
Троллота
 
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений
(для 1,772 пользователей)
Ответ: Line

Function DrawLine(x1,y1,x2,y2)
    e=2*y2-x2
    es=2*y2
    ed=2*y2-2*x2

    nx=x1
    ny=y1

    While nx<x2
        Plot nx,ny
        If (e>0) Then
            nx=nx+1
            ny=ny+1
            e=e+ed
        Else
            nx=nx+1
            e=e+es
        EndIf
    Wend
End Function
Вот классика жанра
(Offline)
 
Ответить с цитированием