The Sinclair QL Forum

Hello
I've resurrected an old project
in the late 80s i bought some books about computer graphics
The art of graphics for the IBM PC McGregor/Watt Addison-Wesley (listings in IBM-Basic)
3D Graphic auf dem PC Pomaska CHIP (listings in Fortran77)
3D Programmierung mit BASIC Glaeser Teubner
The latter had listings in UNIVERSAL Basic witch i had converted
to SUPERBASIC ;but this is all lost ...
so here is the first part ; a viewer for wire frame objects works on SMSQE
for QDOS remark the lines with SCR_XLIM and OUTL
to change the object use
DLINE 1 to 999
MERGE dev_model

Greetins from Switzerland

Markus

Hi Markus,

The program stops at Line 1100 with unknown procedure : OUTL ... (not in QPC2's EXTRAS list).

Did you have any ToolKits loaded ? Steve.

Hi again Markus,

With OUTL remarked, the demo works fine under QPC2, which does incorporate SMSQ/E....

Is the program using Swiss german dialect ? and can the vocabulary be translated into english ?

It seems quite fast and smooth, but any possibility of animating aircraft ?

Steve, replace OUTL with OUTLN #0 or similar if you don't have OUTL command on your system to set the program outline.

I found I had to rename the QJ variable throughout the program, because it clashed with the QLiberator extension called QJ on my system. Just changing every occurrence to something like QJ_ worked fine.

Nice work Markus.

Hi Markus,
So is GLR an IBM PC listing ? I thought 80s PCs had poor graphics capabilities ? But at 6ko, the program is very neat, using trigonometry.

Plane5_bas is based on a 3d animation kernel written in 1986, and which won a Quanta prize, but took 30 mins to calculate one frame !

I had to wait for QPC2 to get real-time output. Plane5 is 5ko, but could be optimised further. I will try to produce better animations....

So finally, QL users can have a choice of 3D motors. Computer Animations have made huge steps in progress since the eighties !

I once read a 3d modeller by (I think) Tenin & Van Thong, but it had no animation capabilities, just cavalier projections.

It is great to see program listings made available to programmers, usually locked away behind copyrights. Regards, Steve.

here is V2
Greetings from Switzerland
Markus

Nice one, Markus
I compiled it with Qlib and it EXecutes well in QPC2 and Q-Emulator with JS ROM (running at full speed of course). A few END REPeats missing or declared as END FORs etc. Easy things to miss while your focusing on the bigger picture! One line didnt compute, though:
3540 P_0%(E) + P0%
I changed it to
3540 P_0%(E) = P0%: rem ???

On Qdos I guess some might have problems with SCR_XLIM/YLIM and OUTL, but these could be eliminated or one could use a compatibility toolkit.

Hi Markus,
Version2 runs fine under QPC2, so now we have two trigonometric kernels for wireframe animations....

Plane5_bas is adaptable to use many planes, seen from most positions around 'scenery'. (See the 'orbiter3D_bas' space game).

Hidden faces can be incorporated, but no ray_traced illumination as of yet. Somebody asked for a 'tank battle' game ! Maybe....

Just what level of detail can be acheived in real-time animations on QL emulators ? Time will tell. Regards, Steve.

don't forget QL3D from Mark Swift
https://dilwyn.theqlforum.com/graphics/ql3d1.zip

Greetings from Switzerland
Markus

Hi Folks,
Getting multiple planes...