1. Weird 3D....
Hy,
I've coded a sort of 3D-Box maker,
Anyone have a better idea than this ?
Anyone figure out the 3d graphics in MSET.EX ?
I want to have a proc/func that you only have to
give the locations of several maintains or something.
Like this :
Here's that 3d-thing...
[3dthng.ex]
include graphics.e
procedure Box3d(object xy,object size,atom angle,integer color)
object coords
angle/=10
coords={xy,{xy[1]+size[3],xy[2]+angle*size[1]}}
draw_line(color,{coords[1],coords[2]})
draw_line(color,{xy,{xy[1],xy[2]+size[2]}})
draw_line(color,{coords[2],{xy[1]+size[3],coords[2][2]+size[2]}})
draw_line(color,{{xy[1],xy[2]+size[2]},{xy[1]+size[3],coords[2][2]
+size[2]}})
draw_line(color,{xy,{xy[1]+size[1],xy[2]}})
draw_line(color,{coords[2],{coords[2][1]+size[1],coords[2][2]}})
draw_line(color,{{xy[1],xy[2]+size[2]},{xy[1]+size[1],xy[2]+size
[2]}})
draw_line(color,{{xy[1]+size[3],coords[2][2]+size[2]},{xy[1]+size[3]
+size[1],coords[2][2]+size[2]}})
draw_line(color,{{xy[1]+size[1],xy[2]},{xy[1]+size[1],xy[2]+size
[2]}})
draw_line(color,{{coords[2][1]+size[1],coords[2][2]},{coords[2][1]
+size[1],coords[2][2]+size[2]}})
draw_line(color,{{xy[1]+size[1],xy[2]},{coords[2][1]+size[1],coords
[2][2]}})
draw_line(color,{{xy[1]+size[1],xy[2]+size[2]},{coords[2][1]+size
[1],coords[2][2]+size[2]}})
end procedure
if machine_func(5,261) then end if --(Grph mode(don't try m19))
integer a,x,old_a
a=1
x=0
old_a=1
while get_key() !=27 do
Box3d({200+old_a,200+old_a},{50,10,100},20+old_a,0)
Box3d({200+old_a,200+old_a},{50,10,-100},-20+old_a,0)
Box3d({200+a,200+a},{50,10,100},20+a,21+a)
Box3d({200+a,200+a},{50,10,-100},-20+a,21+a)
old_a=a
if x=0 then
a+=1
if a=20 then x=1 end if
elsif x=1 then
a-=1
if a=-20 then x=0 end if
end if
end while
[EOF]
Bye,
PQ
QC
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
