Just another wireframe viewer

[desin]

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

GLR.zip

(5.38 KiB) Downloaded 141 times

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

[stevepoole]

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.

[stevepoole]

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 ?

[dilwyn]

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.

[stevepoole]

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.

[desin]

here is V2

GLR2.zip

(5.98 KiB) Downloaded 183 times

Airplane.png (9.33 KiB) Viewed 2569 times

Greetings from Switzerland
Markus

[pjw]

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.

[stevepoole]

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.

[desin]

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

Greetings from Switzerland
Markus

[stevepoole]

Hi Folks,
Getting multiple planes...