2015-05-25 142 views
-4

我需要绘制一个圆,其中必须放置一个带有与圆线相交的角的正方形。用圆圈绘制矩形,用不同的颜色保留颜色

之后,剩下的四个部分必须用不同的颜色着色。

正方形的颜色并不重要。

+0

是圆的半径知道? – DiscipleMichael

+0

是的,这是一个2厘米,但可以是任何值 – veljasije

+1

没错。所以,你所要做的就是垂直和水平剖析圆。然后,相交线与圆相接的每个点都连接到下一行。基本上,只需在圆的中心画一个十字,然后连接点。这会给你广场。然后,以不同的方式着色方形。 – DiscipleMichael

回答

2

尝试这样的事情了:

Public Class Form1 

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint 
     Dim radius As Integer = 100 
     Dim center As New Point(125, 125) 
     Dim Y As Integer = radius * Math.Sin(45 * Math.PI/180) 
     Dim X As Integer = radius * Math.Cos(45 * Math.PI/180) 
     Dim centerRC As New Rectangle(center.X - X, center.Y - Y, X * 2, Y * 2) 
     Dim ellipseRC As New Rectangle(center.X - radius, center.Y - radius, radius * 2, radius * 2) 

     e.Graphics.ExcludeClip(centerRC) 
     e.Graphics.FillPie(Brushes.Red, ellipseRC, 225, 90) 
     e.Graphics.FillPie(Brushes.Green, ellipseRC, -45, 90) 
     e.Graphics.FillPie(Brushes.Blue, ellipseRC, 45, 90) 
     e.Graphics.FillPie(Brushes.White, ellipseRC, 135, 90) 
    End Sub 

End Class 

结果:

Ellipse Problem Output

相关问题