home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
CUBESEC3.GEO
< prev
next >
Wrap
Text File
|
1994-01-16
|
2KB
|
238 lines
repΦre -10 10 -10 10
quadriller 0
def_macro 'Cube',cube
obj_initiaux pp
obj_finaux ppppppssssssssssss
nomme B
nomme A
A
B
rotation 1.570796
nomme C
B
A
rotation -1.57079
nomme D
A
B
homothΘtie 0.333333
nomme E
A
E
rotation 0.785398
nomme F
E
gommer
C
D
homothΘtie 0.333333
nomme G
C
G
rotation 0.785398
nomme H
G
gommer
F
H
rotation -1.57079
nomme I
H
F
rotation 1.570796
nomme J
A
C
segment
nomme _s0
B
A
segment
nomme _s1
I
B
segment
nomme _s2
J
I
segment
nomme _s3
H
J
segment
nomme _s4
C
H
segment
nomme _s5
D
B
segment
nomme _s6
C
D
segment
nomme _s7
D
J
segment
nomme _s8
F
I
segment
nomme _s9
H
F
segment
nomme _s10
F
A
segment
nomme _s11
_s10
tracΘ 1
_s9
tracΘ 1
_s11
tracΘ 1
_s0
_s1
_s2
_s3
_s4
_s5
_s6
_s7
_s8
_s9
_s10
_s11
J
H
F
I
C
D
fin_macro
point A(-5.02;-5.68)
point B(3.914;-5.68)
A
B
macro cube
nomme C
nomme D
nomme E
nomme F
nomme G
nomme H
nomme _s0
nomme _s1
nomme _s2
nomme _s3
nomme _s4
nomme _s5
nomme _s6
nomme _s7
nomme _s8
nomme _s9
nomme _s10
nomme _s11
_s4
pt_sur_objet I _s4 0.555907
_s5
pt_sur_objet J _s5 0.533584
_s3
pt_sur_objet K _s3 0.430689
K
I
segment
nomme _s12
J
K
segment
nomme _s13
I
J
segment
nomme _s14
_s13
couleur 255 0 0
_s12
couleur 255 0 0
_s14
couleur 255 0 0
_s10
tracΘ -1
_s9
tracΘ -1
_s8
tracΘ -1
_s5
tracΘ -1
_s13
tracΘ -1
_s12
tracΘ -1
_s7
tracΘ -1
_s6
tracΘ -1
_s4
tracΘ -1
_s11
tracΘ -1
_s14
tracΘ -1
_s3
tracΘ -1
J
I
segment
nomme _s15
B
J
segment
nomme _s16
E
B
segment
nomme _s17
H
E
segment
nomme _s18
K
H
segment
nomme _s19
I
K
segment
nomme _s20
D
I
segment
nomme _s21
_s4
gommer
_s3
gommer
_s5
gommer
C
gommer
_s16
tracΘ -1
_s19
tracΘ -1
_s21
tracΘ -1
J
K
segment
nomme _s22
fin.