S_WIEZORKE@iravcl.ira.uka.de (Hans B. Wiezorke) (06/08/91)
this is another small prgram using the turtle3d library posted a few days ago. it's just for showing, what can be done using a turtleoid approach to 3D graphics. ;-) have fun, opus -------- cut here ------ PYRA.PAS ---------- cut here -------- uses turtle3d; const angle = 19.5; procedure pyra(n : byte; l : real); var i : byte; begin if n>1 then begin pyra(n-1, l/2); fd(l/2); pyra(n-1, l/2); rt(120); fd(l/2); lt(120); pyra(n-1, l/2); rt(60); bk(l/2); rl(angle); up(60); fd(l/2); rl(90); lt(60); pyra(n-1, l/2); rt(60); rr(90); bk(l/2); dn(60); rr(angle); lt(60) end else begin for i := 1 to 3 do begin fd(l); rr(angle); up(120); fd(l); bk(l); dn(120); rl(angle); rt(120); end end end; begin init3d; penup; bk(135); rt(90); rl(90); bk(240); lt(90); bk(80); rt(45); rr(8); pendown; pyra(4, 440); { increment first parameter for more complicated picture} readln end. -------- cut here ------ PYRA.PAS ---------- cut here -------- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - I __ I Hans Bernhard Wiezorke (at Uni. of Karlsruhe) I I /opus\ _____(@ \ I E-Mail : S_WIEZORKE@iravcl.ira.uka.de I I \sndo/ /. ! I or UK9K@DKAUNI2.bitnet (better not) I I ------) ! I- - - - - - - - - - - - - - - - - - - - - - - - - -I I X~~~~! I Always remember : WHEREVER YOU BE -- I I I THERE YOU ARE I - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -