Draws a cardinal spline
#include <GDIPlus.au3>
_GDIPlus_GraphicsDrawCurve2 ( $hGraphics, $aPoints, $nTension [, $hPen = 0] )
| $hGraphics | Pointer to a Graphics object |
| $aPoints | Array of points that specify the coordinates that the cardinal spline passes through: [0][0] - Number of points [1][0] - Point 1 X position [1][1] - Point 1 Y position [2][0] - Point 2 X position [2][1] - Point 2 Y position [n][0] - Point n X position [n][1] - Point n Y position |
| $nTension | Number that specifies how tightly the curve bends through the coordinates of the closed cardinal spline |
| $hPen | [optional] Handle to a pen object that is used to draw the splines. If 0, a solid black pen with a width of |
| Success: | True. |
| Failure: | False and sets the @error flag to non-zero, @extended may contain GPSTATUS error code ($GPIP_ERR* see GPIPlusConstants.au3). |
Search GdipDrawCurve2 in MSDN Library.
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
Global $g_hGUI, $g_hGraphics, $g_hBitmap, $g_hGfxCtxt, $g_hPen
Example()
Func Example()
AutoItSetOption("GUIOnEventMode", 1)
_GDIPlus_Startup() ;initialize GDI+
Local Const $iWidth = 600, $iHeight = 600, $iBgColor = 0x303030 ;$iBGColor format RRGGBB
$g_hGUI = GUICreate("GDI+ Example (" & @ScriptName & ")", $iWidth, $iHeight) ;create a test GUI
GUISetBkColor($iBgColor, $g_hGUI) ;set GUI background color
GUISetState(@SW_SHOW)
;create buffered graphics frame set for smoother gfx object movements
$g_hGraphics = _GDIPlus_GraphicsCreateFromHWND($g_hGUI) ;create a graphics object from a window handle
$g_hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $g_hGraphics)
$g_hGfxCtxt = _GDIPlus_ImageGetGraphicsContext($g_hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($g_hGfxCtxt, $GDIP_SMOOTHINGMODE_HIGHQUALITY) ;sets the graphics object rendering quality (antialiasing)
$g_hPen = _GDIPlus_PenCreate(0xFFFF8060, 2)
_GDIPlus_GraphicsSetPixelOffsetMode($g_hGfxCtxt, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
Local $aPoints[11][4], $x, $y
$aPoints[0][0] = 10
For $y = 0 To 1
For $x = 1 To 5
$aPoints[$y * 5 + $x][0] = 100 + 300 * $y + 50 ;x coordinate of the point
$aPoints[$y * 5 + $x][1] = 150 + $x * 50 ;y coordinate of the point
$aPoints[$y * 5 + $x][2] = Random(-2, 2) ;x vector of the point
$aPoints[$y * 5 + $x][3] = Random(-2, 2) ;y vector of the point
Next
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Do
_GDIPlus_GraphicsClear($g_hGfxCtxt, 0xFF000000 + $iBgColor) ;clear bitmap for repaint
_GDIPlus_GraphicsDrawClosedCurve2($g_hGfxCtxt, $aPoints, 1.25, $g_hPen) ;draw closed curve
_GDIPlus_GraphicsDrawImage($g_hGraphics, $g_hBitmap, 0, 0) ;copy bitmap to graphic handle (GUI)
For $y = 1 To $aPoints[0][0]
$aPoints[$y][0] += $aPoints[$y][2] ;calculate new x position
If $aPoints[$y][0] < 0 Or $aPoints[$y][0] > $iWidth Then $aPoints[$y][2] *= -1 ;if vertical border is reached invert x vector
$aPoints[$y][1] += $aPoints[$y][3] ;calculate new y position
If $aPoints[$y][1] < 0 Or $aPoints[$y][1] > $iHeight Then $aPoints[$y][3] *= -1 ;if horizontal border is reached invert y vector
Next
Until Not Sleep(30) ;sleep 30 ms to avoid high cpu usage
EndFunc ;==>Example
Func _Exit()
;cleanup GDI+ resources
_GDIPlus_PenDispose($g_hPen)
_GDIPlus_GraphicsDispose($g_hGfxCtxt)
_GDIPlus_GraphicsDispose($g_hGraphics)
_GDIPlus_BitmapDispose($g_hBitmap)
_GDIPlus_Shutdown()
GUIDelete($g_hGUI)
Exit
EndFunc ;==>_Exit