Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Qwerkey on February 10, 2020, 10:36:28 am

Title: 3D Stereo Discs Graphics Program
Post by: Qwerkey on February 10, 2020, 10:36:28 am
Back in the days of [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] (ah, this seems an eternity ago!) I wrote a program which displayed balls in stereoscopic 3D.  In the stereo imaging used, the viewer could actually "see" near objects coming right out of the screen and far object set back from the screen.  The method used was to alternate red and blue images offset in x- by a stereo angle amount.  The program was able to give the stereoscopic behaviour when using Red/Blue 3D glasses.

The method of alternating red and blue images made the viewed image jittery.  I tried to synchronise the alternation with screen refresh rate, but nothing I tried would allow the removal of the jitteriness.  The project was abandoned incomplete.

What I really wanted to do was to display both the red and the blue images together without the second image overwriting the first.  A method to do this is _MEM processing (thanks again to Steve McNeill for his tutorials) where you can simultaneously alter the _RED, _GREEN, _BLUE and _ALHPA parameters of each image picture element.

The program here implements the _MEM method accordingly.  There are 10 images of a disc, each of which moves in the x-, y- and z- directions.  The displacement of the red and blue (green is not used) images is linearly dependent upon the z- position, and this gives the stereoscopic behaviour.  _MAPTRIANGLE(3D) is used to map each image and this handles all the perspective effects (I say, once again, what a marvellous, marvellous QB64 function this is).

If you run this program with Red/Blue 3D glasses (Blue over the right eye), you will see all the normal behaviour of _MAPTRIANGLE(3D), but in addition the discs will appear to move in and out of the screen.  Without the glasses you will see red and blue images overlapping (and giving magenta) with red/blue poking out sideways dependent upon z- position.

I realise that this program will have very limited interest: the number of QB64 members is not large, members who have red/blue glasses and who have an interest in such graphics will be a very select group.  For this reason I leave the program as a curiosity here in this state (there could be improvements which I will not attempt).  The 10 images are formed as separate software objects which are then individually _MEM processed, those images are copied to hardware and then those images displayed and then image-freed.  There will be a method to directly address the screen pixels, but this is a skill level beyond my limited ability.  It works anyway!
Code: QB64: [Select]
  1. '3D Stereo Discs Graphics Program v1 by Qwerkey 10/02/20
  2. '
  3.  
  4. CONST False = 0, True = NOT False, XScreen% = 1100, YScreen% = 800, PiConst! = 4 * ATN(1), ZOffset% = -620
  5. CONST Xst%% = 5, Stereo! = (5 * 2) / YScreen%, Rad%% = 50, Zf! = 1
  6. 'All perspective behaviour handled by _maptriangle(3D), stereo effect x-separation linear with z-
  7. 'Software Images (for _MEM processing).  Hardware images for display
  8.  
  9. DIM CMem(9) AS _MEM, COff AS _OFFSET, Balls!(9, 12), SoftImg&(9), HardImg&(9)
  11.  
  12. FOR K%% = 0 TO 9
  13.     Balls!(K%%, 0) = RND * XScreen% / 2
  14.     Balls!(K%%, 1) = RND * YScreen% / 2
  15.     Balls!(K%%, 2) = RND * YScreen% / 2
  16.     Balls!(K%%, 3) = 2 * PiConst! * (RND - 0.5)
  17.     Balls!(K%%, 4) = 2 * PiConst! * (RND - 0.5)
  18.     Balls!(K%%, 5) = 2 * PiConst! * (RND - 0.5)
  19.     Balls!(K%%, 6) = 0.007 + RND * 0.02
  20.     IF RND > 0.5 THEN Balls!(K%%, 6) = -Balls!(K%%, 6)
  21.     Balls!(K%%, 7) = 0.007 + RND * 0.02
  22.     IF RND > 0.5 THEN Balls!(K%%, 7) = -Balls!(K%%, 7)
  23.     Balls!(K%%, 8) = 0.007 + RND * 0.02
  24.     IF RND > 0.5 THEN Balls!(K%%, 8) = -Balls!(K%%, 8)
  25.     Balls!(K%%, 9) = Stereo! * Balls!(K%%, 2) * SIN(Balls!(K%%, 5))
  26.     SoftImg&(K%%) = _NEWIMAGE(2 * (Rad%% + Xst%%) + 1, 2 * Rad%% + 1, 32)
  27.     CMem(K%%) = _MEMIMAGE(SoftImg&(K%%))
  28.     FOR N% = 0 TO 2 * (Rad%% + Xst%%)
  29.         FOR M% = 0 TO 2 * Rad%%
  30.             COff = 4 * (N% + M% * 2 * (Rad%% + Xst%%) + 1) + CMem(K%%).OFFSET
  31.             _MEMPUT CMem(K%%), COff + 3, 255 AS _UNSIGNED _BYTE
  32.         NEXT M%
  33.     NEXT N%
  34.     HardImg&(K%%) = _COPYIMAGE(SoftImg&(K%%), 33)
  35. NEXT K%%
  36.  
  37. 'Screen (Hardware Only)
  38. SCREEN _NEWIMAGE(XScreen%, YScreen%, 32)
  42. 'Checking off in fully working
  44.  
  46.     _LIMIT 30
  47.  
  48.     FOR K%% = 0 TO 9
  49.         Balls!(K%%, 3) = PiBand!(Balls!(K%%, 3) + Balls!(K%%, 6))
  50.         Balls!(K%%, 4) = PiBand!(Balls!(K%%, 4) + Balls!(K%%, 7))
  51.         Balls!(K%%, 5) = PiBand!(Balls!(K%%, 5) + Balls!(K%%, 8))
  52.         Balls!(K%%, 9) = Stereo! * Balls!(K%%, 2) * SIN(Balls!(K%%, 5))
  53.         FOR N% = 0 TO 2 * (Rad%% + Xst%%)
  54.             FOR M% = 0 TO 2 * Rad%%
  55.                 COff = 4 * (N% + M% * (2 * (Rad%% + Xst%%) + 1)) + CMem(K%%).OFFSET
  56.                 _MEMPUT CMem(K%%), COff + 3, 0 AS _UNSIGNED _BYTE 'Alpha - first set all pixels to transparent
  57.                 Q0% = N% - (Rad%% + Xst%% + Balls!(K%%, 9))
  58.                 Q1% = M% - Rad%%
  59.                 IF SQR(Q0% * Q0% + Q1% * Q1%) <= Rad%% THEN
  60.                     _MEMPUT CMem(K%%), COff + 2, 255 AS _UNSIGNED _BYTE 'Red
  61.                     _MEMPUT CMem(K%%), COff + 3, 255 AS _UNSIGNED _BYTE
  62.                 ELSE
  63.                     _MEMPUT CMem(K%%), COff + 2, 0 AS _UNSIGNED _BYTE 'Red
  64.                 END IF
  65.                 Q0% = N% - (Rad%% + Xst%% - Balls!(K%%, 9))
  66.  
  67.                 IF SQR(Q0% * Q0% + Q1% * Q1%) <= Rad%% THEN
  68.                     _MEMPUT CMem(K%%), COff, 255 AS _UNSIGNED _BYTE 'Blue
  69.                     _MEMPUT CMem(K%%), COff + 3, 255 AS _UNSIGNED _BYTE
  70.                 ELSE
  71.                     _MEMPUT CMem(K%%), COff, 0 AS _UNSIGNED _BYTE 'Blue
  72.                 END IF
  73.             NEXT M%
  74.         NEXT N%
  75.         HardImg&(K%%) = _COPYIMAGE(SoftImg&(K%%), 33)
  76.         Zpos! = Balls!(K%%, 2) * SIN(Balls!(K%%, 5)) * Zf! + ZOffset%
  77.         X1! = Balls!(K%%, 0) * SIN(Balls!(K%%, 3)) + Rad%% + Xst%%
  78.         X0! = Balls!(K%%, 0) * SIN(Balls!(K%%, 3)) - (Rad%% + Xst%%)
  79.         Y1! = Balls!(K%%, 1) * SIN(Balls!(K%%, 4)) - Rad%%
  80.         Y0! = Balls!(K%%, 1) * SIN(Balls!(K%%, 4)) + Rad%%
  81.         _MAPTRIANGLE (0, 0)-(2 * (Rad%% + Xst%%), 0)-(0, 2 * Rad%%), HardImg&(K%%) TO(X0!, Y0!, Zpos!)-(X1!, Y0!, Zpos!)-(X0!, Y1!, Zpos!)
  82.         _MAPTRIANGLE (2 * (Rad%% + Xst%%), 2 * Rad%%)-(0, 2 * Rad%%)-(2 * (Rad%% + Xst%%), 0), HardImg&(K%%) TO(X1!, Y1!, Zpos!)-(X0!, Y1!, Zpos!)-(X1!, Y0!, Zpos!)
  83.         _FREEIMAGE HardImg&(K%%)
  84.     NEXT K%%
  85.     _DISPLAY
  86.  
  89.  
  90. FUNCTION PiBand! (PiAngle!)
  91.     SELECT CASE PiAngle!
  92.         CASE IS < -_PI
  93.             PiBand! = PiAngle! + _PI(2)
  94.         CASE IS > _PI
  95.             PiBand! = PiAngle! - _PI(2)
  96.         CASE ELSE
  97.             PiBand! = PiAngle!
  98.     END SELECT
  100.  
Title: Re: 3D Stereo Discs Graphics Program
Post by: keybone on February 13, 2020, 05:27:26 am
That's cool, makes me wish I had a pair of 3d glasses :-)
Text Only | Text with Attachments