请大家伙儿帮助解读一段代码

请大家帮助解读一段代码
下面是等分圆的划线的代码片段，请问它的算法以及语句Angle = i * 2 * Atan(1)/3的作用？


  '创建Pen对象
        'Dim StartPoint(23), EndPoint(23), OriginPoint As PointF
        Dim StartPoint, EndPoint, OriginPoint As PointF

        '定义刻度的起点和终点，坐标原点
        OriginPoint.X = 100
        OriginPoint.Y = 70
        '设置坐标原点
        Dim TmLong As Double = 70
        '刻度的比例长度
        Dim Angle As Double
        '刻度之间的角度
        Dim i As Integer
        For i = 0 To 11
            Angle = i * 2 * Atan(1) / 3

            '设置刻度起点和终点的坐标
            StartPoint.X = 0.8 * TmLong * Cos(Angle) + OriginPoint.X
            StartPoint.Y = 0.8 * TmLong * Sin(Angle) + OriginPoint.Y
            EndPoint.X = TmLong * Cos(Angle) + OriginPoint.X
            EndPoint.Y = TmLong * Sin(Angle) + OriginPoint.Y
            '绘制刻度
             g.DrawLine(LbPen, StartPoint, EndPoint)
        Next
   
------解决方案--------------------
不解释，高中平面几何+三角函数

如果看不懂，请先不要看代码，请用你高中的知识用纸和笔去解。你解出来了，反应成代码，就是这玩意
------解决方案--------------------