S.10　Fill Circle

　円を使って、単純な塗りつぶしで立体感を描いた作図です。外形となる円の線の色と、円内部を塗りつぶす色とはLINEメニューの中のColorとFillColorサブメニューで別々に指定できます。

Public Sub Proc10() 'Fill Circle
    Const X0 = -200, Y0 = 0
    Dim x, y, deg, r_dai, r_syo, sft, step
    Select Case Ivar
        Case 1: step = 1
        Case 2: step = 1.5
        Case 3: step = 2
        Case 4: step = 2.5
        Case Else: step = 1
    End Select
    Dperas
    Dpwind 0, 0, 640
    sft = 100: y = 200
    r_dai = 100: r_syo = 90
    For deg = 0 To 360 * 3 Step 6
        x = r_dai * Cos(deg * pie / 180)
        y = r_dai * Sin(deg * pie / 180)
        x = x + X0 + sft: sft = sft + step
        y = y + Y0
    Dpcirc x, y, r_syo
    If deg > 360 * 2 Then r_syo = r_syo * 0.98
    Next
End Sub