Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
4 1 2 3 4 1 1 1 1
[AB]-x
int(nPix)
int([f(x)]g(x)/x )
0.06/x
----------
y = f(x)
1 1 1
k
0 16777215 2 0 1
----------
0 = f(x,y)
0
----------
Point
22 6 7 0 1 5 0 0 3 4 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 0 2
P
(rot(S,p*Pi)).x
(rot(S,p*Pi)).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
Q
1 0 2
Q
(rot(T,B,p*Pi)).x
(rot(T,B,p*Pi)).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
R
0 0 1
S
6 0 2
S
(A+rot(rot(a(dcos(Pit)+0.99,0),Pit/g(a)),p*Pi+s)).x
(A+rot(rot(a(dcos(Pit)+0.99,0),Pit/g(a)),p*Pi+s)).y
0
0
4Pig(a)
t 0.25
0 0
16777215 255 16777215 1 0 0 2 1 0 0
2 0 3 0
T
6 0 2
T
(B+rot(rot(f(a)(ad/f(a) cos(Pi+Pit)+0.98,0),Pit/h(a)),(p+1)*Pi-(sign([AB]-a))sg(a)/h(a))).x
(B+rot(rot(f(a)(ad/f(a) cos(Pi+Pit)+0.98,0),Pit/h(a)),(p+1)*Pi-(sign([AB]-a))sg(a)/h(a))).y
0
0
2Pih(a)
t 0.25
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
2 0 3 0
U
0 0 1
V
0 0 1
A
1 6 2
<red>ギア数!{g(a)} </red>
0
0
0


t 0.1
0 0
255 16711680 16777215 1 1 0 1 1 0 0
6 0 1 0
B
1 7 2
<blue>ギア数!{h(a)}</blue>
1.974
c
0


t 0.1
0 0
16711680 16711680 16777215 1 1 1 1 1 0 0
6 0 1 0
C
0 0 1
D
0 0 1
E
0 0 1
F
0 0 1
G
0 0 1
H
0 0 1
I
0 0 1
J
0 0 1
K
0 0 1
L
0 0 1
M
0 0 1
N
0 0 1
O
1 0 2
O
0
0
0


t 0.1
0 0
16777215 16777215 14745599 1 0 0 1 1 0 0
3 0 1 0
----------
Segments
2
3 3 1 255 16777215 3 0 1 0 0
0 
8 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 3 1 16711680 16777215 3 0 1 0 0
0 
9 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
1.3 0
1 1 0.05 1 1
0.3 0
1 1 0.1 1 0
0 0
0 1 0.5 1 2
0.05 0
1 1 0.01 1 3
30 0
1 1 5 1 0
6 0
1 1 1 1 4
0 0
0 1 10 1 5
1 0
1 1 10 1 0
12.6 0
1 1 0.05 1 6
0 0
0 1 0.1 1 7
1 0
1 1 10 1 0
1 0
1 1 10 1 0
4.95 0
1 1 0.05 1 0
4 0
1 1 1 1 8
1 1 1
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 2 1 2 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 1
AfterImageColorNo, CanAImg,MaxAimgN0
0 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 1 1 0 1
NUmber,Base,Linterval,numberR
1 1 1 1
High,Low
2.79874789909914 -2.03723093687969
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 1 1 1 0
NUmber,Base,Linterval,NumbeerR
1 1 1 1
High,Low
2.40198941798942 -2.43398941798942
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 12 0 0 0 0 0 12 0 0 0
----------
Yvalue
1 
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
6
y1
y2
y3
y4
y5
y6
----------
Panel Position
0 0 0 32 325 84 145 117 0 0 1 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 13 0 0 0

19
{s}:回転のパラメータ


<Red>{a}:赤いギアの半径</Red>
{d}:ギアの歯高
{n}:歯の密度


青い歯車の中心は、
{x}軸上をドラッグできます。
#//赤いギァを２回転（ｋ:回転の速さ）
#for s:=0 to 4Pi+k*0.01 step k*0.01
#draw
#next s

#hidescript
#on a,n,B change
#if B.x<0 then p:=1 else p:=0
#draw


----------
11
4 27 1
4 63 1
635 28 0
6 36 1
6 36 1
6 36 1
6 36 1
6 36 1
4 32 1
4 32 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10 200
Table Data


60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
0
----------