home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
i
/
iritsm3s.zip
/
irit
/
general.irt
< prev
next >
Wrap
Text File
|
1990-05-06
|
375b
|
18 lines
#
# General tests should be included here:
#
b=box(vector(-0.5, -0.5, -0.5), 1, 1, 1);
normal(true, 0.5, red);
view_mat = view_mat * scale(vector(0.5, 0.5, 0.5));
view(list(b), true);
axes1 = axes * scale(vector(1.2, 1.2, 1.2));
view(list(axes1), false);
b_x = b * rotx(45);
b_y = b * roty(45);
b_z = b * rotz(45);
normal(false, 0.0, blue);
view(list(b_x,b_y,b_z),false);