Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
0
----------
Point
22 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
0 0 1
Q
0 0 1
R
0 0 1
S
7 0 1
S
rot(T,(0,0,1),Pit)
0
q
s 0.05
0
p
t 0.05
0 0 1
16777215 52992 36608 1 0 0 1 1 0
3 0 1 1 0 0 0
T
6 0 1
T
rot((a,0,0)+rot(broll(Pis,0),(1,0,0),90Pi/180),(0,0,1),u)
-1
1
s 0.05


t 0.1
0 0 0
16777215 255 255 1 0 1 1 1 0
3 0 4 1 0 0 0
U
0 0 1
V
0 0 1
A
0 0 1
B
0 0 1
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 3
O
(0,0,0)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
----------
Segments
0
----------
paramater
14
6 0
1 1 0.1 1 1
3 0
1 1 0.1 1 2
24 0
1 1 1 1 0
100 0
1 1 0.1 1 0
10 0
1 1 1 1 9
350 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
2 0
1 1 1 0 3
2.2 0
1 1 0.1 0 4
33.5 0
1 1 0.1 1 0
2 0
1 1 0.1 0 5
0.9 0
1 1 0.1 0 6
0 0
1 1 0.196349540849362 0 7
-59 0
1 1 0.196349540849362 0 8
1 1 80
----------
KakuMode LogMode AreaMode
1 2 1 0 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
----------
ScaleS
Vlow,VHigh
-4.97767857142857 5.02232142857143
-5.35714285714286 4.64285714285715
MeshMode , Axiswidth , Sfontsize , Axismode , AxesColor
1 2 12 0 1 1 1
ViewPoint
120 40 50 25 0 0 0 1 0
----------
ViewPosition
5
30 20 25 30
-70 20 25 30
60 20 25 30
-90 90 25 30
-90 0 25 30
----------
Panel Position
87 0 0 497 0 174 7000 1 1 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 16
55
‚Q‚Β‚Μ”ΌŒa{a,b}


ƒAƒjƒƒXƒs[ƒh{k}
#//‰Šϊ‰»
#SetViewPoint(120,40,50,25)
#draw

#//‰‘‰ρ“]
#m := viewH
#for d := m to m+360 step 0.25*k
#SetViewPoint(d,viewV,viewD,viewA)
#Draw
#next

#//c‰ρ“]
#m:=viewV
#for d := m to m+360 step 0.25*k
#SetViewPoint(viewH,d,viewD,viewA)
#Draw
#next

#//u‰“‚΄‚©‚ιv
#m := viewD
#for d := 0 to 100 step 0.1*k
#SetViewPoint(viewH,viewV,m+3*d,viewA)
#Draw
#next

#//u‹ί‚Γ‚­v
#m := viewD
#for d := 0 to 100 step 0.1*k
#SetViewPoint(viewH,viewV,m-3*d,viewA)
#Draw
#next

#//yZOOM-Inz
#for d := 0 to 100 step 0.1*k
#SetViewPoint(viewH,40-d*0.4,50-d*0.42,25+d*0.90)
#Draw
#next

#//yZOOM-Outz
#for d := 100 to 0 step -0.1*k
#SetViewPoint(viewH,40-d*0.4,50-d*0.42,25+d*0.90)
#Draw
#next

#hidescript
#on k change
#if k<1 then k:=1

#hideScript
#on a,b,p,q,v Change
#Draw
----------
11
4 24 1
4 68 1
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10
Table Data

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