外摆线动态绘制

老刘1号

拿内摆线的代码改了几个正负
在线演示

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

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

	CS
	PU
	MAKE :绘制中心X=-500 :绘制中心Y=0
	MAKE :圆B半径=:总半径/3 :圆A半径=:总半径/3 :绘制圈数=1
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 1：1外摆线（心脏线）
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径/4 :圆A半径=:总半径/2 :绘制圈数=1
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 1：2外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径*2/5 :圆A半径=:总半径/5 :绘制圈数=1
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 2：1外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径/5 :圆A半径=:总半径*3/5 :绘制圈数=1
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 1：3外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径*3/7 :圆A半径=:总半径/7 :绘制圈数=3
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 3：1外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径*4/9 :圆A半径=:总半径/9 :绘制圈数=2
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 4：1外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径/(pi+2) :圆A半径=:总半径*pi/(pi+2) :绘制圈数=7
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 1：π外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 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 :圆B半径=:总半径*pi/(2*pi+1) :圆A半径=:总半径/(2*pi+1) :绘制圈数=10
	SETXY :绘制中心X-:总半径 :绘制中心Y+:总半径+100
	WAIT 100
	TEXT 22 3 7 微软雅黑 π：1外摆线
	DRAW2 :绘制中心X :绘制中心Y :圆B半径 :圆A半径 :精度 :绘制圈数 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 :总半径


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




		WAIT 20




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

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

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

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

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