델파이의 TCanvas와 함께 Google지도처럼 마커 그리기

Question

내 응용 프로그램에서 Google지도 마커 (그림 참조)와 같은 "마커"를 TCanvas에 그려야합니다.

반경, 높이 원점 매개 변수로 내가 사용하고 싶습니다 :

내가 사용하는 알고리즘에 대한 아이디어를 필요는 없습니다. 상단을 그리려면 호를 사용할 수 있지만 어떻게 그릴 수 있습니까? 참고 : GDI와 GDI +를 모두 사용해야하므로 모든 솔루션을 환영합니다.

Answer 1

여기에 200x200 PaintBox을 사용한 빠른 예가 있습니다. 알고리즘에 대한 아이디어는 적어도 제공해야합니다. 중간에 검은 점을 그릴 수 있다고 생각합니다. Bezier Curves에 읽으십시오; 시작 단부 및 2 개의 제어점 -은 PolyBeziercubic Bezier curves. (link)

포 포인트는 큐빅 베 지어 곡선을 정의하는 정의한다. 제어점은 선이 처음부터 끝까지 움직일 때 곡률 강도를 정의합니다.

var origin, innerL, midL, midR, lft, tp, rgt, innerR : TPoint; 
    radius, hgt : integer; 
begin  
    radius := 25; 
    hgt := 90;  
    origin.X := 100; 
    origin.Y := 180; 
    //control points 
    innerL.X := origin.X; 
    innerL.Y := origin.Y - (hgt - radius) div 3; 
    midL.X := origin.X - radius; 
    midL.Y := origin.Y - 2*((hgt - radius) div 3); 
    //top circle 
    lft.X := origin.X - radius; 
    lft.Y := origin.Y - (hgt - radius); 
    tp.X := origin.X; 
    tp.Y := origin.Y - hgt; 
    rgt.X := origin.X + radius; 
    rgt.Y := lft.Y; 
    //control points 
    midR.X := origin.X + radius; 
    midR.Y := midL.Y; 
    innerR.X := origin.X; 
    innerR.Y := innerL.Y; 

    PaintBox1.Canvas.Pen.Width := 2; 
    PaintBox1.Canvas.PolyBezier([origin, innerL, midL, lft]); 
    PaintBox1.Canvas.Arc(lft.X, tp.Y, rgt.X, rgt.Y + radius, rgt.X, rgt.Y, lft.X, lft.Y); 
    PaintBox1.Canvas.PolyBezier([rgt, midR, innerR, origin]); 
    //fill 
    PaintBox1.Canvas.Brush.Color := clYellow; 
    PaintBox1.Canvas.FloodFill(origin.X, origin.Y - radius, 
          Canvas.Pen.Color, TFillStyle.fsBorder);  
end; 

는 하나 베 지어이 할 수있는 지점 만족하려면

이

// add four more control TPoints 
    cornerL.X := lft.X; 
    cornerL.Y := tp.Y + radius div 2; 
    cL2.X := lft.X + radius div 2; 
    cL2.Y := tp.Y; 
    cR2.X := rgt.X - radius div 2; 
    cR2.Y := tp.Y; 
    cornerR.X := rgt.X; 
    cornerR.Y := cornerL.Y; 


    PaintBox1.Canvas.PolyBezier([origin, innerL, midL, lft, 
           cornerL, cL2, tp, cR2, cornerR, rgt, 
           midR, innerR, origin]);