forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)
-   -   Corner ( углы) (http://forum.boolean.name/showthread.php?t=21054)

polopok 12.05.2025 00:21
Corner ( углы)
 
Вложений: 1
Corner ( углы) Вложение 23430
Функция графического представления улов ( битовая маска).
Углы : ( с заливкой / без заливки)
( -8,-7,-6,-5) - прямоугольные внутренние.
( -4,-3,-2,-1) - прямоугольные внешние.
( 0,1,2,3) - скруглённые внешние.
( 4,5,6,7) - скос.
( 8,9,10,11) -скруглённые внутренние.
Дополнительно.
Функция графического представления треугольника
Функция графического представления линии ( битовая маска)
Пример exe в архиве.

polopok 12.05.2025 17:43
Ответ: Corner ( углы)
 
Тут такая особенность, WritePixel и WritePixelFast по разному отображаются, если установлен viewPort 60, 40, 100, 40, вот и стоит заменить linebreak на функцию в Оффтопе.


Код:
Function linebreak( x1#, y1#, x2#, y2#, byte% = %11111111111111111111111111111111)
    if x1 = x2 and y1 = y2 then plot x1, y1
   
    local rgb = ColorBlue() Or ( ColorGreen() Shl 8) Or ( ColorRed() Shl 16)

    local xd# = x2 - x1
    local yd# = y2 - y1
    local steps#

    If Abs(xd) > Abs(yd) Then steps = Abs(xd) Else steps = Abs(yd)
    x2 = xd / Float(steps)
    y2 = yd / Float(steps)

    local ob = 0
    local bit = False

    For steps = steps To 1 Step -1
        bit = byte Shr ob And %1

        if y1 > 0 and y1 < GraphicsHeight() - 1 and x1 > 0 and x1 < GraphicsWidth() - 1 then
            If bit = 1 Then  WritePixel x1, y1, rgb
        endif
       
        x1 = x1 + x2
        y1 = y1 + y2
       
        ob = ob + 1
        If ob >= 32 Then ob = 0
    Next
End Function


Часовой пояс GMT +4, время: 03:48.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot