Perspective 3D Graphics

[stevepoole]

Thanks Sylvester,

I will modify the program to cater for these screen-swap possibilities.

There are now seven animation programs merged into one., as they share a lot of common code.

A provisional demo should be ready for issue soon.

Regards, Steve.
__________________

[stevepoole]

Hi Folks,
So here are seven perspective 3D programs, merged together. Just UNZIP, copy all files to dos5_ and RUN medley.Bas. (tested under QPC2).
1 RAI is an old program 'flying over our village', (calculates then replays).
2 GLOBE writes any text on a sphere. (change rows, columns or text as required).
3 INIT is called when RUN, and calls each program sequentially, with the 'trainer' at the end, (so you can see what the different variables do).
4 SLANT writes slanted text. (similar to giant cinema posters).
5 FLYIT flies a large QL along a travelling trajectory, (calculates, then replays).
6 TEXTTUMBLE rotates 'QL' around any axis.
7 DEMOS is the trainer. --HIT ESCape to quit, or in some programs, 'N'ext to move on. --
RUN calls INIT, other programs may be called by entering there names. ( GLOBE 0 or 1, SLANT angle).
The whoile lot is 83ko. But most programs have (almost) identical variables. If anyone wants more details, I will supply them;
In due course I will standarise all the common coding, but not until the new year.
Hope you find the question of perspective 3D interesting. I did 30 years ago, (but development was too slow on a QL at that time).

Steve.

progam3D.zip

(83.62 KiB) Downloaded 275 times

[stevepoole]

Hi Folks,
Just a reminder to LRESPR chans_code, phgtk.bin and Rpix.bin before RUNning.... from the zip file.

Many thanks to Simon Goodwin, Photon and Per Witte for these excellent files.

We are so lucky on the QL Forum to have so many software sites at our disposition !

Steve.
_______________

[stevepoole]

Hi again,
For those that downloaded the 3D program, here are some remarks about using the DEMOS trainer :
(default 1) OPAQUE ( 1 or 2) : 2 gives slight transparency
(default 1) SCALE (1 2 4) : 1 zooms nearest
(default 1) AXIS (1 2 3) : x y or z axis
(default -180) AZIMUTH : -180 is nearest position around orbit, +180 is farthest position around orbit.
(default 0) SLOPE : +30 looks downward, -30 looks upward to object. ( 0 defaults to 1E-3 to avoid division by zero !).
(default -90) SPIN : spins the 2D image before wrapping onto 3D plane...

IF you just get a flat horizontal line, hit 'N'ext and change the view variables, so as not to be side-on !
To modify any problem with your system's aspect ratio : Tweak the Viou routine : 3650 m=TAN(h)*-1 , to say m=TAN(h)*-.75 or similar.
Regards, Steve.

[stevepoole]

Hi Folks,
Yuletide greetings,
Steve.

[stevepoole]

Hi Folks,
Just out of hospital, after an unexpected Xmas op, but feeling quite ok after all... so,

..... here's wishing you a great New Year 2023, and especially every success in your QLing projects.

I hope to 'pull the rabbit out of the hat' soon in a perspective animation sense, as I have a clear month of reeducation at home !

Do let us all know what your QL resolutions are for 2023.... as there is planty of life left in our old QLs yet.

Take care, Steve.

[vanpeebles]

Get well soon

[martyn_hill]

Wishing you well, Steve and Happy New Year

[stevepoole]

Hi Folks,
Windows 8 is no longer supported, and my 10 year old laptop is full of problems, so in to mothballs it goes as an archive base.

So I got a new 3.4Ghz laptop and installed the latest QPC2 (with active X) on it, and it really is blisteringly fast, and reasonably priced....

Now, out of hospital, I shall try to devise a decent user interface for the 3D perspective animation projects.

Marcel deserves some reward for his amazing work, and I shall see he gets it via his web site .

Regards, Steve.
_________________________

[stevepoole]

Hi All,
New laptop = new configurations ! Now I need to swap drive numbers on most old programs, eg: dos5_ to dos2_ etc

But after searching my docs, I cannot find the syntax for the DOS_USE command....

Does anyone have the info on hand ?

Steve.
______________