End If
Call PXYTOGraphic(PointX(CallFOR + 1), PointY(CallFOR + 1), CallFOR, CallFOR + 1, CircleTime)
Next CallFOR
End If
End If
ElseIf EPXY = SPXY Then
Dim TOX As Single, TOY As Single, StartX As Single, StartY As Single
StartX = CurrentNX
StartY = CurrentNY
If CircleTime = False Then
If SPXY = 1 Then
If Y - CurrentNY > 0 Then
For TOX = StartX To X Step -1
TOY = (CurrentNR ^ 2 - (TOX - CurrentNI) ^ 2) ^ 0.5 + CurrentNJ
Call DrawLine(CurrentNX, CurrentNY, TOX, TOY)
CurrentNX = TOX
CurrentNY = TOY
Next TOX
Else
Call PXYTOGraphic(PointX(2), PointY(2), 1, 2, CircleTime)
Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime)
Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime)
Call PXYTOGraphic(X, Y, 4, 1, CircleTime)
End If
ElseIf SPXY = 2 Then
If Y - CurrentNY < 0 Then
For TOX = StartX To X Step -1
TOY = (CurrentNR ^ 2 - (TOX - CurrentNI) ^ 2) ^ 0.5 + CurrentNJ
Call DrawLine(CurrentNX, CurrentNY, TOX, TOY)
CurrentNX = TOX
CurrentNY = TOY
Next TOX
Else
Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime)
Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime)
Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime)
Call PXYTOGraphic(X, Y, 1, 2, CircleTime)
End If
- 上一篇:企业物流系统规划及合理化研究
- 下一篇:用于生物柴油制备的微波炉搅拌装置设计
-
-
-
-
-
-
-
中考体育项目与体育教学合理结合的研究
电站锅炉暖风器设计任务书
乳业同业并购式全产业链...
河岸冲刷和泥沙淤积的监测国内外研究现状
大众媒体对公共政策制定的影响
杂拟谷盗体内共生菌沃尔...
酸性水汽提装置总汽提塔设计+CAD图纸
java+mysql车辆管理系统的设计+源代码
十二层带中心支撑钢结构...
当代大学生慈善意识研究+文献综述