• Welcome to Powerbasic Museum 2020-B.
 

News:

Forum in repository mode. No new members allowed.

Main Menu

GDI+: GdipAddPathClosedCurve

Started by José Roca, June 22, 2008, 05:02:47 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

José Roca



The following example creates a GraphicsPath object path, adds a closed cardinal spline to path, and then draws path.

C++


VOID Example_AddClosedCurve(HDC hdc)
{
   Graphics graphics(hdc);

   PointF pts[] = {PointF(50.0f,50.0f),
                   PointF(60.0f,20.0f),
                   PointF(70.0f,100.0f),
                   PointF(80.0f,50.0f)};

   GraphicsPath path;
   path.AddClosedCurve(pts, 4);

   // Draw the path.
   Pen pen(Color(255, 255, 0, 0));
   graphics.DrawPath(&pen, &path);
}


PowerBASIC


SUB GDIP_AddPathClosedCurve (BYVAL hdc AS DWORD)

   LOCAL hStatus AS LONG
   LOCAL pGraphics AS DWORD
   LOCAL pPath AS DWORD
   LOCAL pPen AS DWORD
   DIM   pts(3) AS POINTF

   hStatus = GdipCreateFromHDC(hdc, pGraphics)

   hStatus = GdipCreatePath(%FillModeAlternate, pPath)
   pts(0).x = 50  : pts(0).y = 50
   pts(1).x = 60  : pts(1).y = 20
   pts(2).x = 70  : pts(2).y = 100
   pts(3).x = 80  : pts(3).y = 50
   hStatus = GdipAddPathClosedCurve(pPath, pts(0), 4)

   ' // Draw the path.
   hStatus = GdipCreatePen1(GDIP_ARGB(255, 255, 0, 0), 1, %UnitWorld, pPen)
   hStatus = GdipDrawPath(pGraphics, pPen, pPath)

   ' // Cleanup
   IF pPen THEN GdipDeletePen(pPen)
   IF pPath THEN GdipDeletePath(pPath)
   IF pGraphics THEN GdipDeleteGraphics(pGraphics)

END SUB