@ECHO OFF&@MODE 180,44&@TITLE 【老刘制作】内摆线&@Pause>nul&@CLGO "%~F0"&@Pause>nul&@Exit


TO MAIN2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :绘制圈数 :精度
	MAKE :大圆半径=250 :精度=100

	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径/2 :绘制圈数=1
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 1：2内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
	
	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径/3 :绘制圈数=1
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 1：3内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0
	
	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径/4 :绘制圈数=1
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 1：4内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0

	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径/5 :绘制圈数=1
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 1：5内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0

	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径*3/7 :绘制圈数=3
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 3：7内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径*5/11 :绘制圈数=5
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 5：11内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


	WAIT 2000
	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :小圆半径=:大圆半径/pi :绘制圈数=7
	SETXY :绘制中心X-:大圆半径 :绘制中心Y+:大圆半径+100
	WAIT 100
	TEXT 30 3 7 微软雅黑 1：π内摆线
	DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


TO DRAW2 :绘制中心X :绘制中心Y :大圆半径 :小圆半径 :精度 :绘制圈数 :延时 :小圆旋转角 :大圆旋转角 :小圆圆心X :小圆圆心Y :上一次内摆线1_1X :上一次内摆线1_1Y :上一次内摆线1_2X :上一次内摆线1_2Y :上一次内摆线2X :上一次内摆线2Y :上一次内摆线3X :上一次内摆线3Y :上一次内摆线4X :上一次内摆线4Y 
	MAKE :大圆旋转角=0 :小圆旋转角=0
	MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
	MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
	MAKE :上一次内摆线1_1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
	MAKE :上一次内摆线1_1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
	MAKE :上一次内摆线1_2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
	MAKE :上一次内摆线1_2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
	MAKE :上一次内摆线2X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)+2*:大圆半径+5
	MAKE :上一次内摆线2Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
	MAKE :上一次内摆线3X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)+2*(2*:大圆半径+5)
	MAKE :上一次内摆线3Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
	FOR ::Theta 0 :精度*:绘制圈数 1 [
		MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=15 :PENA=255
		SETXY :绘制中心X :绘制中心Y
		OVAL :大圆半径 :大圆半径  0
		MAKE :PENC=10 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :PENC=5 :PENA=255
		SETXY :上一次内摆线1_1X :上一次内摆线1_1Y
		PD
		SETXY :小圆圆心X+:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
		PU
		MAKE :PENC=5 :PENA=255
		SETXY :上一次内摆线1_2X :上一次内摆线1_2Y
		PD
		SETXY :小圆圆心X-:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
		PU
		
		MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
		MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=15 :PENA=255
		SETXY :绘制中心X :绘制中心Y
		OVAL :大圆半径 :大圆半径  0
		MAKE :PENC=10 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :PENC=5 :PENA=255
		SETXY :上一次内摆线2X :上一次内摆线2Y
		PD
		SETXY :小圆圆心X+:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
		PU
		
		MAKE :绘制中心X=:绘制中心X+2*:大圆半径+5
		MAKE :大圆旋转角=::Theta*2*pi/:精度 :小圆旋转角=((:大圆半径-:小圆半径)/:小圆半径)*:大圆旋转角
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=15 :PENA=255
		SETXY :绘制中心X :绘制中心Y
		OVAL :大圆半径 :大圆半径  0
		MAKE :PENC=10 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :PENC=5 :PENA=255
		SETXY :上一次内摆线3X :上一次内摆线3Y
		PD
		SETXY :小圆圆心X-:小圆半径*cos(-1*:小圆旋转角) :小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)
		PU




		WAIT 20




		MAKE :绘制中心X=:绘制中心X-2*(2*:大圆半径+5)
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=0 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :上一次内摆线1_1X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
		MAKE :上一次内摆线1_1Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)
		MAKE :上一次内摆线1_2X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
		MAKE :上一次内摆线1_2Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)

		MAKE :绘制中心X=:绘制中心X+(2*:大圆半径+5)
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=0 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :上一次内摆线2X=:小圆圆心X+:小圆半径*cos(-1*:小圆旋转角)
		MAKE :上一次内摆线2Y=:小圆圆心Y+:小圆半径*sin(-1*:小圆旋转角)

		MAKE :绘制中心X=:绘制中心X+(2*:大圆半径+5)
		MAKE :小圆圆心X=:绘制中心X+(:大圆半径-:小圆半径)*cos(:大圆旋转角)
		MAKE :小圆圆心Y=:绘制中心Y+(:大圆半径-:小圆半径)*sin(:大圆旋转角)
		MAKE :PENC=0 :PENA=40
		SETXY :小圆圆心X :小圆圆心Y
		OVAL :小圆半径 :小圆半径  0
		MAKE :上一次内摆线3X=:小圆圆心X-:小圆半径*cos(-1*:小圆旋转角)
		MAKE :上一次内摆线3Y=:小圆圆心Y-:小圆半径*sin(-1*:小圆旋转角)

		MAKE :绘制中心X=:绘制中心X-2*(2*:大圆半径+5)
	]
	MAKE :PENC=15 :PENA=255

TO MAIN
	MAKE :PENW=1
	MAIN2 0 0 0 0 0 0
复制代码