home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
CUBESEC2.GEO
< prev
next >
Wrap
Text File
|
1994-01-16
|
2KB
|
256 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(-4.74;-6.02)
point B(3.771;-6.02)
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.510064
_s5
pt_sur_objet J _s5 0.352349
_s8
pt_sur_objet K _s8 0.844834
J
K
segment
nomme _s12
I
J
segment
nomme _s13
_s13
K
droite_parallΦle
nomme D0
D0
_s7
inter
nomme_inter L
L
K
segment
nomme _s14
I
L
segment
nomme _s15
D0
gommer
_s13
couleur 255 0 0
_s12
couleur 255 0 0
_s14
couleur 255 0 0
_s15
couleur 255 0 0
_s6
tracΘ -1
_s11
tracΘ -1
_s9
tracΘ -1
_s10
tracΘ -1
_s8
tracΘ -1
_s7
tracΘ -1
_s3
tracΘ -1
_s5
tracΘ -1
_s4
tracΘ -1
_s12
tracΘ -1
_s15
tracΘ -1
_s13
tracΘ -1
_s14
tracΘ 1
D
I
segment
nomme _s16
_s4
gommer
_s3
gommer
_s5
gommer
J
B
segment
nomme _s17
_s7
gommer
_s8
gommer
K
E
segment
nomme _s18
L
K
segment
nomme _s19
G
L
segment
nomme _s20
C
gommer
H
gommer
_s19
couleur 255 0 0
_s19
tracΘ -1
_s18
tracΘ -1
_s17
tracΘ -1
_s16
tracΘ -1
_s20
tracΘ -1
fin.