Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 
----------
UserFunction
0
----------
y = f(x)
1 1 1
k
0 16777215 2 1 1
----------
0 = f(x,y)
0
----------
Point
22 8 9 10 11 0 12 13 1 2 3 4 5 6 14 0 0 0 0 0 0 0 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
1 4 2
P
2.32743487067109
-0.871590747955377
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
Q
1 3 2
Q
0.871590747955377
2.32743487067109
0


t 0.1
0 0
16711680 16711680 16777215 0 0 1 1 1 0 0
3 0 1 0
R
1 3 2
R
-2.32743487067109
0.871590747955377
0


t 0.1
0 0
16711680 16711680 16777215 0 0 1 1 1 0 0
3 0 1 0
S
1 3 2
S
-0.871590747955377
-2.32743487067109
0


t 0.1
0 0
16711680 16711680 16777215 0 0 1 1 1 0 0
3 0 1 0
T
0 0 1
U
1 4 2
U
3
3
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
V
1 4 2
V
1.59951280931323
0.727922061357857
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
A
1 4 2
A
3
3
0


t 0.1
0 0
16711680 16711680 16777215 0 1 1 1 1 0 0
1 0 1 0
B
1 4 2
B
((Sqrt(2)-1)*a/[OA]*(rot(O,A,s(-90-s@))-A)+A).x
((Sqrt(2)-1)*a/[OA]*(rot(O,A,s(-90-s@))-A)+A).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
C
1 4 2
C
((rot(A,B,-135)-B)+B).x
((rot(A,B,-135)-B)+B).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
D
1 4 2
D
((Sqrt(2)-1)*a/[OA]*(rot(O,A,s(90-s@))-A)+A).x
((Sqrt(2)-1)*a/[OA]*(rot(O,A,s(90-s@))-A)+A).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
E
1 4 2
E
((rot(A,D,135)-D)+D).x
((rot(A,D,135)-D)+D).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
F
1 4 2
F
(intr(C,(Sqrt(2+2Sqrt(2))+1)[BC],E,-(Sqrt(2+2Sqrt(2))-1)[BC])).x
(intr(C,(Sqrt(2+2Sqrt(2))+1)[BC],E,-(Sqrt(2+2Sqrt(2))-1)[BC])).y
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
G
1 2 2
G
3
3
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
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 16711680 16777215 1 0 0 1 1 0 0
3 0 1 0
----------
Segments
4
7 1 2 16711680 16769248 2 1 1 0 0
0 
8 9 10 13 12 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 1 1 255 14737663 4 0 1 0 0
0 
1 2 3 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 1 1 16711680 16777215 4 1 1 0 0
0 
12 11 9 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 1 1 16711680 16777215 4 1 0 0 0
0 
10 13 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
4.2426407 0
1 1 0.05 1 2
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 2 1 3
0 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
20.530199 0
1 1 0.1 1 0
0 0
1 1 10 1 1
4 0
1 1 1 1 4
1 1 96
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 4 2 1 2 0 1 1 0 1 1 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
0 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
6.15283285138747 -6.19851849996388
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
7 1 1 7
High,Low
6.04197936367317 -6.12518698279755
----------
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 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 0 0 0 0 33 0 0 0 0 0 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 0 14 0 0 0

102
正八角形と正方形の
トランスフォーム
#//初期化
#s := 1
#ShowObj(L3)
#HideObj(L1,L2,L4)
#Call(S0)
#v := arg(F,C,E)

#hidescript//S1
#for k := 1 to 4
#  A := rot(T,90*k)
#  Calc
#  if k = 1 then ClrAimgData
#next k
#Refresh

#hidescript//S0
#@ := 0
#t := 0
#G := (3,3)
#T := G
#a := Sqrt(2)*3
#P := F
#Q := rot(F,90)
#R := -F
#S := rot(F,-90)
#V := (P+Q)/2
#Call(S1)

#//描く【１】
#Call(初期化)
#HideObj(L4)
#ShowObj(L1,L2,L3)
#Wait(2000)
#HideObj(L3)
#for @ := 0 to 180 step 10
#  t := @/180
#  T := (1-t)*U+t*V
#  sub(S1)
#next
#@ := 180
#ShowObj(L4)
#Call(S1)
#HideObj(L3,L4)
#ShowObj(L4)
#wait(900)
#//戻り
#HideObj(L3,L4)
#for @ := 180 to 0 step -10
#  t := @/180
#  T := (1-t)*U+t*V
#  sub(S1)
#next
#wait(500)
#ShowObj(L3)

#//描く【２】
#Call(初期化)
#@ := 0
#HideObj(L4)
#ShowObj(L1,L2,L3)
#Wait(2000)
#HideObj(L3)
#for t:= 0 to 1 step 0.05
#  T := (1-t)*G+t*(-[AB]/Sqrt(2),-[AB]/Sqrt(2))
#  if T.x <0 then s:=-1
#  sub(S1)
#next
#Wait(500)
#H := P
#for u:= 0 to 1 step 0.1
#P := rot(H,u*v)
#Q := rot(P,90)
#R := -P
#S := rot(P,-90)
#draw
#next
#ShowObj(L4)
#Call(S1)
#wait(1200)
#//戻り
#HideObj(L3,L4)
#@ := 0
#s := -1
#for t:= 0 to 1 step 0.05
#  T := t*G+(1-t)*(-[AB]/Sqrt(2),-[AB]/Sqrt(2))
#  if T.x >0 then s := 1
#  sub(S1)
#next
#Wait(500)
#H := P
#for u:= 0 to 1 step 0.1
#P := rot(H,-u*v)
#Q := rot(P,90)
#R := -P
#S := rot(P,-90)
#draw
#next
#wait(500)
#ShowObj(L3)
#Call(S1)


----------
11
4 27 1
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
4 10 200
Table Data
1
data	4	0								
2
data	0	4								
3
data	-4	0								
4
data	0	-4								


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