BezierDrawA

Синтаксис

Sub BezierDrawA(ByVal x0 As single,ByVal y0 As single,ByVal x1 As single,ByVal y1 As single,ByVal x2 As single,ByVal y2 As single,ByVal x3 As single,ByVal y3 As single,ByVal ColorPen As integer=&hff000000,ByVal brushPen as Any Ptr=0,ByVal widthPen As Single=1)

Описание

Используется для рисования безье

Параметры

x0 , y0 , x1 , y1 , x2 , y2 , x3 , y3 - координаты 4 точек безье

ColorPen - цвет линии безье

brushPen - кисть для заполнения безье (может быть создана функцией CreateBrushA (градиэнт или текстура)). Если в параметре будет 0, то используется ColorPen

widthPen - ширина линии безье

Платформы

Windows , Linux

Пример1

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(260,270)
Dim As Hbitmap bmp
Dim As HWND hw
Dim As Any ptr brush
brush=CreateBrushA(1,1,120,90,&h80000000,&hF0FFF0f0)
ImageStartDrawA(Gpbitmap,1,&hffff0000)
  ModeDrawA(ANTIALIAS_GOOD)'QualityModeHigh
  BezierDrawA(127,60,-56,60,254,210,74,200,&hFF0FFFF0,,10)
  BezierDrawA(127,60,300,60,0,210,180,200,,brush,10)
StopDrawA
hw=OpenWindow("GDI+",100,100,260,270)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
imagegadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeBrushA(brush):FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Пример2

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(300,300)
Dim As Hbitmap bmp
Dim As HWND hw
ImageStartDrawA(Gpbitmap)
ModeDrawA(ANTIALIAS_GOOD)'QualityModeHigh
BezierDrawA(66,10,85,81,19,129,7,199,,,15)
BezierDrawA(61,6,104,20,155,32,70,52,,,15)
BezierDrawA(118,32,141,-20,152,19,160,50,,,15)
BezierDrawA(155,53,167,28,309,60,290,295,,,15)
BezierDrawA(295,289,113,287,143,289,91,289,,,15)
BezierDrawA(98,286,100,237,157,239,168,106,,,15)
BezierDrawA(152,161,141,159,95,182,71,235,,,15)
BezierDrawA(74,231,67,237,42,229,60,210,,,15)
BezierDrawA(55,197,40,245,15,211,9,196,,,15)
BezierDrawA(96,88,51,101,82,129,99,89,,,15)
roundDrawA(33,186,7,11)
StopDrawA
hw=OpenWindow("GDI+",100,100,315,338)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
ImageGadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator