自制陀螺

陀螺的故事,黑白的陀螺旋转会产生彩色ps曲线 的图案

陀螺的故事。同样是旋转的游戏，不过这次转的是陀螺。公主要过生，因

为公主特喜欢陀螺，所以官员们都争相给公主做陀螺。前面有两个官员，找的

人做的陀螺都很厉害很出色。一个是全国有名的木匠雕刻的陀螺，转动起来就

象是钉子钉在地上一样，转动得要多稳有多稳；一个是著名的画家制作的陀

螺，图案很是精美绝伦，但转动起来就看不到了。公主对这俩陀螺都不感兴

趣，轮到一休了，但一休说这个鲅鱼饺子的做法 陀螺是大我的诗歌 街上买来的普通的陀螺，人们都很泄

气。但一转动起来，这个黑白配的陀螺却能转出彩虹的颜色，颜色会不断地变

动，公主很是喜欢。

原来一休在陀螺的白色顶面上画了颜色，一半是黑色，一半是四段三组合

的同心圆的弧线，每两个相邻的同心圆的边缘距离都是相等的。一转动起来，

就会出现彩虹的颜色，这是英国人在很早很早的时候发现的，但至今仍没有什

么科学的道理可以解释，是个神奇的谜。

===================

《一休》里黑白的陀螺旋转会产生彩色的图案

昨天想做这种陀螺玩，找了好久没找到可用的图案，最后只能找到《一休》鸡

蛋和陀螺那一集，仔细看了一下动画片，自己用Word编了个宏画了几个线条不

同的试试，在Word里转了一下看看好像还有点效果，

这些图案顺时针旋转时，外圈近似红色，内圈深色。发Word文档好像有点麻

烦，我直接把画这个陀螺的函数发出来好了。画好了用打印机打个人主要简历 印出来，剪下

贴在硬纸板上，中间插上小棍子转转看看哦。

下面是画这个陀螺的函数，因为懒得添加设置线型的语句了，画好了自己选择

那些弧线条设置不同的线型试试效果。

Sub画陀螺1()

'

'Macro1Macro

'宏在2009-6-5由晶晶录制

'彩色陀螺

DimArcLeftAsSingle,ArcTopAsSingle,ArcWidthAsSingle,

ArcHeightAsSingle

''''''画圆

DimCycleDAsSingle,StepRAsSingle,CycleLAsSingle,CycleTAs

Single

CycleL=150

CycleT=50

CycleD=212

pe(msoShapeOval,CycleL,CycleT,

CycleD,追梦路上 CycleD).Select

=RGB(0,0,0)

'''''画半圆

pe(msoShapeBlockArc,CycleL,CycleT,

CycleD,CycleD).Select

(1)=180#'调整圆弧角度

(2)=0#'调整圆心距离

ArcLeft=CycleL+CycleD/2

StepR=CycleD/26

Fori=1To12

ArcTop=CycleT+(13-i)*StepR

ArcHeight=StepR*i

ArcWidth=ArcHeight

pe(msoShapeArc,ArcLeft,ArcTop,

ArcWi肛门痛 dth,ArcHeight).Select'画圆弧256#,50,

'oFlipVertical

SelectCai'顺时针旋转时，外圈红色

Ca10To12

(1)=45'调整

点

(2)=0'调整

点

Ca7To9

(1)=90'调整

点

(2)中华典故 =45'调

整点

Ca4To6

(1)=135'调整

点

(2)=90'调

整点

Ca1To3

(1)=180'调整

点

(2)=135'调

整点

Ca13

(1)=180'调整

点

(2)=0'调整

点

EndSelect

'SelectCai''顺时针旋转时，内圈红色

'Ca1To3

'小学生乘法口诀表 (1)=45'调整

点

'(2)=0'调

整点

'Ca4To6

'(1)=90'调整

点

'(2)=45'调

整点

'Ca7To9

'(1)=135'调

整点

'(2)=90'调

整点

'Ca1钢铁是怎样炼成的主人公 0To12

'(1)=180'调

整点

'(2)=135'

调整点

'Ca13

'(1)=180'调

整点

'(2)=0'调

整点

'EndSelect

Nexti

EndSub

要使这个陀螺在屏幕上转起来的话，我写了下面的函数，马马虎虎能转，不算

理想。转之前记得要将整个陀螺选中并组合起来，不然就转散了。

Sub转陀螺()

'

'Macro1Macro

'宏在2009-6-6由晶晶录制

'

DimkdyAsInteger,returnArcAsSingle

kd爱迪生名言 y=100

returnArc=1*45*0.6'旋转速度调节

Fori=1To1000'旋转持续时间调节

entRotationreturnArc

IfInt(i/kdy)*kdy=iThenDoEvents

Next

EndSub