PieDraw

Синтаксис

Function PieDraw(ByVal x As Long,ByVal y As Long,ByVal w As Long,ByVal h As Long,ByVal x1 As Long,ByVal y1 As Long,ByVal x2 As Long,ByVal y2 As Long,ByVal ColorPen As Long=0,ByVal ColorBk As Long=0,ByVal widthPen As Long=0,ByVal StylePen As Long=PS_SOLID) As Integer

Описание

Рисует клин в форма пирога, ограниченный пересечением эллипса и двух радиальных лучей. В Linux размер iWidth всегда равен iHeight . Если в функцию задать разные размеры , то iWidth и iHeight сравняются автоматически по большему размеру

Параметры

x - координата X в логических координатах, верхнего левого угла ограничивающего прямоугольника

y - координата Y в логических координатах, верхнего левого угла ограничивающего прямоугольника

w - ширина ограничивающего прямоугольника

h - высота ограничивающего прямоугольника

x1 - координата X в логических координатах, конечной точки первого радиального луча

y1 - координата Y в логических координатах, конечной точки первого радиального луча

x2 - координата X в логических координатах, конечной точки второго радиального луча

y2 - координата Y в логических координатах, конечной точки второго радиального луча

ColorPen - цвет границы прямоугольника

ColorBk - цвет заполнения прямоугольника (если значение будет -1, то прозрачный цвет)

widthPen - ширина пера границы

StylePen - стиль границы, может быть:

PS_SOLID - Сплошная граница .
PS_DASH - Штриховая граница. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DOT - Пунктирная граница. Этот стиль допустим только тогда, ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOT - Стиль имеет чередующиеся штрихи и точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_DASHDOTDOT - Стиль имеет чередующиеся штрихи и двойные точки. Этот стиль допустим только тогда, когда ширина пера границы равняется единице или меньше ее, в единицах измерения устройства (пикселях).
PS_NULL - граница невидима.
PS_INSIDEFRAME - (только для windows) Сплошная граница. Когда этот стиль используется в какой-либо рисующей функции GDI, размеры фигуры сжимаются так, чтобы она вместилась полностью в прямоугольнике ограничения, принимая во внимание толщину пера

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim Shared As integer event,M,f
Dim Shared As HWND hwnd
function draw_anim() As Integer
WindowStartDraw(hwnd,0,0,200,200)
   FillRectDraw(10,10,&hf0f0f0)
   PieDraw(10,10,120,120,150,20+M,160,130-M,255,&hff0000,2)
   CircleDraw(95,35+M\20,10,&h00ffFF,&h00ff,4)
StopDraw
If f=0 Then
 M+=3
Else
 M-=3
EndIf
If M=54 Then f=1
If M=0 Then f=0
Return TRUE
End Function
hwnd=OpenWindow("",100,100,160,180)
SetTimer(hwnd,1,10,Cast(Any Ptr,@draw_anim))
Do : Loop Until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Easily create EBooks