Цитата WQ (
)
А как в подобных примерах можно менять толщину рисуемой линии?
Замени алгоритм рисования Line . Вот один из примеров, написанный BasicCoder2(ом):
Код
Sub thickLine(x1 As Integer,y1 As Integer,x2 As Integer,y2 As Integer,size As Integer,c As UInteger)
Dim As Integer x,y
If x1 = x2 And y1 = y2 Then
Circle (x1, y1), size, c, , , , f
ElseIf Abs(x2 - x1) >= Abs(y2 - y1) Then
Dim K As Single = (y2 - y1) / (x2 - x1)
For I As Integer = x1 To x2 Step Sgn(x2 - x1)
x = I
y = K * (I - x1) + y1
Circle (x,y), size, c, , , , f
Next I
Else
Dim L As Single = (x2 - x1) / (y2 - y1)
For J As Integer = y1 To y2 Step Sgn(y2 - y1)
x = L * (J - y1) + x1
y = J
Circle (x,y), size,c,,,,f
Next J
End If
End Sub
Последние два параметра функции: ширина пера и цвет пера
