Board logo

标题: 内摆线动态绘制 [打印本页]

作者: 老刘1号    时间: 2020-2-13 13:24     标题: 内摆线动态绘制

本帖最后由 老刘1号 于 2020-2-13 22:11 编辑

视频演示
语言:Clogo(需要请自行站内搜索)
  1. @ECHO OFF&@MODE 150,37&@TITLE 【老刘制作】内摆线&@Pause>nul&@CLGO "%~F0"&@Pause>nul&@Exit
  2. TO MAIN2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :绘制圈数
  3. PU
  4. MAKE :大圆半径=120
  5. MAKE :绘制中心X=-400-2*:大圆半径 :绘制中心Y=140
  6. MAKE :小圆半径=:大圆半径/2 :绘制圈数=1
  7. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  8. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  9. TEXT 22 3 7 微软雅黑 1:2内摆线
  10. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  11. MAKE :小圆半径=:大圆半径/3 :绘制圈数=1
  12. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  13. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  14. TEXT 22 3 7 微软雅黑 1:3内摆线
  15. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  16. MAKE :小圆半径=:大圆半径/4 :绘制圈数=1
  17. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  18. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  19. TEXT 22 3 7 微软雅黑 1:4内摆线
  20. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  21. MAKE :小圆半径=:大圆半径*3/7 :绘制圈数=3
  22. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  23. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  24. TEXT 22 3 7 微软雅黑 3:7内摆线
  25. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  26. MAKE :绘制中心X=-400-2*:大圆半径 :绘制中心Y=-160
  27. MAKE :小圆半径=:大圆半径/pi :绘制圈数=4
  28. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  29. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  30. TEXT 22 3 7 微软雅黑 1:π内摆线
  31. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  32. MAKE :小圆半径=:大圆半径/2.718281828459 :绘制圈数=4
  33. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  34. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  35. TEXT 22 3 7 微软雅黑 1:e内摆线
  36. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  37. MAKE :小圆半径=:大圆半径*3/11 :绘制圈数=3
  38. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  39. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  40. TEXT 22 3 7 微软雅黑 3:11内摆线
  41. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  42. MAKE :小圆半径=:大圆半径*5/11 :绘制圈数=5
  43. MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
  44. SETXY :绘制中心X-:大圆半径 :绘制中心Y-:大圆半径
  45. TEXT 22 3 7 微软雅黑 5:11内摆线
  46. DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 180 :绘制圈数 10 0 0 0 0 0 0 0 0
  47. TO DRAW :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 :延时 :小圆旋转角 :大圆旋转角 :小圆圆心X :小圆圆心Y :上一次内摆线1X :上一次内摆线1Y :上一次内摆线2X :上一次内摆线2Y
  48. PU
  49. MAKE :大圆旋转角=0 :小圆旋转角=0
  50. MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  51. MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  52. MAKE :上一次内摆线1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
  53. MAKE :上一次内摆线1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  54. MAKE :上一次内摆线2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
  55. MAKE :上一次内摆线2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  56. FOR ::Theta 0 :精度*:绘制圈数 1 [
  57. MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
  58. MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
  59. MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
  60. MAKE :PENC=15 :PENA=255
  61. SETXY :绘制中心X :绘制中心Y
  62. OVAL :大圆半径 :大圆半径  0
  63. MAKE :PENC=10 :PENA=20
  64. SETXY :小圆圆心X :小圆圆心Y
  65. OVAL :小圆半径 :小圆半径  0
  66. MAKE :PENC=5 :PENA=255
  67. SETXY :上一次内摆线1X :上一次内摆线1Y
  68. PD
  69. SETXY :小圆圆心X+:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  70. PU
  71. MAKE :PENC=5 :PENA=255
  72. SETXY :上一次内摆线2X :上一次内摆线2Y
  73. PD
  74. SETXY :小圆圆心X-:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  75. PU
  76. WAIT :延时
  77. MAKE :PENC=0 :PENA=40
  78. SETXY :小圆圆心X :小圆圆心Y
  79. OVAL :小圆半径 :小圆半径  0
  80. MAKE :上一次内摆线1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
  81. MAKE :上一次内摆线1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
  82. MAKE :上一次内摆线2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
  83. MAKE :上一次内摆线2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
  84. ]
  85. MAKE :PENC=15 :PENA=255
  86. TO MAIN
  87. MAIN2 0 0 0 0 0
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2