« previous next »
Pages: 1 [2] 3 4   Go Down

Author Topic: MAPTRIANGLE in 3D  (Read 26613 times)

0 Members and 1 Guest are viewing this topic.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D: textured roller or cone
« Reply #15 on: November 27, 2018, 03:06:50 pm »
Hi.

In sample examples, textured blocks are already available. I was thinking about how to make a textured cylinder. Finally, the program can handle both a textured disk, a cylinder and a cone. The number of cone sides is determined by the Segments variable in the program. The higher Segments is, the body is finer and the texture is more faithful (and the program more demanding). The variables in the Celo0 and Celo1 fields contain the values ​​of the vertices of the individual triangles in the sense of rotation (because the object is a rotating body), celo0 is one untextured side of the cylinder, the cello1 is the second untextured side of the cylinder (bottom). Use the 1,2 keys to change the speed or direction of rotation, 3,4 to move the face to the X axis, 5,6 to move the Y axis, 7,8 to move the X axis to the second bottom, 9, Q to shift the Y axis of the second end, W, E for changing the diameter of the cylinder face, R, T for changing the diameter of the second face of the cylinder, A, S for the zoom, D, F for displacement in the Z axis of the first face, and G, H for the Z axis cell. A beautiful effect can be achieved by using the Stars image by Johnno56. I have one question for developers - why is this happening:

Use the T / R or W / E key to open the cone so that it is a hollow cylinder. Press C. This will enable the _CLOCKWISE parameter. The picture then has a lot of noise. Now close the cylinder (do the cone) (one radius is set to zero), the noise disappears. Why?


Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3. TYPE crc
  4.     x AS SINGLE
  5.     y AS SINGLE
  7.  
  8. DIM SHARED Segments, R1, R2, Z1, Z2, Efect, OldX, OldY
  9.  
  10. 'Warning! Segments variable muss be dividible by 2!
  11. Segments = 314: R1 = .1: R2 = 2: Z1 = -1: Z2 = -2
  12. im = _LOADIMAGE("abcde 066.jpg", 32)
  13.  
  14. restart:
  15. REDIM s(Segments + 1) AS LONG, celo0(Segments + 1) AS crc, celo1(Segments + 1) AS crc
  16.  
  17. divideimage s(), im
  18. SETCelo R1, celo0()
  19. SETCelo R2, celo1()
  20. S = Segments
  21. rd = .01
  22. PrintIT = 1
  24.     Quad celo0(1).x, celo0(1).y, Z1, celo0(S).x, celo0(S).y, Z1, celo1(1).x, celo1(1).y, Z2, celo1(S).x, celo1(S).y, Z2, s(1)
  25.     FOR d = 2 TO Segments
  26.         Quad celo0(d - 1).x, celo0(d - 1).y, Z1, celo0(d).x, celo0(d).y, Z1, celo1(d - 1).x, celo1(d - 1).y, Z2, celo1(d).x, celo1(d).y, Z2, s(d)
  27.     NEXT d
  28.  
  29.  
  30.     i$ = INKEY$
  31.  
  32.     SELECT CASE UCASE$(i$)
  33.         CASE "1": rd = rd + .001
  34.         CASE "2": rd = rd - .001
  35.         CASE "3": c0x = c0x + .01
  36.         CASE "4": c0x = c0x - .01
  37.         CASE "5": c0y = c0y + .01
  38.         CASE "6": c0y = c0y - .01
  39.  
  40.         CASE "7": c1x = c1x + .01
  41.         CASE "8": c1x = c1x - .01
  42.         CASE "9": c1y = c1y + .01
  43.         CASE "Q": c1y = c1y - .01
  44.  
  45.         CASE "W": R1 = R1 - .01: SETCelo R1, celo0()
  46.         CASE "E": R1 = R1 + .01: SETCelo R1, celo0()
  47.         CASE "R": R2 = R2 - .01: SETCelo R2, celo1()
  48.         CASE "T": R2 = R2 + .01: SETCelo R2, celo1()
  49.  
  50.  
  51.         CASE "A": Z1 = Z1 + .01: Z2 = Z2 + .01
  52.         CASE "S": Z1 = Z1 - .01: Z2 = Z2 - .01
  53.  
  54.         CASE "D": Z1 = Z1 + .01
  55.         CASE "F": Z1 = Z1 - .01
  56.  
  57.         CASE "G": Z2 = Z2 + .01
  58.         CASE "H": Z2 = Z2 - .01
  59.  
  60.         CASE "C": IF Efect = 0 THEN Efect = 1 ELSE Efect = 0: _DELAY .2
  61.         CASE CHR$(27):
  62.             FOR freemem = 1 TO Segments
  63.                 _FREEIMAGE s(freemem)
  64.             NEXT
  65.             SYSTEM
  66.  
  67.     END SELECT
  68.  
  69.  
  70.     i = 0: rot = rot + rd
  71.  
  72.  
  73.     FOR f = 360 / Segments TO 360 STEP (360 / Segments)
  74.         i = i + 1
  75.         rad = _D2R(f)
  76.         celo0(i).x = SIN(rad + rot) * R1 + c0x
  77.         celo0(i).y = COS(rad + rot) * R1 + c0y
  78.  
  79.         celo1(i).x = SIN(rad + rot) * R2 + c1x
  80.         celo1(i).y = COS(rad + rot) * R2 + c1y
  81.  
  82.  
  83.     NEXT
  84.  
  85.     IF PrintIT THEN
  86.         LOCATE 1
  89.         PRINT "Press 1,2 for rotation, 3,4 for radius 1 X pos, 5,6 for radius 1 Y pos, 7,8 for radius 2 X pos, 9,Q for radius 2 Y pos, W,E for radius 1, R,T for radius 2, A,S for zoom, D,F for depth 1, G,H for depth 2"
  90.         PRINT "Segments in use: "; Segments
  91.         PrintIT = 0
  92.     END IF
  93.  
  94.     _DISPLAY
  95.     _LIMIT 55
  97.  
  98.  
  99. SUB SETCelo (radius AS INTEGER, arr() AS crc)
  100.     FOR f = 0 TO 360 STEP (360 / Segments)
  101.         i = i + 1
  102.         rad = _D2R(f)
  103.         arr(i).x = SIN(rad) * radius
  104.         arr(i).y = COS(rad) * radius
  105.     NEXT
  107.  
  108.  
  109. SUB divideimage (s() AS LONG, source AS LONG) 'divide image to more images in X
  110.     sir = _WIDTH(source) / UBOUND(S)
  111.     FOR r = 0 TO Segments
  112.         i = i + 1
  113.         s(i) = _NEWIMAGE(sir, _HEIGHT(source), 32)
  114.         _PUTIMAGE (0, 0)-(sir, _HEIGHT(source)), source, s(i), (sirka, 0)-(sirka + sir, _HEIGHT(source))
  115.         s(i) = _COPYIMAGE(s(i), 33)
  116.         sirka = sirka + sir
  117.     NEXT r
  119.  
  120. SUB Quad (dx1, dy1, dz1, dx2, dy2, dz2, dx3, dy3, dz3, dx4, dy4, dz4, imag&)
  121.     W = _WIDTH(imag&)
  122.     H = _HEIGHT(imag&)
  123.  
  124.     IF Efect THEN
  125.         _MAPTRIANGLE _CLOCKWISE (0, 0)-(W, 0)-(0, H), imag& TO(dx1, dy1, dz1)-(dx2, dy2, dz2)-(dx3, dy3, dz3), 0
  126.         _MAPTRIANGLE _CLOCKWISE (W, 0)-(0, H)-(W, H), imag& TO(dx2, dy2, dz2)-(dx3, dy3, dz3)-(dx4, dy4, dz4), 0
  127.     ELSE
  128.         _MAPTRIANGLE (0, 0)-(W, 0)-(0, H), imag& TO(dx1, dy1, dz1)-(dx2, dy2, dz2)-(dx3, dy3, dz3), 0
  129.         _MAPTRIANGLE (W, 0)-(0, H)-(W, H), imag& TO(dx2, dy2, dz2)-(dx3, dy3, dz3)-(dx4, dy4, dz4), 0
  130.     END IF
  132.  
abcde 066.jpg
* abcde 066.jpg (Filesize: 1.91 MB, Dimensions: 2304x1728, Views: 565)
« Last Edit: November 27, 2018, 03:08:37 pm by Petr »
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D - ROTATION
« Reply #16 on: January 06, 2019, 11:08:18 am »
Hi. Next demo show rotation in 3D using MAPTRIANGLE 3D, none direct OpenGL statements.

Code: QB64: [Select]
  1. _TITLE "Next MAPTRIANGLE 3D demo"
  2.  
  3. k = _PI(2) / 4
  4.  
  6.     x AS INTEGER
  7.     y AS INTEGER
  9.  
  10. '------------
  11. DIM SHARED texture AS LONG, rot
  12. DIM i AS LONG, i2 AS LONG
  13.  
  15.     x AS SINGLE
  16.     y AS SINGLE
  17.     z AS SINGLE
  19.  
  20. DIM SHARED T(18 * 110) AS T
  21.  
  22. init
  23. '---------------------
  24.  
  25.  
  26.  
  27. SCREEN _NEWIMAGE(800, 600, 32)
  28. CLS , _RGB32(127, 127, 188)
  29.  
  30.  
  31. DIM B(3) AS b
  32.  
  33.  
  34. B(0).x = -1: B(0).y = -1
  35. B(1).x = 1: B(1).y = -1
  36. B(2).x = -1: B(2).y = -1
  37. B(3).x = 1: B(3).y = -1
  38.  
  39. w = _WIDTH(i)
  40. h = _HEIGHT(i)
  41.  
  43.     IF i THEN _FREEIMAGE i
  44.     j = _NEWIMAGE(150, 100, 32)
  45.     _DEST j
  46.     CLS , _RGBA32(0, 50, 127, 100)
  47.     clock 0, 0
  48.     _DEST 0
  49.  
  50.     i = _COPYIMAGE(j, 33)
  51.     _FREEIMAGE j
  52.  
  53.     clock 0, 0
  54.  
  55.     texture& = i
  56.     '--------------------
  57.  
  58.     FOR Ys = 0 TO 17
  59.         zz2 = zz2 + .01
  60.         FOR Xs = 0 TO 50
  61.             IF T(i4).x > 0 THEN
  62.                 X = T(i4).x + 70
  63.                 Y = T(i4).y
  64.                 z = T(i4).z - 70
  65.                 kostka X - zz2, Y, z - 15 + zz2
  66.             END IF
  67.             i4 = i4 + 1
  68.     NEXT Xs, Ys
  69.     i4 = 0
  70.     IF zz2 > 140 THEN zz2 = -50
  71.     '-----------------------------
  72.  
  73.  
  74.     Sx = (200 + 600) / 2: Rx = (600 - 200) / 2
  75.     Sy = (400 + 200) / 2: Ry = (400 - 200) / 2
  76.     rot = rot + .01
  77.  
  78.     Sx = 0
  79.     Sz = -2.5
  80.     Sy = -1
  81.  
  82.  
  83.     Rx = 1
  84.     Ry = -1
  85.     Rz = 1
  86.     ' info for rotation. To rotate the bodies, you must have all the points that are rotating in the same center. For this demo, it is easy to specify the radius of rotation,
  87.     ' because all the points are just as far from the center as the cube is a symmetrical body. But if you want to write a 3D game, then if you want to write with MAPTRIANGLE,
  88.     ' you need to map the floor using 4 triangles and calculate the radius for the points on the edges using the Pythagoras theorem:
  89.     '
  90.     '       A--------------------------B     x is your position, as you see, all points use different radius
  91.     '       I\\\                   Y / I     Y is your triangle side 1, next is floor height - Y
  92.     '       I   \\\\\\             Y/  I     X is your triangle side 2, next is floor width - X
  93.     '       I          \\\\\\\\/// xXXXI     third sides calculate using Pythagoras.
  94.     '       I       ////////////    \  I
  95.     '       I //////                 \ I
  96.     '       C--------------------------D
  97.     '
  98.     x1 = Sx + SIN(rot) * Rx: z1 = Sz + COS(rot) * Rz: y1R = Sy + SIN(rot) * Ry
  99.     x2 = Sx + SIN(rot + k) * Rx: z2 = Sz + COS(rot + k) * Rz: y2R = Sy + SIN(rot + k) * Ry
  100.  
  101.     x4 = Sx + SIN((2 * k) + rot) * Rx: z4 = Sz + COS((2 * k) + rot) * Rz: y3R = Sy + SIN((3 * k) + rot) * Ry
  102.     x3 = Sx + SIN((3 * k) + rot) * Rx: z3 = Sz + COS((3 * k) + rot) * Rz: y4R = Sy + SIN((4 * k) + rot) * Ry
  103.  
  104.     y1 = B(0).y
  105.     y2 = B(1).y
  106.     y4 = B(2).y
  107.     y3 = B(3).y
  108.  
  109.  
  110.  
  111.  
  112.     y5 = y1 + 1.5
  113.     y6 = y2 + 1.5
  114.     y7 = y3 + 1.5
  115.     y8 = y4 + 1.5
  116.  
  117.  
  118.     _MAPTRIANGLE (0, h)-(w, h)-(0, 0), i TO(x1, y1, z1)-(x2, y2, z2)-(x3, y3, z3) 'podlaha                 floor
  119.     _MAPTRIANGLE (w, h)-(0, 0)-(w, 0), i TO(x2, y2, z2)-(x3, y3, z3)-(x4, y4, z4) 'podlaha
  120.  
  121.  
  122.     _MAPTRIANGLE (0, h)-(w, h)-(0, 0), i TO(x1, y5, z1)-(x2, y6, z2)-(x3, y7, z3) 'strop                   roof
  123.     _MAPTRIANGLE (w, h)-(0, 0)-(w, 0), i TO(x2, y6, z2)-(x3, y7, z3)-(x4, y8, z4) 'strop
  124.  
  125.     _MAPTRIANGLE (0, h)-(w, h)-(0, 0), i TO(x1, y1, z1)-(x2, y2, z2)-(x1, y5, z1) 'prava stena             right wall
  126.     _MAPTRIANGLE (w, h)-(0, 0)-(w, 0), i TO(x2, y2, z2)-(x1, y5, z1)-(x2, y6, z2) 'prava stena
  127.  
  128.  
  129.     _MAPTRIANGLE (w, h)-(0, h)-(w, 0), i TO(x3, y3, z3)-(x4, y4, z4)-(x3, y7, z3) 'leva stena              left wall
  130.     _MAPTRIANGLE (0, h)-(w, 0)-(0, 0), i TO(x4, y4, z4)-(x3, y7, z3)-(x4, y8, z4) 'leva stena
  131.  
  132.  
  133.     _MAPTRIANGLE (w, h)-(0, h)-(w, 0), i TO(x1, y1, z1)-(x3, y3, z3)-(x1, y5, z1) 'zadni stena             back wall
  134.     _MAPTRIANGLE (0, h)-(w, 0)-(0, 0), i TO(x3, y3, z3)-(x1, y5, z1)-(x3, y7, z3) 'zadni stena
  135.  
  136.  
  137.     _MAPTRIANGLE (0, h)-(w, h)-(0, 0), i TO(x2, y2, z2)-(x4, y4, z4)-(x2, y6, z2) 'predni stena            front wall
  138.     _MAPTRIANGLE (w, h)-(0, 0)-(w, 0), i TO(x4, y4, z4)-(x2, y6, z2)-(x4, y8, z4) 'zadni stena
  139.  
  140.  
  141.     _DISPLAY
  142.     _LIMIT 50
  144.  
  145. SUB kostka (x, y, z) 'zadavas levy horni predni roh ,udela kostku v zadane x,y,z                         x y z are coordinates for left upper corner, do cube on this place
  146.  
  147.  
  148.     W = _WIDTH(texture&)
  149.     H = _HEIGHT(texture&)
  150.  
  151.     '                g                       h                                e                  f
  152.     MAPQUAD x + -1.5, y + 1.5, z + -1.5, x + .5, y + 1.5, z + -1.5, x + -1.5, y + -.5, z + -1.5, x + .5, y + -.5, z - 1.5, texture&
  153.     MAPQUAD x + -1, y + 1, z + -1, x + 1, y + 1, z + -1, x + -1.5, y + 1.5, z + -1.5, x + .5, y + 1.5, z + -1.5, texture&
  154.     MAPQUAD x + -1.5, y + -.5, z + -1.5, x + .5, y + -.5, z - 1.5, x + -1, y + -1, z + -1, x + 1, y - 1, z - 1, texture& '
  155.     MAPQUAD x + -1, y + 1, z + -1, x + -1.5, y + 1.5, z + -1.5, x + -1, y + -1, z + -1, x + -1.5, y + -.5, z + -1.5, texture&
  156.     MAPQUAD x + .5, y + 1.5, z + -1.5, x + .5, y + -.5, z - 1.5, x + 1, y - 1, z - 1, x + 1, y + 1, z + -1, texture&
  157.     '                a                     b                    c                       d
  158.     MAPQUAD x + -1, y + 1, z + -1, x + 1, y + 1, z + -1, x + -1, y + -1, z + -1, x + 1, y - 1, z - 1, texture&
  159.  
  161.  
  162.  
  163.  
  164.  
  165. SUB MAPQUAD (x1, y1, z1, x2, y2, z2, x3, y3, z3, x4, y4, z4, texture AS LONG)
  166.     W = _WIDTH(texture&)
  167.     H = _HEIGHT(texture&)
  168.     GOTO nerot 'comment it for show, how it hat not to see...
  169.  
  170.     po = _PI(2) / 4
  171.  
  172.     s1 = SIN(rot + (1 * po)) * x1
  173.     c1 = COS(rot + (1 * po)) * y1
  174.  
  175.     s2 = SIN(rot + (2 * po)) * x2
  176.     c2 = COS(rot + (2 * po)) * y2
  177.  
  178.     s3 = SIN(rot + (3 * po)) * x3
  179.     c3 = COS(rot + (3 * po)) * y3
  180.  
  181.     s4 = SIN(rot + (4 * po)) * x4
  182.     c4 = COS(rot + (4 * po)) * y4
  183.  
  184.     x1 = x1 + s1: y1 = y1 + c1
  185.     x3 = x3 + s3: y3 = y3 + c3
  186.  
  187.     x2 = x2 + s2: y2 = y2 + c2
  188.     x4 = x4 + s4: y4 = y4 + c4
  189.  
  190.     nerot:
  191.     _MAPTRIANGLE (0, 0)-(W, 0)-(0, H), texture& TO(x1, y1, z1)-(x2, y2, z2)-(x3, y3, z3)
  192.     _MAPTRIANGLE (W, 0)-(0, H)-(W, H), texture& TO(x2, y2, z2)-(x3, y3, z3)-(x4, y4, z4)
  194.  
  195. SUB init
  196.     text$ = " Petr" 'width = 32 pixels (records)
  197.  
  198.     virtual& = _NEWIMAGE(100, 100, 256)
  199.     _DEST virtual&
  200.     PRINT text$
  201.     _SOURCE virtual&
  202.     i = 0
  203.     FOR Y = 17 TO 0 STEP -1
  204.         FOR X = 0 TO 50
  205.             IF POINT(X, Y) <> 0 THEN
  206.                 T(i).x = (-8.5 + X)
  207.                 T(i).y = -18 + (16 - Y) * 2
  208.                 T(i).z = -5 - X
  209.             END IF
  210.             i = i + 1
  211.     NEXT X, Y
  212.     _DEST 0: _SOURCE 0: _FREEIMAGE virtual&
  213.     i = 0
  215.  
  216.  
  217. SUB clock (x, y)
  218.     de = _DEST
  219.     clocka& = _NEWIMAGE(100, 100, 32)
  220.     _DEST clocka&
  221.     vterina = VAL(RIGHT$(TIME$, 2))
  222.     hodina = VAL(LEFT$(TIME$, 2))
  223.     minuta = VAL(MID$(TIME$, 4, 2))
  224.  
  225.     IF hodina > 12 THEN hodina = hodina - 12
  226.     hodina = hodina + (1 / 59) * minuta
  227.  
  228.  
  229.     vt = vterina + 45
  230.     ho = hodina + 45
  231.     mi = minuta + 45
  232.  
  233.     pozicevterina = _PI(2) / 60 * vt
  234.     poziceminuta = _PI(2) / 60 * ho * 5
  235.     pozicehodina = _PI(2) / 60 * mi
  236.  
  237.     xs = 50 + COS(pozicevterina) * 30
  238.     ys = 50 + SIN(pozicevterina) * 30
  239.  
  240.     xm = 50 + COS(poziceminuta) * 35
  241.     ym = 50 + SIN(poziceminuta) * 35
  242.  
  243.     xh = 50 + COS(pozicehodina) * 40
  244.     yh = 50 + SIN(pozicehodina) * 40
  245.  
  246.     FOR n = 1 TO 100
  247.         LINE (n, 0)-(n, 99), _RGB32(127 - n, n, 27 + n), BF
  248.     NEXT n
  249.     LINE (0, 0)-(99, 99), _RGB32(255, 255, 255), B
  250.  
  251.     COLOR _RGBA32(127, 127, 127, 150)
  253.     _PRINTSTRING (35, 45), "QB64"
  254.     COLOR _RGB32(255, 255, 255)
  255.  
  256.  
  257.     LINE (50, 50)-(xh, yh), _RGB32(255, 255, 0)
  258.     LINE (50, 50)-(xm, ym), _RGB32(255, 255, 0)
  259.     LINE (50, 50)-(xs, ys), _RGB32(0, 255, 255)
  260.     m = 0
  261.     FOR kruh = 0 TO _PI(2) STEP _PI(2) / 60
  262.         PSET (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)
  263.         IF m MOD 5 = 0 THEN LINE (50 + COS(kruh) * 47, 50 + SIN(kruh) * 47)-(50 + COS(kruh) * 44, 50 + SIN(kruh) * 44), , BF
  264.         m = m + 1
  265.     NEXT kruh
  266.     _DEST de
  267.     _SETALPHA 100, , clocka&
  268.     _PUTIMAGE (x, y), clocka&, de
  269.     _FREEIMAGE clocka&
  271.  

rotation 3D.JPG
* rotation 3D.JPG (Filesize: 48.3 KB, Dimensions: 818x636, Views: 517)
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #17 on: January 09, 2019, 05:37:38 am »
Hi Petr! It is nicely done... 3D Text Effect is awesome! I like how the texture changes in real-time.
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #18 on: January 09, 2019, 10:51:04 am »
Thank you, Ashish. I'm glad you like it.
Logged

FellippeHeitor

  • Guest
Re: MAPTRIANGLE in 3D
« Reply #19 on: January 09, 2019, 11:11:00 am »
Oh! No SUB _GL! That's impressive.
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #20 on: January 09, 2019, 03:23:49 pm »
Petr,

Most of 'how that works' is WAY over my head... I, for one, didn't think these types of effects could be done using only Basic. Well done! I'm impressed! Brilliant!

J
Logged
Logic is the beginning of wisdom.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #21 on: January 09, 2019, 08:54:35 pm »
Another awesome effort Petr, I like how you made block letters from a 2D print and used live clocks for a texture.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #22 on: January 10, 2019, 03:52:11 pm »
Thank you all very much for your feedback. :-D
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #23 on: January 13, 2019, 12:22:46 pm »
very cool this 3d demo (more the last without gl)
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D: ROOM
« Reply #24 on: February 01, 2019, 04:32:56 pm »
So if you liked the previous program, I wonder what you will say about this. Exactly in this style like this program I will continue. The program will allow you a virtual tour of my kitchen where I write programs. Excuse the exaggerated size of the room, in fact it's half, I guessed it. Textures are only approximate. If anyone would like to explain some details of this program, ask, I will to answer later.
This whole program is written again without OpenGL commands, only with MAPTRIANGLE 3D. Use arrows to control, end with Esc.

Code: QB64: [Select]
  1. DIM SHARED lX, lY, rXx, rY, mX, mY, ballX AS INTEGER, ballY AS INTEGER, m&, leftplr, rightplr
  2. m& = _NEWIMAGE(320, 240, 32)
  3. lX = 10: lY = 10: rxX = 310: rY = 10
  4. ballX = 160: ballY = 10: mY = -1: IF RND * 10 > 5 THEN mX = 1 ELSE mX = -1
  5. DIM SHARED dub AS LONG, aluminium as long
  6.  
  7.  
  8.  
  9. print "Loading textures..."
  10. extractpmf ("textures.pmf")
  11.  
  12. aluminium& = hload("alum.jpg")
  13. podl& = Hload("plovoucka.jpg")
  14. str& = strop&
  15. tokno& = okno&
  16. dvere& = spajz_dvere&
  17. lednice& = Hload("lednice2.jpg")
  18. orech& = Hload("dekor orech.jpg")
  19. orechsv& = Zesvetli("dekor orech.jpg")
  20. polstr& = Hload("polstr.jpg")
  21. dub& = Hload("dub.jpg")
  22. tdub& = Ztmav("dub.jpg")
  23.  
  24. pc& = SHload("pccs.png")
  25. kbd& = SHload("kbd.jpg")
  26. mys& = SHload("mys.jpg")
  27. woof& = SHload("repro.png")
  28. speak& = Hload("speaker.jpg")
  29. dlazba& = Hload("obklad.jpg")
  30. dlazba2& = Hload("obklad 2.jpg")
  31. sporakcelo = Hload("sporak-celo.jpg")
  32. sporakvrch = Hload("sporak-vrch.jpg")
  33. mikro& = SHload("mikro2.jpg")
  34.  
  35.  
  38. SCREEN _NEWIMAGE(800, 600, 32)
  40.  
  41. CX = 0: CY = 0: CZ = -1 '
  42. N = 1116 'used quads (also this room contains 2232 triangles)
  43.  
  44.  
  46.     X AS SINGLE '                                                                  source X points in standard view
  47.     Y AS SINGLE '                                                                  source Y points in standard view
  48.     Z AS SINGLE '                                                                  not use yet
  49.     pi AS SINGLE '                                                                 start draw position on radius
  50.     piH as single '
  51.     Radius AS SINGLE '                                                             radius (every point use own, but if is CX and CY in middle, are all the same)
  52.     RadiusH as single
  53.     wX AS SINGLE '                                                                 working coordinates
  54.     wY AS SINGLE
  55.     wZ AS SINGLE
  56.  
  57.     T AS LONG '                                                                    texture number for current triangle
  58.     Tm AS SINGLE '                                                                 texture multiplicier. 1 for one.
  60.  
  61.  
  62. DIM SHARED v(1 TO N) AS V
  63.  
  64. '         A          B        C         D
  65. DATA -10,-2,-5,-10,-2,10,10,-2,-5,10,-2,10: ' floor coordinates
  66. DATA -10,2,-5,-10,2,10,10,2,-5,10,2,10: '     roof coordinates
  67. DATA -10,-2,-5,-10,-2,10,-10,2,-5,-10,2,10: ' wall + window
  68. DATA -5,-2,8,-10,-2,8,-5,2,8,-10,2,8
  69. 'refrigerator
  70. DATA -5,-2,8,-5,-2.1,10,-5,2.1,8,-5,2,10
  71. DATA -5,-3,10,10,-3,10,-5,3,10,10,3,10
  72. DATA -4.8,-2,8,-3,-2,8,-4.8,1,8,-3,1,8
  73. DATA -5,1,8,-3,1,8,-5,1,10,-3,1,10
  74. DATA -3,1,8,-3,1,10,-3,-2,8,-3,-2,10
  75. DATA -4.8,1,8,-4.8,1,10,-4.8,-2,8,-4.8,-2,10
  76. 'bench
  77. DATA -2.8,-1.5,8,-2.8,-1.5,9,-2.8,-2,8,-2.8,-2,9
  78. DATA -2.7,-1.5,8,-2.7,-1.5,9,-2.7,-2,8,-2.7,-2,9
  79. DATA 0.8,-1.5,8,0.8,-1.5,9,0.8,-2,8,0.8,-2,9
  80. DATA 0.7,-1.5,8,0.7,-1.5,9,0.7,-2,8,0.7,-2,9
  81. DATA 0.7,-1.5,8,0.8,-1.5,8,.7,-2,8,0.8,-2,8
  82. DATA -2.7,-1.5,8,-2.8,-1.5,8,-2.7,-2,8,-2.8,-2,8
  83. DATA 2,-1.5,8,-3.0,-1.5,8,2,-1.5,10.5,-3.0,-1.5,10.5
  84. DATA 4.39,-1.5,9.5,-3,-1.5,9.5,4.39,0,10,-3,0,10
  85. DATA 1.9,-1.5,10,4.4,-1.5,10,1.9,-1.5,3,4.4,-1.5,3
  86. DATA 3.9,-1.5,10,3.9,-1.5,3,4.4,0,10,4.4,0,3
  87. DATA 1.9,-1.5,8,3.9,-1.5,8,1.9,-2,8,3.9,-2,8
  88. DATA 1.9,-1.5,7.9,3.9,-1.5,7.9,1.9,-2,7.9,3.9,-2,7.9
  89. DATA 1.9,-1.5,8,1.9,-1.5,7.9,1.9,-2,8,1.9,-2,7.9
  90. DATA 1.9,-2,3,4.4,-2,3,1.9,-1.5,3,4.4,-1.5,3
  91. DATA 1.9,-2,3.1,4.4,-2,3.1,1.9,-1.5,3.1,4.4,-1.5,3.1
  92. DATA 4.4,-2,3.1,4.4,-2,3,4.4,-1.5,3.1,4.4,-1.5,3
  93. DATA 1.9,-2,3.1,1.9,-2,3,1.9,-1.5,3.1,1.9,-1.5,3
  94. DATA 3.9,-1.5,3,4.4,-1.5,3,4.4,0,3,4.4,0,3
  95. DATA 4.4,-2,10,4.4,-2,3,4.4,0,10,4.4,0,3
  96. DATA 1.5,-2,7.5,1.7,-2,7.5,1.5,-1,7.5,1.7,-1,7.5
  97. DATA 1.5,-2,7.3,1.7,-2,7.3,1.5,-1,7.3,1.7,-1,7.3
  98. DATA 1.5,-2,7.3,1.5,-1,7.3,1.5,-2,7.5,1.5,-1,7.5
  99. DATA 1.7,-2,7.3,1.7,-1,7.3,1.7,-2,7.5,1.7,-1,7.5
  100. DATA -2,-2,7.5,-2.2,-2,7.5,-2,-1,7.5,-2.2,-1,7.5
  101. DATA -2,-2,7.3,-2.2,-2,7.3,-2,-1,7.3,-2.2,-1,7.3
  102. DATA -2,-2,7.3,-2,-1,7.3,-2,-2,7.5,-2,-1,7.5
  103. DATA -2.2,-2,7.3,-2.2,-1,7.3,-2.2,-2,7.5,-2.2,-1,7.5
  104. DATA 1.5,-2,3.5,1.7,-2,3.5,1.5,-1,3.5,1.7,-1,3.5
  105. DATA 1.5,-2,3.7,1.7,-2,3.7,1.5,-1,3.7,1.7,-1,3.7
  106. DATA 1.5,-2,3.7,1.5,-1,3.7,1.5,-2,3.5,1.5,-1,3.5
  107. DATA 1.7,-2,3.7,1.7,-1,3.7,1.7,-2,3.5,1.7,-1,3.5
  108. DATA -2,-2,3.5,-2.2,-2,3.5,-2,-1,3.5,-2.2,-1,3.5
  109. DATA -2,-2,3.7,-2.2,-2,3.7,-2,-1,3.7,-2.2,-1,3.7
  110. DATA -2,-2,3.7,-2,-1,3.7,-2,-2,3.5,-2,-1,3.5
  111. DATA -2.2,-2,3.7,-2.2,-1,3.7,-2.2,-2,3.5,-2.2,-1,3.5
  112. DATA 1.5,-1,3.5,-2,-1,3.5,1.5,-1.1,3.5,-2,-1.1,3.5
  113. DATA 1.5,-1,7.5,-2,-1,7.5,1.5,-1.1,7.5,-2,-1.1,7.5
  114. DATA 1.7,-1,3.5,1.7,-1,7.5,1.7,-1.1,3.5,1.7,-1.1,7.5
  115. DATA -2.2,-1,3.5,-2.2,-1,7.5,-2.2,-1.1,3.5,-2.2,-1.1,7.5
  116. 'desk
  117. DATA 1.8,-1,3.4,-2.3,-1,3.4,1.8,-1,7.6,-2.3,-1,7.6
  118. DATA 1.8,-.9,3.4,-2.3,-.9,3.4,1.8,-.9,7.6,-2.3,-.9,7.6
  119. DATA 1.8,-.9,3.4,-2.3,-.9,3.4,1.8,-1,3.4,-2.3,-1,3.4
  120. DATA 1.8,-.9,7.6,-2.3,-.9,7.6,1.8,-1,7.6,-2.3,-1,7.6
  121. DATA 1.8,-.9,3.4,1.8,-1,3.4,1.8,-.9,7.6,1.8,-1,7.6
  122. DATA -2.3,-.9,3.4,-2.3,-1,3.4,-2.3,-.9,7.6,-2.3,-1,7.6
  123. 'chair
  124. DATA .3,-2,3.9,.4,-2,3.9,.3,-1.5,3.9,.4,-1.5,3.9
  125. DATA .3,-2,3.8,.4,-2,3.8,.3,-1.5,3.8,.4,-1.5,3.8
  126. DATA .3,-2,3.8,.3,-2,3.9,.3,-1.5,3.8,.3,-1.5,3.9
  127. DATA .4,-2,3.8,.4,-2,3.9,.4,-1.5,3.8,.4,-1.5,3.9
  128. DATA -.7,-2,3.9,-.8,-2,3.9,-.7,-1.5,3.9,-.8,-1.5,3.9
  129. DATA -.7,-2,3.8,-.8,-2,3.8,-.7,-1.5,3.8,-.8,-1.5,3.8
  130. DATA -.7,-2,3.8,-.7,-2,3.9,-.7,-1.5,3.8,-.7,-1.5,3.9
  131. DATA -.8,-2,3.8,-.8,-2,3.9,-.8,-1.5,3.8,-.8,-1.5,3.9
  132. DATA .3,-2,3,.4,-2,3,.3,-1.5,3,.4,-1.5,3
  133. DATA .3,-2,3.1,.4,-2,3.1,.3,-1.5,3.1,.4,-1.5,3.1
  134. DATA .3,-2,3.1,.3,-2,3,.3,-1.5,3.1,.3,-1.5,3
  135. DATA .4,-2,3.1,.4,-2,3,.4,-1.5,3.1,.4,-1.5,3
  136. DATA -.7,-2,3,-.8,-2,3,-.7,-1.5,3,-.8,-1.5,3
  137. DATA -.7,-2,3.1,-.8,-2,3.1,-.7,-1.5,3.1,-.8,-1.5,3.1
  138. DATA -.7,-2,3.1,-.7,-2,3,-.7,-1.5,3.1,-.7,-1.5,3
  139. DATA -.8,-2,3.1,-.8,-2,3,-.8,-1.5,3.1,-.8,-1.5,3
  140. DATA .5,-1.5,4.1,-.9,-1.5,4.1,.5,-1.5,2.9,-.9,-1.5,2.9
  141. DATA .5,-1.4,4.1,-.9,-1.4,4.1,.5,-1.4,2.9,-.9,-1.4,2.9
  142. DATA .5,-1.5,4.1,-.9,-1.5,4.1,.5,-1.4,4.1,-.9,-1.4,4.1
  143. DATA .5,-1.5,2.9,-.9,-1.5,2.9,.5,-1.4,2.9,-.9,-1.4,2.9
  144. DATA -.9,-1.5,2.9,-.9,-1.4,2.9,-.9,-1.5,4.1,-.9,-1.4,4.1
  145. DATA .5,-1.5,2.9,.5,-1.4,2.9,.5,-1.5,4.1,.5,-1.4,4.1
  146. DATA -.9,-1.5,2.9,.5,-1.5,2.9,-.9,0,2.7,.5,0,2.7
  147. DATA -.9,-1.5,3,.5,-1.5,3,-.9,0,2.8,.5,0,2.8
  148. DATA -.9,-1.5,2.9,-.9,-1.5,3,-.9,0,2.7,-.9,0,2.8
  149. DATA -.9,0,2.9,.5,0,2.9,-.9,0,2.7,.5,0,2.7
  150. DATA .5,-1.5,2.9,.5,-1.5,3,.5,0,2.7,.5,0,2.8
  151.  
  152. 'chair 2
  153. DATA -1.3,-2,4.9,-1.4,-2,4.9,-1.3,-1.5,4.9,-1.4,-1.5,4.9
  154. DATA -1.3,-2,4.8,-1.4,-2,4.8,-1.3,-1.5,4.8,-1.4,-1.5,4.8
  155. DATA -1.3,-2,4.8,-1.3,-2,4.9,-1.3,-1.5,4.8,-1.3,-1.5,4.9
  156. DATA -1.4,-2,4.8,-1.4,-2,4.9,-1.4,-1.5,4.8,-1.4,-1.5,4.9
  157. DATA -1.3,-2,5.9,-1.4,-2,5.9,-1.3,-1.5,5.9,-1.4,-1.5,5.9
  158. DATA -1.3,-2,5.8,-1.4,-2,5.8,-1.3,-1.5,5.8,-1.4,-1.5,5.8
  159. DATA -1.3,-2,5.8,-1.3,-2,5.9,-1.3,-1.5,5.8,-1.3,-1.5,5.9
  160. DATA -1.4,-2,5.8,-1.4,-2,5.9,-1.4,-1.5,5.8,-1.4,-1.5,5.9
  161. DATA -2.3,-2,4.9,-2.4,-2,4.9,-2.3,-1.5,4.9,-2.4,-1.5,4.9
  162. DATA -2.3,-2,4.8,-2.4,-2,4.8,-2.3,-1.5,4.8,-2.4,-1.5,4.8
  163. DATA -2.3,-2,4.8,-2.3,-2,4.9,-2.3,-1.5,4.8,-2.3,-1.5,4.9
  164. DATA -2.4,-2,4.8,-2.4,-2,4.9,-2.4,-1.5,4.8,-2.4,-1.5,4.9
  165. DATA -2.3,-2,5.9,-2.4,-2,5.9,-2.3,-1.5,5.9,-2.4,-1.5,5.9
  166. DATA -2.3,-2,5.8,-2.4,-2,5.8,-2.3,-1.5,5.8,-2.4,-1.5,5.8
  167. DATA -2.3,-2,5.8,-2.3,-2,5.9,-2.3,-1.5,5.8,-2.3,-1.5,5.9
  168. DATA -2.4,-2,5.8,-2.4,-2,5.9,-2.4,-1.5,5.8,-2.4,-1.5,5.9
  169. DATA -1.2,-1.5,4.7,-2.5,-1.5,4.7,-1.2,-1.5,6,-2.5,-1.5,6
  170. DATA -1.2,-1.4,4.7,-2.5,-1.4,4.7,-1.2,-1.4,6,-2.5,-1.4,6
  171. DATA -1.2,-1.5,4.7,-2.5,-1.5,4.7,-1.2,-1.4,4.7,-2.5,-1.4,4.7
  172. DATA -1.2,-1.5,6,-2.5,-1.5,6,-1.2,-1.4,6,-2.5,-1.4,6
  173. DATA -1.2,-1.5,4.7,-1.2,-1.4,4.7,-1.2,-1.5,6,-1.2,-1.4,6
  174. DATA -2.5,-1.5,4.7,-2.5,-1.4,4.7,-2.5,-1.5,6,-2.5,-1.4,6
  175. DATA -2.3,-1.5,4.7,-2.3,-1.5,6,-2.5,0,4.7,-2.5,0,6
  176. DATA -2.4,-1.5,4.7,-2.4,-1.5,6,-2.6,0,4.7,-2.6,0,6
  177. DATA -2.3,-1.5,4.7,-2.5,-1.5,4.7,-2.5,0,4.7,-2.7,0,4.7
  178. DATA -2.3,-1.5,6,-2.5,-1.5,6,-2.5,0,6,-2.7,0,6
  179. 'here is wall at the computer
  180. DATA 10,-2,-5,10,-2,0,10,2.1,-5,10,2.1,0
  181. DATA 10,-2,5,10,-2,0,10,2,5,10,2,0
  182. DATA 10,-2,10,10,-2,5,10,2.1,10,10,2.1,5
  183. 'here is the PC table
  184. DATA 10,-2,8,9.8,-2,8,10,-.7,8,9.8,-.7,8
  185. DATA 9.8,-2,8,9.8,-.7,8,9.8,-2,10,9.8,-.7,10
  186. DATA 4.4,-2,8,4.6,-2,8,4.4,-.7,8,4.6,-.7,8
  187. DATA 4.6,-2,8,4.6,-.7,8,4.6,-2,10,4.6,-.7,10
  188. DATA 9.8,-.7,9.8,4.6,-.7,9.8,9.8,-1.5,9.8,4.6,-1.5,9.8
  189. DATA 9.8,-1.5,9.8,4.6,-1.5,9.8,9.8,-1.5,10,4.6,-1.5,10
  190. dATA 7.5,-2,8,7.7,-2,8,7.5,-.7,8,7.7,-.7,8
  191. DATA 7.5,-2,8,7.5,-.7,8,7.5,-2,9.8,7.5,-.7,9.8
  192. DATA 7.7,-2,8,7.7,-.7,8,7.7,-2,9.8,7.7,-.7,9.8
  193. DATA 9.8,-2,8.3,7.5,-2,8.3,9.8,-1.8,8.3,7.5,-1.8,8.3
  194. DATA 9.8,-1.75,8.1,7.5,-1.75,8.1,9.8,-1.25,8.1,7.5,-1.25,8.1
  195. DATA 9.8,-1.2,8.1,7.5,-1.2,8.1,9.8,-.9,8.1,7.5,-.9,8.1
  196. DATA 9.8,-1.75,8.1,7.5,-1.75,8.1,9.8,-1.75,9,7.5,-1.75,9
  197. DATA 9.8,-1.2,8.1,7.5,-1.2,8.1,9.8,-1.2,9,7.5,-1.2,9
  198. DATA 9.8,-.9,8.1,7.5,-.9,8.1,9.8,-.9,9,7.5,-.9,9
  199. DATA 9.8,-2,9.8,7.5,-2,9.8,9.8,-.7,9.8,7.5,-.7,9.8
  200. DATA 10,-.7,7.9,4.4,-.7,7.9,10,-.5,7.9,4.4,-.5,7.9
  201. DATA 10,-.7,7.9,4.4,-.7,7.9,10,-.7,10,4.4,-.7,10
  202. DATA 10,-.5,7.9,4.4,-.5,7.9,10,-.5,10,4.4,-.5,10
  203. 'compputer
  204. DATA 5,-2,8,5,-2,8.5,5,-1.5,8,5,-1.5,8.5
  205. DATA 5,-1.5,8,5,-1.5,8.5,4.7,-1.5,8,4.7,-1.5,8.5
  206. DATA 4.7,-2,8,4.7,-2,8.5,4.7,-1.5,8,4.7,-1.5,8.5
  207. DATA 4.7,-2,8,5,-2,8,4.7,-1.5,8,5,-1.5,8
  208. 'monitor
  209. DATA 9.7,-.3,8.5,     7.7,-.3,9.6,   9.7,1,8.5,     7.7,1,9.6
  210. DATA 9.7,-.3,8.6,9.7,1,8.6,7.7,-.3,9.7,7.7,1,9.7
  211. DATA 7.7,-.3,9.6,7.7,1,9.6,7.7,-.3,9.7,7.7,1,9.7
  212. DATA 9.7,-.3,8.6,9.7,-.5,8.6,7.7,-.3,9.7,7.7,-.5,9.7
  213. DATA 9.2,-.49,8.6,8.2,-.49,8.6,9.2,-.49,10,8.2,-.49,10
  214. 'keyboard
  215. DATA 6.5,-.45,7.9,5.7,-.45,7.9,6.5,-.39,8.2,5.7,-.39,8.2: 'just shifted in space a 2D texture, not really 3D
  216. DATA 5.3,-.45,7.9,5,-.45,7.9,5.3,-.39,8,5,-.39,8: 'mouse - as keyboard
  217. 'subwoofer
  218. DATA 7.4,-2,9.8,7.4,-2,9,7.4,-1.5,9.8,7.4,-1.5,9
  219. DATA 7,-2,9.8,7,-2,9,7,-1.5,9.8,7,-1.5,9
  220. DATA 7.4,-2,9.8,7,-2,9.8,7.4,-1.5,9.8,7,-1.5,9.8
  221. DATA 7.4,-1.5,9.8,7,-1.5,9.8,7.4,-1.5,9,7,-1.5,9
  222. DATA 7.4,-2,9,7,-2,9,7.4,-1.5,9,7,-1.5,9
  223. 'speaker right
  224. DATA 4.7,-.5,10,4.7,0,10,4.7,-.5,9.7,4.7,0,9.7
  225. DATA 4.41,-.5,10,4.41,0,10,4.41,-.5,9.7,4.41,0,9.7
  226. DATA 4.41,0,10,4.41,0,9.7,4.7,0,10,4.7,0,9.7
  227. DATA 4.7,-.5,9.7,4.41,-.5,9.7,4.7,0,9.7,4.41,0,9.7
  228. 'speaker left
  229. DATA 6.7,-.5,10,6.7,0,10,6.7,-.5,9.7,6.7,0,9.7
  230. DATA 6.41,-.5,10,6.41,0,10,6.41,-.5,9.7,6.41,0,9.7
  231. DATA 6.41,0,10,6.41,0,9.7,6.7,0,10,6.7,0,9.7
  232. DATA 6.7,-.5,9.7,6.41,-.5,9.7,6.7,0,9.7,6.41,0,9.7
  233.  
  234. 'wall with kitchen unit, again walls with doors first
  235. DATA 10,-2,-5,5,-2,-5,10,2,-5,5,2,-5
  236. DATA -10,-2,-4.99,7,-2,-4.99,-10,1,-4.99,7,1,-4.99
  237. DATA -10,2,-4.99,7,2,-4.99,-10,1,-4.99,7,1,-4.99
  238. DATA 5,-2,-3.5,7,-2,-3.5,5,-0.5,-3.5,7,-0.5,-3.5
  239. DATA 5,-.5,-3.5,7,-.5,-3.5,5,-.5,-4.9,7,-.5,-4.9
  240. DATA 5,-2,-3.5,5,-.5,-3.5,5,-2,-4.9,5,-.5,-4.9
  241. DATA 7,-2,-3.5,7,-.5,-3.5,7,-2,-4.9,7,-.5,-4.9
  242. DATA 5,-2,-4.9,7,-2,-4.9,5,-0.5,-4.9,7,-0.5,-4.9
  243.  
  244. 'gas cooker
  245. DATA 4.9,-2,-4.9,4.9,-.5,-4.9,4.9,-2,-3.5,4.9,-.5,-3.5
  246. DATA 4.9,-.5,-3.4,-2.99,-.5,-3.4,4.9,-.5,-4.9,-2.99,-.5,-4.9
  247. DATA 4.9,-.6,-3.4,-2.99,-.6,-3.4,4.9,-.6,-4.9,-2.99,-.6,-4.9
  248. DATA 4.9,-.6,-3.4,-2.99,-.6,-3.4,4.9,-.5,-3.4,-2.99,-.5,-3.4
  249. DATA 4.9,1.6,-3.7,-9.99,1.6,-3.7,4.9,1.6,-4.9,-9.99,1.6,-4.9
  250. DATA 4.9,1.7,-3.7,-9.99,1.7,-3.7,4.9,1.7,-4.9,-9.99,1.7,-4.9
  251. DATA 4.9,1.7,-3.7,-9.99,1.7,-3.7,4.9,1.6,-3.7,-9.99,1.6,-3.7
  252. DATA 4.9,.6,-3.7,-9.99,.6,-3.7,4.9,.6,-4.9,-9.99,.6,-4.9
  253. DATA 4.9,.7,-3.7,-9.99,.7,-3.7,4.9,.7,-4.9,-9.99,.7,-4.9
  254. DATA 4.9,.7,-3.7,-9.99,.7,-3.7,4.9,.6,-3.7,-9.99,.6,-3.7
  255. DATA 4.9,-2,-3.5,4.9,-.5,-3.5,4.8,-2,-3.5,4.8,-.5,-3.5
  256. DATA 4.9,1.7,-3.7,4.9,.6,-3.7,4.9,1.7,-4.9,4.9,.6,-4.9
  257. DATA 4.9,1.7,-3.7,4.9,.6,-3.7,4.8,1.7,-3.7,4.8,.6,-3.7
  258. DATA 1.9,1.7,-3.7,1.9,.6,-3.7,1.8,1.7,-3.7,1.8,.6,-3.7
  259. DATA 1.9,-2,-3.7,1.9,-.6,-3.7,1.8,-2,-3.7,1.8,-.6,-3.7
  260. DATA 2.9,1.7,-3.7,2.9,.6,-3.7,2.8,1.7,-3.7,2.8,.6,-3.7
  261. DATA 2.9,-2,-3.7,2.9,-.6,-3.7,2.8,-2,-3.7,2.8,-.6,-3.7
  262. DATA 3.9,1.7,-3.7,3.9,.6,-3.7,3.8,1.7,-3.7,3.8,.6,-3.7
  263. DATA 3.9,-2,-3.7,3.9,-.6,-3.7,3.8,-2,-3.7,3.8,-.6,-3.7
  264. DATA 0.9,1.7,-3.7,0.9,.6,-3.7,0.8,1.7,-3.7,0.8,.6,-3.7
  265. DATA 0.9,-2,-3.7,0.9,-.6,-3.7,0.8,-2,-3.7,0.8,-.6,-3.7
  266. DATA -5.9,1.7,-3.7,-5.9,.6,-3.7,-5.8,1.7,-3.7,-5.8,.6,-3.7
  267. DATA -5.9,-2,-3.7,   -5.9,-.6,-3.7,    -5.8,-2,-3.7,    -5.8,-.6,-3.7
  268. DATA -1.9,1.7,-3.7,-1.9,.6,-3.7,-1.8,1.7,-3.7,-1.8,.6,-3.7
  269. DATA -1.9,-2,-3.7,-1.9,-.6,-3.7,-1.8,-2,-3.7,-1.8,-.6,-3.7
  270. DATA -2.9,1.7,-3.7,-2.9,.6,-3.7,-2.8,1.7,-3.7,-2.8,.6,-3.7
  271. DATA -2.9,-2,-3.7,-2.9,-.6,-3.7,-2.8,-2,-3.7,-2.8,-.6,-3.7
  272. DATA -3.9,1.7,-3.7,-3.9,.6,-3.7,-3.8,1.7,-3.7,-3.8,.6,-3.7
  273. DATA -3.9,-2,-3.7,-3.9,-.6,-3.7,-3.8,-2,-3.7,-3.8,-.6,-3.7
  274. DATA -4.9,1.7,-3.7,-4.9,.6,-3.7,-4.8,1.7,-3.7,-4.8,.6,-3.7
  275. DATA -4.9,-2,-3.7,-4.9,-.6,-3.7,-4.8,-2,-3.7,-4.8,-.6,-3.7
  276. DATA -0.9,1.7,-3.7,-0.9,.6,-3.7,-0.8,1.7,-3.7,-0.8,.6,-3.7
  277. DATA -0.9,-2,-3.7,-0.9,-.6,-3.7,-0.8,-2,-3.7,-0.8,-.6,-3.7
  278. DATA -5.9,1.7,-3.7,-5.9,.6,-3.7,-5.8,1.7,-3.7,-5.8,.6,-3.7
  279. DATA -5.9,-2,-3.7,-5.9,-.6,-3.7,-5.8,-2,-3.7,-5.8,-.6,-3.7
  280. DATA -6.9,1.7,-3.7,-6.9,.6,-3.7,-6.8,1.7,-3.7,-6.8,.6,-3.7
  281. DATA -6.9,-2,-3.7,-6.9,-.6,-3.7,-6.8,-2,-3.7,-6.8,-.6,-3.7
  282. DATA -9.99,-.5,-3.4,-3.7,-.5,-3.4,-9.99,-.5,-4.9,-3.7,-.5,-4.9
  283. DATA -9.99,-.6,-3.4,-3.7,-.6,-3.4,-9.99,-.6,-4.9,-3.7,-.6,-4.9
  284. DATA -9.99,-.6,-3.4,-3.7,-.6,-3.4,-9.99,-.5,-3.4,-3.7,-.5,-3.4
  285. DATA -3.7,-.6,-3.4,-2.99,-.6,-3.4,-3.7,-.5,-3.4,-2.99,-.5,-3.4
  286. DATA -3.7,-.5,-3.4,-2.99,-.5,-3.4,-3.7,-.5,-3.75,-2.99,-.5,-3.75
  287. DATA -3.7,-.5,-4.7,-2.99,-.5,-4.7,-3.7,-.5,-4.9,-2.99,-.5,-4.9
  288. 'SINK:
  289. DATA -3.7,-.5,-3.75,-2.99,-.5,-3.75,-3.7,-.9,-3.75,-2.99,-.9,-3.75
  290. DATA -3.7,-.5,-4.7,-2.99,-.5,-4.7,-3.7,-.9,-4.7,-2.99,-.9,-4.7
  291. DATA -3.7,-.5,-3.75,-3.7,-.5,-4.7,-3.7,-.9,-3.75,-3.7,-.9,-4.7
  292. DATA -2.99,-.5,-3.75,-2.99,-.5,-4.7,-2.99,-.9,-3.75,-2.99,-.9,-4.7
  293. DATA -3.7,-.9,-3.75,-3.7,-.9,-4.7,-2.99,-.9,-3.75,-2.99,-.9,-4.7
  294.  
  295.  
  296. DATA -3.2,-.1,-4.89,-3.5,-.1,-4.89,-3.2,-.1,-4.69,-3.5,-.1,-4.69
  297. DATA -3.2,-.2,-4.89,-3.5,-.2,-4.89,-3.2,-.2,-4.69,-3.5,-.2,-4.69
  298. DATA -3.2,-.1,-4.69,-3.5,-.1,-4.69,-3.2,-.2,-4.69,-3.5,-.2,-4.69
  299. DATA -3.2,-.1,-4.69,-3.2,-.2,-4.69,-3.2,-.1,-4.89,-3.2,-.2,-4.89
  300. DATA -3.5,-.1,-4.69,-3.5,-.2,-4.69,-3.5,-.1,-4.89,-3.5,-.2,-4.89
  301.  
  302. DATA -10.1,-2,-4.9,4.9,-2,-4.9,-10.1,-.49,-4.9,4.9,-.49,-4.9
  303. DATA -10.1,-1.99,-5,4.9,-1.99,-5,-10.1,-1.99,-3.7,4.9,-1.99,-3.7
  304. DATA -10.1,.8,-4.9,4.9,.8,-4.9,-10.1,1.6,-4.9,4.9,1.6,-4.9
  305. 'cabinet doors
  306. DATA 1.85,1.55,-3.71,1.85,0.6,-3.71,2.8,1.55,-3.71,2.8,0.6,-3.71
  307. DATA 1.85,-1.9,-3.71,1.85,-0.6,-3.71,2.8,-1.9,-3.71,2.8,-.6,-3.71
  308. DATA 2.85,1.55,-3.71,2.85,0.6,-3.71,3.8,1.55,-3.71,3.8,0.6,-3.71
  309. DATA 2.85,-1.9,-3.71,2.85,-0.6,-3.71,3.8,-1.9,-3.7,3.8,-.6,-3.71
  310. DATA 3.85,1.55,-3.71,3.85,0.6,-3.71,4.8,1.55,-3.71,4.8,0.6,-3.71
  311. DATA 3.85,-1.9,-3.71,3.85,-0.6,-3.71,4.8,-1.9,-3.71,4.8,-.6,-3.71
  312. DATA .85,1.55,-3.71,.85,0.6,-3.71,1.8,1.55,-3.71,1.8,0.6,-3.71
  313. DATA .85,-1.9,-3.71,.85,-0.6,-3.71,1.8,-1.9,-3.71,1.8,-.6,-3.71
  314. DATA -1.85,1.55,-3.71,-1.85,0.6,-3.71,-2.8,1.55,-3.71,-2.8,0.6,-3.71
  315. DATA -1.85,-1.9,-3.71,-1.85,-0.6,-3.71,-2.8,-1.9,-3.71,-2.8,-.6,-3.71
  316. DATA -2.85,1.55,-3.71,-2.85,0.6,-3.71,-3.8,1.55,-3.71,-3.8,0.6,-3.71
  317. DATA -2.85,-1.9,-3.71,-2.85,-0.6,-3.71,-3.8,-1.9,-3.7,-3.8,-.6,-3.71
  318. DATA -3.85,1.55,-3.71,-3.85,0.6,-3.71,-4.8,1.55,-3.71,-4.8,0.6,-3.71
  319. DATA -3.85,-1.9,-3.71,-3.85,-0.6,-3.71,-4.8,-1.9,-3.71,-4.8,-.6,-3.71
  320. DATA -.85,1.55,-3.71,-.85,0.6,-3.71,-1.8,1.55,-3.71,-1.8,0.6,-3.71
  321. DATA -.85,-1.9,-3.71,-.85,-0.6,-3.71,-1.8,-1.9,-3.71,-1.8,-.6,-3.71
  322. DATA -4.85,1.55,-3.71,-4.85,0.6,-3.71,-5.8,1.55,-3.71,-5.8,0.6,-3.71
  323. DATA -4.85,-1.9,-3.71,-4.85,-0.6,-3.71,-5.8,-1.9,-3.7,-5.8,-.6,-3.71
  324. DATA -5.85,1.55,-3.71,-5.85,0.6,-3.71,-6.8,1.55,-3.71,-6.8,0.6,-3.71
  325. DATA -5.85,-1.9,-3.71,-5.85,-0.6,-3.71,-6.8,-1.9,-3.71,-6.8,-.6,-3.71
  326. DATA -6.85,1.55,-3.71,-6.85,0.6,-3.71,-7.8,1.55,-3.71,-7.8,0.6,-3.71
  327. DATA -6.85,-1.9,-3.71,-6.85,-0.6,-3.71,-7.8,-1.9,-3.71,-7.8,-.6,-3.71
  328. DATA -9.98,-2,-5,-9.98,1,-5,-9.98,-2,0,-9.98,1,0
  329. DATA -9.97,-0.5,-3.4,-8.47,-.5,-3.4,-9.97,-0.5,0,-8.47,-.5,0
  330. DATA -9.97,-0.6,-3.4,-8.47,-.6,-3.4,-9.97,-0.6,0,-8.47,-.6,0
  331. DATA -9.97,.6,-3.7,-8.77,.6,-3.7,-9.97,.6,0,-8.77,.6,0
  332. DATA -9.97,.7,-3.7,-8.77,.7,-3.7,-9.97,.7,0,-8.77,.7,0
  333. DATA -9.97,1.6,-3.7,-8.77,1.6,-3.7,-9.97,1.6,0,-8.77,1.6,0
  334. DATA -9.97,1.7,-3.7,-8.77,1.7,-3.7,-9.97,1.7,0,-8.77,1.7,0
  335. DATA -9.97,-2,0,-8.77,-2,0,-9.97,-0.6,0,-8.77,-0.6,0
  336. DATA -9.97,1.6,0,-8.77,1.6,0,-9.97,0.7,0,-8.77,0.7,0
  337. DATA -9.97,-2,-.2,-8.77,-2,-.2,-9.97,-0.6,-.2,-8.77,-0.6,-.2
  338. DATA -9.97,1.6,-.2,-8.77,1.6,-.2,-9.97,0.7,-.2,-8.77,0.7,-.2
  339. DATA -9.97,1.7,0,-8.77,1.7,0,-9.97,1.6,0,-8.77,1.6,0
  340. DATA -9.97,-.5,0,-8.47,-.5,0,-9.97,-.6,0,-8.47,-.6,0
  341. DATA -9.97,.6,0,-8.77,.6,0,-9.97,.7,0,-8.77,.7,0
  342. DATA -8.77,1.7,0,-8.77,1.6,0,-8.77,1.7,-3.7,-8.77,1.6,-3.7
  343. DATA -8.47,-.5,0,-8.47,-.6,0,-8.47,-0.5,-3.7,-8.47,-0.6,-3.7
  344. DATA -8.77,.7,0,-8.77,.6,0,-8.77,.7,-3.7,-8.77,.6,-3.7
  345. DATA -8.77,-2,0,-8.77,-.6,0,-8.77,-2,-0.2,-8.77,-.6,-0.2
  346. DATA -8.77,1.6,0,-8.77,.7,0,-8.77,1.6,-0.2,-8.77,.7,-0.2
  347. DATA -8.77,-2,-1.9,-8.77,-.6,-1.9,-8.77,-2,-2,-8.77,-.6,-2
  348. DATA -8.77,1.6,-1.9,-8.77,.7,-1.9,-8.77,1.6,-2,-8.77,.7,-2
  349. DATA -8.77,-1.99,0,-9.97,-1.99,0,-8.77,-1.99,-3.7,-9.97,-1.99,-3.7
  350. DATA -9.97,-2,0,-9.97,-2,-4.9,-9.97,-.5,0,-9.97,-.5,-4.9
  351. dATA -9.97,1.6,0,-9.97,1.6,-4.9,-9.97,.6,0,-9.97,.6,-4.9
  352. DATA -8.77,-2,-3.7,-8.77,-.6,-3.7,-8.77,-2,-3.6,-8.77,-.6,-3.6
  353. DATA -8.77,1.6,-3.7,-8.77,.7,-3.7,-8.77,1.6,-3.6,-8.77,.7,-3.6
  354.  
  355. DATA -8.77,-1.9,-2,-8.77,-.6,-2,-8.77,-1.9,-3.6,-8.77,-.6,-3.6
  356. DATA -8.77,1.6,-2,-8.77,.7,-2,-8.77,1.6,-3.6,-8.77,.7,-3.6
  357.  
  358. DATA -8.77,-1.9,-.2,-8.77,-.6,-.2,-8.77,-1.9,-1.9,-8.77,-.6,-1.9
  359. DATA -8.77,1.6,-.2,-8.77,.7,-.2,-8.77,1.6,-1.9,-8.77,.7,-1.9: 'glased doors
  360. dATA -7.85,1.55,-3.71,-7.85,0.6,-3.71,-8.8,1.55,-3.71,-8.8,0.6,-3.71
  361. DATA -7.85,-1.9,-3.71,-7.85,-0.6,-3.71,-8.8,-1.9,-3.71,-8.8,-.6,-3.71
  362. DATA .85,1.55,-3.71,.85,0.6,-3.71,-.85,1.55,-3.71,-.85,0.6,-3.71
  363. DATA .85,-1.9,-3.71,.85,-0.6,-3.71,-.85,-1.9,-3.71,-.85,-.6,-3.71
  364.  
  365. 'microwave
  366.  
  367. DATA -9,-.5,-4.1,-8,-.5,-4.1,-9,0,-4.1,-8,0,-4.1
  368. DATA -9,-.5,-4.9,-8,-.5,-4.9,-9,0,-4.9,-8,0,-4.9
  369. DATA -9,0,-4.1,-8,0,-4.1,-9,0,-4.9,-8,0,-4.9
  370. DATA -9,0,-4.1,-9,-.5,-4.1,-9,0,-4.9,-9,-.5,-4.9
  371. DATA -8,0,-4.1,-8,-.5,-4.1,-8,0,-4.9,-8,-.5,-4.9
  372.  
  373.  
  374.  
  375. FOR r = 1 TO N
  376.    READ v(r).X, v(r).Y, v(r).Z 'all is placed on the same Y = the same floor
  378.  
  379. Set_texture podl&, 1, 4, 15 'set image img as texture for bottom  (triangles 1 to 4)
  380. Set_texture str&, 5, 8, 3
  381. Set_texture tokno&, 9, 12, 1
  382. Set_texture dvere&, 13, 16, 1
  383. Set_texture white&, 17, 20, 1
  384. Set_texture white&, 21, 24, 1 'wall at pc
  385. Set_texture lednice&, 25, 28, 1
  386. Set_texture white&, 29, 32, 1
  387. Set_texture Swhite&, 33, 36, 1
  388. Set_texture Swhite&, 37, 40, 1
  389. Set_texture orech&, 41, 44, 10
  390. Set_texture orech&, 45, 48, 10
  391.  
  392. Set_texture orech&, 49, 52, 10
  393. Set_texture orech&, 53, 56, 10
  394. Set_texture orech&, 57, 60, 10
  395. Set_texture orech&, 61, 64, 10
  396. Set_texture polstr&, 65, 68, 3
  397.  
  398. Set_texture polstr&, 69, 72, 3
  399. Set_texture polstr&, 73, 76, 3
  400. Set_texture polstr&, 77, 80, 3
  401. Set_texture orech&, 81, 84, 10
  402. Set_texture orech&, 85, 88, 10
  403. Set_texture orech&, 89, 92, 10
  404. Set_texture orech&, 93, 96, 3
  405. Set_texture orech&, 97, 100, 3
  406. Set_texture orech&, 101, 104, 1
  407. Set_texture orech&, 105, 108, 1
  408. Set_texture orech&, 109, 112, 1
  409. Set_texture orech&, 113, 116, 7
  410.  
  411. Set_texture orech&, 117, 120, 1
  412. Set_texture orech&, 121, 204, 2
  413. Set_texture orechsv&, 205, 220, 1
  414. Set_texture orech&, 221, 292, 1
  415.  
  416. Set_texture orechsv&, 293, 308, 1
  417. Set_texture orech&, 309, 316, 1
  418. Set_texture orechsv&, 317, 328, 1
  419. Set_texture orech&, 329, 400, 1
  420. Set_texture orechsv&, 401, 416, 1
  421. Set_texture orech&, 417, 424, 1
  422. Set_texture orechsv&, 425, 432, 1
  423. 'po upgradu
  424. Set_texture white&, 433, 437, 1 'wall
  425. Set_texture dvere&, 437, 440, 1
  426. Set_texture white&, 441, 444, 1
  427. Set_texture dub&, 445, 453, 1 'pc desk
  428. Set_texture tdub&, 454, 462, 1 'pc desk back
  429. Set_texture dub&, 463, 480, 1
  430. Set_texture tdub&, 481, 484, 1
  431. Set_texture dub&, 485, 492, 1
  432. Set_texture tdub&, 493, 512, 1
  433. Set_texture dub&, 513, 520, 1
  434. Set_texture Black&, 521, 524, 1
  435. Set_texture SBlack&, 525, 528, 1
  436. Set_texture Black&, 529, 532, 1
  437. Set_texture pc&, 533, 536, 1
  438. Set_texture SBlack&, 537, 540, 1 'MONITOR
  439. Set_texture Black&, 541, 548, 1 'MONITOR
  440. Set_texture Noha&, 549, 552, 1 'MONITOR
  441. Set_texture Black&, 553, 556, 1
  442. Set_texture kbd&, 557, 560, 1 'keyboard
  443. Set_texture mys&, 561, 564, 1 'keyboard
  444. Set_texture Black, 565, 576, 1 'woof
  445. Set_texture SBlack, 577, 580, 1 'subwoofer
  446. Set_texture woof&, 581, 584, 1 'subwoofer
  447. Set_texture Black, 585, 596, 1 'speakers
  448. Set_texture speak&, 597, 600, 1
  449. Set_texture Black, 601, 612, 1
  450. Set_texture speak&, 613, 616, 1
  451. 'strana s linkou
  452. Set_texture dvere&, 617, 620, 1 'doors
  453. Set_texture dlazba&, 621, 624, 10
  454. Set_texture white&, 625, 628, 1
  455. Set_texture sporakcelo, 629, 632, 1
  456. Set_texture sporakvrch, 633, 636, 1
  457. Set_texture white&, 637, 648, 1
  458. Set_texture dub&, 649, 652, 1
  459. Set_texture tdub&, 653, 656, 5
  460. Set_texture dub&, 657, 676, 5
  461. Set_texture tdub&, 677, 680, 5
  462. Set_texture dub&, 681, 796, 5
  463. Set_texture tdub&, 797, 800, 5
  464. Set_texture dub&, 801, 809, 5
  465. Set_texture dub&, 809, 812, 5
  466. Set_texture tdub&, 813, 816, 5
  467. Set_texture tdub&, 817, 820, 5
  468. Set_texture Silver&, 821, 836, 1
  469. Set_texture SilverC&, 837, 840, 1
  470. Set_texture SilverB&, 841, 860, 1
  471. Set_texture dub&, 861, 872, 1
  472. Set_texture tdub&, 873, 960, 1
  473. Set_texture dlazba2&, 961, 964, 10
  474. Set_texture tdub&, 965, 1004, 1
  475. Set_texture dub&, 1005, 1064, 1
  476. Set_texture tdub&, 1065, 1076, 1
  477. Set_texture Sklo&, 1077, 1080, 1
  478. Set_texture tdub&, 1081, 1096, 1
  479. Set_texture mikro&, 1097, 1100, 1
  480. Set_texture SilverB&, 1101, 1116, 1
  481.  
  482.  
  483. valec -1, -.8, 4.7, -.6, 10, SilverB& ' vase
  484. valec 6, -.5, 9, -.35, 10, Silver&
  485.  
  486. valec -3.35, -.2, -4.8, -.3, 40, SilverB& 'water pipe
  487. Zvalec -3.35, -.3, -4.8, -4.1, 40, SilverB& 'water pipe
  488. valec -3.35, -.29, -4.1, -.4, 40, SilverB& 'water pipe
  489.  
  490.  
  491. 'this three vase are in cabinet with glased door
  492. talir -9.1, .8, -1.45
  493. talir -9.1, .8, -1.05
  494. talir -9.1, .8, -.65
  495.  
  496. 'cabinet handles
  497. madlo -7.9,   .8,  -3.6
  498. madlo -7.45,  .8,  -3.6
  499. madlo -7.9, -.8,  -3.4
  500. madlo -7.45,-.8,  -3.4
  501.  
  502. madlo -6,   -.8,  -3.4
  503. madlo -5.45,-.8,  -3.4
  504. madlo -6,     .8,  -3.6
  505. madlo -5.45,  .8,  -3.6
  506.  
  507. madlo -4.1, -.8  ,-3.4
  508. madlo -3.45,-.8,  -3.4
  509. madlo -4.1,   .8,  -3.6
  510. madlo -3.45,  .8,  -3.6
  511.  
  512. madlo -2.2, -.8  ,-3.4
  513. madlo -1.45,-.8,  -3.4
  514. madlo -2.2,   .8,  -3.6
  515. madlo -1.45,  .8,  -3.6
  516.  
  517. madlo -.3, -.8  ,-3.4
  518. madlo -.3,   .8,  -3.6
  519. madlo 1,-.8,  -3.4
  520. madlo 1,  .8,  -3.6
  521. madlo 2,-.8,  -3.4
  522. madlo 2,  .8,  -3.6
  523. madlo 3,-.8,  -3.4
  524. madlo 3,  .8,  -3.6
  525. madlo 4,-.8,  -3.4
  526. madlo 4,  .8,  -3.6
  527. madlo 8.5, -1, 7.9
  528. madlo 8.5, -1.3, 7.9
  529. zmadlo -8.77,.8,-1
  530. zmadlo -8.77,.8,-2.75
  531. zmadlo -8.77,-.8,-1
  532. zmadlo -8.77,-.8,-2.75
  533.  
  534. minRadius = 1000
  535.     DO
  536.         i$ = INKEY$
  537.         start = 0
  538.         FOR r = 1 TO N
  539.             LenX = v(r).X - CX
  540.             LenY = v(r).Y - CY
  541.             LenZ = v(r).Z - CZ
  542.  
  543.             radius = SQR(LenX ^ 2 + LenZ ^ 2)
  544.             if minradius < .4 then minradius = 1000
  545.             if minradius > radius then minradius = radius
  546.             radiusH =  sqr(lenY^2 + lenz^2)
  547.             v(r).Radius = radius
  548.             v(r).radiusH = radiusH
  549.             v(r).pi = JK!(CX, CZ, v(r).X, v(r).Z, radius)
  550.             v(r).pih = jk! (cy,cz,v(r).y, v(r).z, radiusH)
  551.            NEXT r
  552.       IF ABS(rot) > _PI(2) THEN rot = 0
  553.     oldposZ = posZ
  554.     oldposX = posX
  555.     SELECT CASE i$
  556.         CASE CHR$(0) + CHR$(72): posz = posz + COS(rot) / 2: posx = posx + -sin(rot) / 2: posy = posy  + -sin(roth)/2 'up
  557.         CASE CHR$(0) + CHR$(80): posz = posz - COS(rot) / 2: posx = posx - -sin(rot) / 2 : posy = posy - -sin(roth)/2 'dn
  558.         CASE CHR$(0) + CHR$(75): rot = rot - .05
  559.         CASE CHR$(0) + CHR$(77): rot = rot + .05
  560.         case chr$(27) : destructor ("textures.pmf") : system
  561.         END SELECT
  562.  
  563. '------------------------------
  564. iF posz > 3 THEN posz = 3
  565. IF posz < -7 THEN posz = -7
  566. IF posx < -7 THEN posx = -7
  567. IF posx > 7 THEN posx = 7
  568.  
  569.  
  571. case -7 to -5: if posZ < -7 then posX = oldposx: posz = oldposz
  572. case -5 to 3: if posZ < -2 then posX = oldposx: posz = oldposz
  573. case 3 to 6: if posZ< -7 then posX = oldposx: posz = oldposz
  575. '-----------------------------
  576.     CZ = -posz
  577.     CX = -posx
  578.     CY = -posY
  579.  
  580.     FOR r = 1 TO N
  581.         x = CX + SIN(rot + v(r).pi) * v(r).Radius
  582.         y = CY + sin (rotH + v(r).piH) * v(r).radiusH
  583.         z =  CZ + cos(rot +v(r).pi) * v(r).Radius
  584.         v(r).wX = x + posx
  585.         v(r).wY = y + posY
  586.         v(r).wZ = z + posz
  587.     NEXT r
  588.     minigame
  589.     m33& = _COPYIMAGE(m&, 33)
  590.     Set_texture m33&, 537, 540, 1
  591.  
  592.     FOR zz = 1 TO N STEP 4
  593.          IF v(zz).T THEN
  594.             img& = v(zz).T
  595.             w = _WIDTH(img&)
  596.             h = _HEIGHT(img&)
  597.             num = v(zz).Tm
  598.             IF num = 0 THEN num = 1
  599.             _MAPTRIANGLE (0, h * num)-(w * num, h * num)-(0, 0), img& TO(v(zz).wX, v(zz).wY, v(zz).wZ)-(v(zz + 1).wX, v(zz + 1).wY, v(zz + 1).wZ)-(v(zz + 2).wX, v(zz + 2).wY, v(zz + 2).wZ), 0, _SMOOTH
  600.             _MAPTRIANGLE (w * num, h * num)-(0, 0)-(w * num, 0), img& TO(v(zz + 1).wX, v(zz + 1).wY, v(zz + 1).wZ)-(v(zz + 2).wX, v(zz + 2).wY, v(zz + 2).wZ)-(v(zz + 3).wX, v(zz + 3).wY, v(zz + 3).wZ), 0, _SMOOTH
  601.         END IF
  602.     NEXT zz
  603.  
  604. REM    infobox posx, posy, posz, rot, minradius
  605.  
  606.     _DISPLAY
  607.     _FREEIMAGE m33&
  608.     _LIMIT 30
  610.  
  611.  
  612. sub INFOBOX (posx, posy, posz, rot, u)
  613. nfo& = _newimage (640, 480, 32)
  614. W = 639 : H = 479: X = -.5: Y = 0 : Z = -1
  615. de = _dest
  616. _dest nfo&
  617. color _rgb32(22, 61, 78)
  619. print "INFOBOX:"
  620. print "Position X: "; posx
  621. print "Position Y: "; posy
  622. print "Position Z: "; posz
  623. print "Angle: "; abs(_r2d(rot))
  625.  
  628. hnfo& = _copyimage (nfo&, 33)
  630. _maptriangle (0,0) - (w, 0) - (0, h), hnfo& to (-2+x, 2+Y, -2+z) - (2+x, 2+y, -2+z) - (-2+x, -2+y, -2+z)
  631. _maptriangle (w, 0) - (0, h) - (w,h), hnfo& to (2+x, 2+y, -2+z) - (-2+x, -2+y, -2+z) - (2+x, -2+y, -2+z)
  632.  
  635.  
  636.  
  637.  
  638.  
  639. sub madlo (x,y,z)
  640. tt = UBOUND(v) + 1
  641. REDIM _PRESERVE v(1 TO tt - 1 + 12) AS V
  642. N = N + 12
  643. if sgn(x)>= 0 then x2 = x + .2 else x2 = x -.2
  644. if sgn(y) =>0 then y2 = y + .05 else y2 = y -.05
  645. if sgn(z) < 0 then z2 = z -.1 else z2 = z + .1
  646.  
  647.  v(tt).x = x
  648.  v(tt).y = y
  649.  v(tt).z = z
  650.  
  651.  v(tt+1).x = x
  652.  v(tt+1).y = y2
  653.  v(tt+1).z = z
  654.  
  655.  v(tt+2).x = x2
  656.  v(tt+2).y = y
  657.  v(tt+2).z = z
  658.  
  659.  v(tt+3).x = x2
  660.  v(tt+3).y = y2
  661.  v(tt+3).z = z
  662.  
  663. '------------
  664.  
  665.  v(tt+4).x = x
  666.  v(tt+4).y = y
  667.  v(tt+4).z = z
  668.  
  669.  v(tt+5).x = x
  670.  v(tt+5).y = y2
  671.  v(tt+5).z = z
  672.  
  673.  v(tt+6).x = x
  674.  v(tt+6).y = y
  675.  v(tt+6).z = z2
  676.  
  677.  v(tt+7).x = x
  678.  v(tt+7).y = y2
  679.  v(tt+7).z = z2
  680.  
  681. '------------
  682.  
  683.  v(tt+8).x = x2
  684.  v(tt+8).y = y
  685.  v(tt+8).z = z
  686.  
  687.  v(tt+9).x = x2
  688.  v(tt+9).y = y2
  689.  v(tt+9).z = z
  690.  
  691.  v(tt+10).x = x2
  692.  v(tt+10).y = y
  693.  v(tt+10).z = z2
  694.  
  695.  v(tt+11).x = x2
  696.  v(tt+11).y = y2
  697.  v(tt+11).z = z2
  698.  
  699.  set_texture aluminium&, tt-1, tt+11,1
  700.  
  702.  
  703.  
  704. sub Zmadlo (x,y,z)
  705.     tt = UBOUND(v) + 1
  706.     REDIM _PRESERVE v(1 TO tt - 1 + 12) AS V
  707.     N = N + 12
  708.  
  709. if sgn(z)<= 0 then z2 = z - .2 else z2 = z +.2
  710. if sgn(y) =>0 then y2 = y + .05 else y2 = y -.05
  711. if sgn(x) <= 0 then x2 = x+.1 else x2 = x - .1
  712.  
  713. 'predni obdelnik
  714.  v(tt).x = x2
  715.  v(tt).y = y
  716.  v(tt).z = z
  717.  
  718.  v(tt+1).x = x2
  719.  v(tt+1).y = y2
  720.  v(tt+1).z = z
  721.  
  722.  v(tt+2).x = x2
  723.  v(tt+2).y = y
  724.  v(tt+2).z = z2
  725.  
  726.  v(tt+3).x = x2
  727.  v(tt+3).y = y2
  728.  v(tt+3).z = z2
  729.  
  730. '------------
  731.  
  732.  v(tt+4).x = x
  733.  v(tt+4).y = y2
  734.  v(tt+4).z = z
  735.  
  736.  v(tt+5).x = x2
  737.  v(tt+5).y = y2
  738.  v(tt+5).z = z
  739.  
  740.  v(tt+6).x = x
  741.  v(tt+6).y = y
  742.  v(tt+6).z = z
  743.  
  744.  v(tt+7).x = x2
  745.  v(tt+7).y = y
  746.  v(tt+7).z = z
  747.  
  748. '------------
  749.  
  750.  v(tt+8).x = x
  751.  v(tt+8).y = y2
  752.  v(tt+8).z = z2
  753.  
  754.  v(tt+9).x = x2
  755.  v(tt+9).y = y2
  756.  v(tt+9).z = z2
  757.  
  758.  v(tt+10).x = x
  759.  v(tt+10).y = y
  760.  v(tt+10).z = z2
  761.  
  762.  v(tt+11).x = x2
  763.  v(tt+11).y = y
  764.  v(tt+11).z = z2
  765.  
  766.   set_texture aluminium&, tt-1, tt+11,1
  768.  
  769. SUB Set_texture (num, start, eend, much)
  770.     FOR s = start TO eend
  771.         v(s).T = num
  772.         v(s).Tm = much
  773.     NEXT s
  775.  
  776.  
  777. FUNCTION Hload& (fileName AS STRING)
  778.     h& = _LOADIMAGE(fileName$, 32)
  779.     Hload& = _COPYIMAGE(h&, 33)
  780.     _FREEIMAGE h&
  782.  
  783.  
  784. FUNCTION SHload& (fileName AS STRING)
  785.     h& = _LOADIMAGE(fileName$, 32)
  786.     _SETALPHA 0, _RGB32(255, 255, 255) TO _RGB32(200, 200, 200), h&
  787.     SHload& = _COPYIMAGE(h&, 33)
  788.     _FREEIMAGE h&
  790.  
  791. FUNCTION strop&
  792.     lamp& = _LOADIMAGE("bodovka mala.jpg", 32)
  793.     strop& = _NEWIMAGE(1024, 768, 32)
  794.     de = _DEST
  795.     _DEST strop&
  796.     CLS , _RGB32(255, 255, 255)
  797.     rX = 1024 / 4
  798.     rY = 768 / 3
  799.     FOR x = rX TO 1024 - rX STEP rX
  800.         FOR y = rY TO 768 - rY STEP rY
  801.             _PUTIMAGE (rX, rY), lamp&, strop&
  802.     NEXT y, x
  803.     _DEST de
  804.     _FREEIMAGE lamp&
  805.     strop& = _COPYIMAGE(strop&, 33)
  807.  
  808. FUNCTION okno&
  809.     ok& = _LOADIMAGE("okn.jpg", 32)
  810.     topco& = _LOADIMAGE("topco.jpg", 32)
  811.     okno& = _NEWIMAGE(1024, 512, 32)
  812.     de = _DEST
  813.     _DEST okno&
  814.     CLS , _RGB32(250, 245, 255)
  815.     _PUTIMAGE (512 - 150, 206 - 132), ok&, okno&
  816.  
  817.     _PUTIMAGE (380, 370), topco&, okno&
  818.     _DEST de
  819.     _FREEIMAGE ok&
  820.     _FREEIMAGE topco&
  821.     okno& = _COPYIMAGE(okno&, 33)
  823.  
  824. FUNCTION white&
  825.     IF white& = 0 THEN
  826.         whit& = _NEWIMAGE(100, 100, 32)
  827.         de = _DEST
  828.         _DEST whit&
  829.         CLS , _RGB32(250, 240, 250)
  830.         _DEST de
  831.         white& = _COPYIMAGE(whit&, 33)
  832.         _FREEIMAGE whit&
  833.     END IF
  835.  
  836. FUNCTION Swhite&
  837.     IF Swhite& = 0 THEN
  838.         whit& = _NEWIMAGE(100, 100, 32)
  839.         de = _DEST
  840.         _DEST whit&
  841.         CLS , _RGB32(255, 255, 255)
  842.         _DEST de
  843.         Swhite& = _COPYIMAGE(whit&, 33)
  844.         _FREEIMAGE whit&
  845.     END IF
  847.  
  848.  
  849. FUNCTION Braun&
  850.     IF Braun& = 0 THEN
  851.         brau& = _NEWIMAGE(100, 100, 32)
  852.         de = _DEST
  853.         _DEST brau&
  854.         CLS , _RGB32(111, 17, 39)
  855.         _DEST de
  856.         Braun& = _COPYIMAGE(brau&, 33)
  857.         _FREEIMAGE brau&
  858.     END IF
  860.  
  861.  
  862. FUNCTION Black&
  863.     IF Black& = 0 THEN
  864.         blk& = _NEWIMAGE(100, 100, 32)
  865.         de = _DEST
  866.         _DEST blk&
  867.         CLS , _RGB32(6, 17, 28)
  868.         _DEST de
  869.         Black& = _COPYIMAGE(blk&, 33)
  870.         _FREEIMAGE blk&
  871.     END IF
  873.  
  874. FUNCTION SBlack&
  875.     IF SBlack& = 0 THEN
  876.         blk& = _NEWIMAGE(100, 100, 32)
  877.         de = _DEST
  878.         _DEST blk&
  879.         CLS , _RGB32(33, 28, 28)
  880.         _DEST de
  881.         SBlack& = _COPYIMAGE(blk&, 33)
  882.         _FREEIMAGE blk&
  883.     END IF
  885.  
  886. FUNCTION Silver&
  887.     IF Silver& = 0 THEN
  888.         blk& = _NEWIMAGE(100, 100, 32)
  889.         de = _DEST
  890.         _DEST blk&
  891.         e = 127 / 100
  892.         FOR l = 0 TO 99
  893.             LINE (0, l)-(99, l), _RGB32(255 - f, 255 - f, 255 - f)
  894.             f = f + e
  895.         NEXT l
  896.         _DEST de
  897.         Silver& = _COPYIMAGE(blk&, 33)
  898.         _FREEIMAGE blk&
  899.     END IF
  901.  
  902. FUNCTION SilverB&
  903.     IF SilverB& = 0 THEN
  904.         blk& = _NEWIMAGE(100, 100, 32)
  905.         de = _DEST
  906.         _DEST blk&
  907.         e = 127 / 50
  908.         FOR l = 0 TO 50
  909.             LINE (l, l)-(100 - l, 100 - l), _RGB32(127 + f, 127 + f, 127 + f), B
  910.             f = f + e
  911.         NEXT l
  912.         _DEST de
  913.         SilverB& = _COPYIMAGE(blk&, 33)
  914.         _FREEIMAGE blk&
  915.     END IF
  917.  
  918.  
  919. FUNCTION SilverC&
  920.     IF SilverC& = 0 THEN
  921.         blk& = _NEWIMAGE(100, 100, 32)
  922.         de = _DEST
  923.         _DEST blk&
  924.         e = 127 / 50
  925.         FOR l = 0 TO 50
  926.             LINE (l, l)-(100 - l, 100 - l), _RGB32(255 - f, 255 - f, 255 - f), B
  927.             f = f + e
  928.         NEXT l
  929.         _DEST de
  930.         SilverC& = _COPYIMAGE(blk&, 33)
  931.         _FREEIMAGE blk&
  932.     END IF
  934.  
  935.  
  936. FUNCTION spajz_dvere&
  937.     dv& = _LOADIMAGE("dvere.jpg", 32) '192 x 426
  938.     de = _DEST
  939.     spajz_dvere32& = _NEWIMAGE(640, 480, 32)
  940.     _DEST spajz_dvere32&
  941.     CLS , _RGB32(241, 244, 251)
  942.     _PUTIMAGE (140, 54), dv&
  943.     _DEST de
  944.     spajz_dvere& = _COPYIMAGE(spajz_dvere32&, 33)
  945.     _FREEIMAGE spajz_dvere32&
  947.  
  948. FUNCTION Zesvetli& (file AS STRING)
  949.     t& = _LOADIMAGE(file$, 32)
  950.     IF Zesvetli& < -1 THEN _FREEIMAGE Zesvetli&
  951.     w = _WIDTH(t&)
  952.     h = _HEIGHT(t&)
  953.     zesvetli32& = _NEWIMAGE(w, h, 32)
  954.     de = _DEST
  955.     _DEST zesvetli32&
  956.     _PUTIMAGE , t&, zesvetli32&
  957.     LINE (0, 0)-(w - 1, h - 1), _RGBA32(255, 255, 255, 30), BF
  958.     _DEST de
  959.  
  960.     Zesvetli& = _COPYIMAGE(zesvetli32&, 33)
  961.     _FREEIMAGE t&
  962.     _FREEIMAGE zesvetli32&
  964.  
  965. FUNCTION Ztmav& (file AS STRING)
  966.     t& = _LOADIMAGE(file$, 32)
  967.     IF Ztmav& < -1 THEN _FREEIMAGE Ztmav&
  968.     w = _WIDTH(t&)
  969.     h = _HEIGHT(t&)
  970.     ztmav32& = _NEWIMAGE(w, h, 32)
  971.     de = _DEST
  972.     _DEST ztmav32&
  973.     _PUTIMAGE , t&, ztmav32&
  974.     LINE (0, 0)-(w - 1, h - 1), _RGBA32(0, 0, 0, 30), BF
  975.     _DEST de
  976.  
  977.     Ztmav& = _COPYIMAGE(ztmav32&, 33)
  978.     _FREEIMAGE t&
  979.     _FREEIMAGE ztmav32&
  981.  
  982. FUNCTION Noha&
  983.     IF Noha& = 0 THEN
  984.         de = _DEST
  985.         noh& = _NEWIMAGE(100, 100, 32)
  986.         _DEST noh&
  987.         LINE (0, 40)-(100, 60), _RGB32(0, 22, 32), BF
  988.         _CLEARCOLOR _RGB32(0, 0, 0), noh&
  989.         _DEST de
  990.         Noha& = _COPYIMAGE(noh&, 33)
  991.         _FREEIMAGE noh&
  992.     END IF
  994.  
  995. FUNCTION Noha2&
  996.     IF Noha2& = 0 THEN
  997.         de = _DEST
  998.         noh& = _NEWIMAGE(100, 100, 32)
  999.         _DEST noh&
  1000.         LINE (30, 30)-(70, 70), _RGB32(0, 2, 12), BF
  1001.         _CLEARCOLOR _RGB32(0, 0, 0), noh&
  1002.         _DEST de
  1003.         Noha2& = _COPYIMAGE(noh&, 33)
  1004.         _FREEIMAGE noh&
  1005.     END IF
  1007.  
  1008.  
  1009. FUNCTION JK! (cx, cy, px, py, R)' based on binary circle definition
  1010.     LenX = cx - px
  1011.     LenY = cy - py
  1012.     jR = 1 / R
  1013.  
  1014.     jX = LenX * jR
  1015.     jY = LenY * jR
  1016.  
  1017.     sinusAlfa = jX
  1018.     Alfa = ABS(_ASIN(sinusAlfa))
  1019.  
  1020.     Q = 1
  1021.     IF px >= cx AND py =< cy THEN Q = 1 ' select angle to quadrant
  1022.     IF px >= cx AND py =< cy THEN Q = 2
  1023.     IF px =< cx AND py <= cy THEN Q = 3
  1024.     IF px =< cx AND py >= cy THEN Q = 4
  1025.     SELECT CASE Q
  1026.         CASE 1: alfaB = Alfa
  1027.         CASE 2: alfaB = _PI / 2 + (_PI / 2 - Alfa)
  1028.         CASE 3: alfaB = _PI + Alfa
  1029.         CASE 4: alfaB = _PI(1.5) + (_PI / 2 - Alfa)
  1030.     END SELECT
  1031.     JK! = alfaB
  1033.  
  1034. SUB valec (xs, ys, zs, ye, R, t&)
  1035.     tt = UBOUND(v) + 1
  1036.     polomer = R
  1037.     REDIM _PRESERVE v(1 TO tt - 1 + 64) AS V
  1038.     polo = _PI(2) / 16
  1039.     N = N + 64
  1040.  
  1041.     FOR s = 0 TO _PI(2) STEP polo
  1042.         ott = tt
  1043.         v(tt).X = xs + SIN(s) / polomer
  1044.         v(tt).Y = ys
  1045.         v(tt).Z = zs + COS(s) / polomer
  1046.         tt = tt + 1
  1047.         v(tt).X = xs + SIN(s) / polomer
  1048.         v(tt).Y = ye
  1049.         v(tt).Z = zs + COS(s) / polomer
  1050.         tt = tt + 1
  1051.         v(tt).X = xs + SIN(s + polo) / polomer
  1052.         v(tt).Y = ys
  1053.         v(tt).Z = zs + COS(s + polo) / polomer
  1054.         tt = tt + 1
  1055.         v(tt).X = xs + SIN(s + polo) / polomer
  1056.         v(tt).Y = ye
  1057.         v(tt).Z = zs + COS(s + polo) / polomer
  1058.         Set_texture t&, ott, tt, 1
  1059.         tt = tt + 1
  1060.     NEXT
  1062.  
  1063. SUB Zvalec (xs, ys, zs, ze, R, t&)
  1064.     tt = UBOUND(v) + 1
  1065.     polomer = R
  1066.  
  1067.     REDIM _PRESERVE v(1 TO tt - 1 + 64) AS V
  1068.  
  1069.     polo = _PI(2) / 16
  1070.     N = N + 64
  1071.  
  1072.     FOR s = 0 TO _PI(2) STEP polo
  1073.         ott = tt
  1074.         v(tt).X = xs + SIN(s) / polomer
  1075.         v(tt).Y = ys + COS(s) / polomer
  1076.         v(tt).Z = zs
  1077.         tt = tt + 1
  1078.         v(tt).X = xs + SIN(s) / polomer
  1079.         v(tt).Y = ys + COS(s) / polomer
  1080.         v(tt).Z = ze
  1081.         tt = tt + 1
  1082.         v(tt).X = xs + SIN(s + polo) / polomer
  1083.         v(tt).Y = ys + COS(s + polo) / polomer
  1084.         v(tt).Z = zs
  1085.         tt = tt + 1
  1086.         v(tt).X = xs + SIN(s + polo) / polomer
  1087.         v(tt).Y = ys + COS(s + polo) / polomer
  1088.         v(tt).Z = ze
  1089.         Set_texture t&, ott, tt, 1
  1090.         tt = tt + 1
  1091.     NEXT
  1093.  
  1094. SUB talir (x, y, z)
  1095.     radius0 = 0
  1096.     radius1 = .05
  1097.     radius2 = .1
  1098.     radius3 = .2
  1099.     ys = -ABS(y)
  1100.     ye = y - .1
  1101.     ys2 = ye
  1102.     ye2 = y + .2
  1103.  
  1104.     tt = UBOUND(v) + 1
  1105.     REDIM _PRESERVE v(1 TO tt - 1 + 64) AS V '16 a 16
  1106.         polo = _PI(2) / 16
  1107.     N = N + 64
  1108.  
  1109.     FOR s = 0 TO _PI(2) STEP polo
  1110.         ott = tt
  1111.         IF SGN(x) >= 0 THEN v(tt).X = x + (SIN(s) * radius2 + SIN(s) * radius0) ELSE v(tt).X = x - (SIN(s) * radius2 - SIN(s) * radius0)
  1112.         v(tt).Y = ys2
  1113.         IF SGN(z) >= 0 THEN v(tt).Z = z + (COS(s) * radius2 + COS(s) * radius0) ELSE v(tt).Z = z - (COS(s) * radius2 - COS(s) * radius0)
  1114.         tt = tt + 1
  1115.         IF SGN(x) >= 0 THEN v(tt).X = x + (SIN(s) * radius3 + SIN(s) * radius1) ELSE v(tt).X = x - (SIN(s) * radius3 - SIN(s) * radius1)
  1116.         v(tt).Y = ye2
  1117.         IF SGN(z) >= 0 THEN v(tt).Z = z + (COS(s) * radius3 + COS(s) * radius1) ELSE v(tt).Z = z - (COS(s) * radius3 - COS(s) * radius1)
  1118.         tt = tt + 1
  1119.         IF SGN(x) >= 0 THEN v(tt).X = x + (SIN(s + polo) * radius2 + SIN(s + polo) * radius0) ELSE v(tt).X = x - (SIN(s + polo) * radius2 - SIN(s + polo) * radius0)
  1120.         v(tt).Y = ys2
  1121.         IF SGN(z) >= 0 THEN v(tt).Z = z + (COS(s + polo) * radius2 + COS(s + polo) * radius0) ELSE v(tt).Z = z - (COS(s + polo) * radius2 - COS(s + polo) * radius0)
  1122.         tt = tt + 1
  1123.         IF SGN(x) >= 0 THEN v(tt).X = x + (SIN(s + polo) * radius3 + SIN(s + polo) * radius1) ELSE v(tt).X = x - (SIN(s + polo) * radius3 - SIN(s + polo) * radius1)
  1124.         v(tt).Y = ye2
  1125.         IF SGN(z) >= 0 THEN v(tt).Z = z + (COS(s + polo) * radius3 + COS(s + polo) * radius1) ELSE v(tt).Z = z - (COS(s + polo) * radius3 - COS(s + polo) * radius1)
  1126.         tt = tt + 1
  1127.         Set_texture SilverC&, ott, tt - 1, 1
  1128.     NEXT
  1130.  
  1131. FUNCTION Sklo&
  1132.     IF Sklo& = 0 THEN
  1133.         de = _DEST
  1134.         skl = _NEWIMAGE(150, 100, 32)
  1135.         _DEST skl
  1136.         alfa = 127 / 25
  1137.         a = 120
  1138.         FOR x = 1 TO 50
  1139.             a = a - alfa
  1140.             LINE (0, x)-(150, x), _RGBA32(127, 127, 127, a)
  1141.         NEXT x
  1142.  
  1143.         FOR x = 50 TO 100
  1144.             a = a + alfa
  1145.             LINE (0, x)-(150, x), _RGBA32(127, 127, 127, a)
  1146.         NEXT x
  1147.         _DEST de
  1148.         Sklo& = _COPYIMAGE(skl, 33)
  1149.         _FREEIMAGE skl
  1150.     END IF
  1152.  
  1153. SUB minigame
  1154.     de = _DEST
  1155.     _DEST m&
  1156.     CLS , _RGB32(127, 120, 120)
  1157.             IF ballX > 160 THEN
  1158.         IF rY + 25 < ballY THEN rY = rY + 1 ELSE rY = rY - 1
  1159.         IF ballX > (rxX - 10) THEN
  1160.             IF ballY > rY AND ballY < rY + 50 THEN mX = mX * -1
  1161.         END IF
  1162.     END IF
  1163.  
  1164.     IF ballX < 160 THEN
  1165.         IF lY + 25 < ballY THEN lY = lY + 1 ELSE lY = lY - 1
  1166.         IF ballX < 20 THEN
  1167.  
  1168.             IF ballY > lY AND ballY < lY + 50 THEN mX = mX * -1
  1169.  
  1170.         END IF
  1171.     END IF
  1172.  
  1173.     ballX = ballX + mX
  1174.     ballY = ballY + mY
  1175.  
  1176.     IF ballX > 315 THEN mX = mX * -1: rightplr = rightplr + 1: ballX = ballX + mX + SIN(_ATAN2(ballY, ballX))
  1177.     IF ballX < 5 THEN mX = mX * -1: leftplr = leftplr + 1: ballY = ballY + mY + COS(_ATAN2(ballY, ballX))
  1178.  
  1179.     IF ballY > 235 THEN mY = mY * -1 - _ATAN2(ballY, ballX) / 2: ballY = ballY + mY
  1180.     IF ballY < 5 THEN mY = mY * -1 + _ATAN2(ballY, ballX) / 2: ballY = ballY + mY
  1181.  
  1182.  
  1183.     IF ballY >= lY AND ballY <= lY + 60 AND ballX <= 10 THEN mY = mY * -1: ballY = ballY + mY - _ATAN2(ballY, ballX)
  1184.     IF ballY >= rY AND ballY <= rY + 60 AND ballX >= 300 THEN mY = mY * -1: ballY = ballY + mY + _ACOS(_ATAN2(ballY, ballX))
  1185.  
  1186.     IF lY > 180 THEN lY = 180
  1187.     IF lY < 10 THEN lY = 10
  1188.     IF rY > 180 THEN rY = 180
  1189.     IF rY < 10 THEN rY = 10
  1190.  
  1191.     IF ballX - 2 > lX AND ballX + 2 < lX + 10 AND ballY - 2 >= lY AND ballY + 2 <= lY + 50 THEN COLOR _RGB32(255, 0, 0): _PRINTSTRING (130, 112), "ERROR!!!!": COLOR _RGB32(255, 255, 255)
  1192.     IF ballX - 2 > rX - 10 AND ballX + 2 < rX AND ballY - 2 >= rY AND ballY + 2 <= rY + 50 THEN COLOR _RGB32(255, 0, 0): _PRINTSTRING (130, 112), "ERROR!!!!": COLOR _RGB32(255, 255, 255)
  1193.  
  1194.     IF ABS(mX) > 2 THEN mX = mX / 2
  1195.     IF ABS(mY) > 2 THEN mY = mY / 2
  1196.  
  1197.  
  1198.     IF ballX > 157 AND ballX < 163 THEN
  1199.         IF ballY > 60 AND ballY < 180 THEN mX = mX * -1
  1200.         IF ballY = 64 OR ballY = 180 THEN mY = mY * -1
  1201.     END IF
  1202.     LINE (ballX - 2, ballY - 2)-(ballX + 2, ballY + 2), , B
  1203.     LINE (3, 3)-(317, 237), , B
  1204.     LINE (lX, lY)-(lX + 10, lY + 50), , B
  1205.     LINE (rXx, rY)-(rxX - 10, rY + 50), , B
  1206.     LINE (160, 60)-(160, 180)
  1208.     popis = _PRINTWIDTH(STR$(leftplr) + " - " + STR$(rightplr))
  1209.  
  1210.     _PRINTSTRING (160 - popis / 2, 5), STR$(leftplr) + " - " + STR$(rightplr)
  1211.     _DEST de
  1213.  
  1214. SUB ExtractPMF (Vystup AS STRING) ' here insert PMF file name for extracting files
  1215.     if _fileexists (vystup) then
  1216.     PRINT "Extracting files from "; Vystup$
  1217.     TYPE head
  1218.         identity AS STRING * 16
  1219.         much AS LONG
  1220.     END TYPE
  1221.     DIM head AS head
  1222.     e = FREEFILE
  1223.     OPEN Vystup$ FOR BINARY AS #e
  1224.     GET #e, , head
  1225.     IF head.identity = "Petr's MultiFile" THEN PRINT "Head PASS" ELSE PRINT "Head Failure": SLEEP 3: END
  1226.     PRINT "Total records in file:"; head.much
  1227.     DIM starts(head.much) AS LONG
  1228.  
  1229.     FOR celek = 1 TO head.much
  1230.         GET #e, , starts(celek)
  1231.     NEXT
  1232.  
  1233.     SEEK #e, 21 + head.much * 4 ' start DATA area
  1234.     FOR total = 1 TO head.much
  1235.         IF total = 1 THEN velikost& = starts(1) - (21 + head.much * 4) ELSE velikost& = starts(total) - starts(total - 1)
  1236.         record$ = SPACE$(velikost&)
  1237.         GET #e, , record$
  1238.         i = FREEFILE
  1239.         jmeno$ = "$Ext" + LTRIM$(STR$(total))
  1240.         OPEN jmeno$ FOR OUTPUT AS #i: CLOSE #i: OPEN jmeno$ FOR BINARY AS #i
  1241.         PUT #i, , record$
  1242.         CLOSE #i
  1243.     NEXT total
  1244.  
  1245.     DIM NamesLenght(head.much) AS INTEGER
  1246.     FOR NameIt = 1 TO head.much
  1247.         GET #e, , NamesLenght(NameIt)
  1248.     NEXT NameIt
  1249.  
  1250.     CLOSE #i
  1251.     FOR Name2 = 1 TO head.much
  1252.         s$ = SPACE$(NamesLenght(Name2))
  1253.         GET #e, , s$
  1254.         jm$ = "$Ext" + LTRIM$(STR$(Name2))
  1255.         erh:
  1256.         IF _FILEEXISTS(s$) THEN
  1257.             BEEP: INPUT "Warnig! Extracted file the same name already exists!!!! (O)verwrite, (R)ename or (E)xit? "; er$
  1258.             SELECT CASE LCASE$(er$)
  1259.                 CASE "o": KILL s$: NAME jm$ AS s$
  1260.                 CASE "r": INPUT "Input new name"; s$: GOTO erh
  1261.                 CASE "e": SYSTEM
  1262.             END SELECT
  1263.         ELSE
  1264.             NAME jm$ AS s$
  1265.         END IF
  1266.     NEXT Name2
  1267.     CLOSE #e
  1268.     PRINT "All ok."
  1269.    else
  1270.    print "File "; vystup$; " not found.": end
  1273.  
  1274. SUB Destructor (vystup AS STRING) 'delete files created by ExtractPMF
  1275.     TYPE head2
  1276.         identity AS STRING * 16
  1277.         much AS LONG
  1278.     END TYPE
  1279.     IF INSTR(1, LCASE$(vystup$), ".pmf") THEN ELSE vystup$ = vystup$ + ".PMF"
  1280.     IF _FILEEXISTS(vystup$) THEN
  1281.         CLOSE
  1282.         DIM head AS head2
  1283.         e = FREEFILE
  1284.         OPEN vystup$ FOR BINARY AS #e
  1285.         GET #e, , head
  1286.         DIM starts(head.much) AS LONG
  1287.  
  1288.         FOR celek = 1 TO head.much
  1289.             GET #e, , starts(celek)
  1290.         NEXT
  1291.  
  1292.         SEEK #e, starts(head.much) ' start DATA area
  1293.         DIM NamesLenght(head.much) AS INTEGER
  1294.         FOR NameIt = 1 TO head.much
  1295.             GET #e, , NamesLenght(NameIt)
  1296.         NEXT NameIt
  1297.         FOR Name2 = 1 TO head.much
  1298.             s$ = SPACE$(NamesLenght(Name2))
  1299.             GET #e, , s$
  1300.             IF _FILEEXISTS(s$) THEN KILL s$
  1301.         NEXT Name2
  1302.         CLOSE #e
  1303.     ELSE
  1304.         PRINT "Specified file not found": SLEEP 3
  1305.     END IF
  1307.  
* textures.pmf (Filesize: 847.03 KB, Downloads: 251)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #25 on: February 01, 2019, 04:42:33 pm »
That is an amazing effort! and no shortage of cabinets I see. ;)
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #26 on: February 01, 2019, 08:19:44 pm »
Hat tip to you Petr. My mind was blown when I realized you could use arrow keys to look around.

Looks like we have more than one person who can crack the 3D problem on this site. Believe me, I know the struggle and the satisfaction of getting MAPTRIANGLE to do your bidding in 3D.

... And I could answer this by studying the code, but for the sake of having this information on public display, I figured I would ask a few questions...

* How do you deal with graphics that have coordinates outside the viewing window? Does MAPTRIANGLE let you just ignore that issue, or did you have to clip at each view plane?

* How does this thing scale? That is, if we were to make a whole house or even a whole town, is the mini-game on the computer still going on? Does the whole world crank through the main loop?

* What's the end-game for this graphics demo?

* Can you swivel the view up and down along with left-right?

* Same question for movement - can we strafe instead of just swivel?

Respond however you'd like. I'm just thrilled that someone knows whats up in all three dimensions.
« Last Edit: February 02, 2019, 11:34:43 am by STxAxTIC »
Logged
You're not done when it works, you're done when it's right.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #27 on: February 01, 2019, 10:22:57 pm »
Settle down Bill. It's just a simulation. Everybody knows, or will know in the next decade, the universe is flat.

Hey graphic guys. Where are the image files needed to run this demo?

Pete :D
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #28 on: February 02, 2019, 08:04:38 am »
Hi STxAxTIC, I will prepare a detailed answer, which I will publish as soon as possible. Pete, all the necessary files are contained in the enclosed PMF file.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: MAPTRIANGLE in 3D
« Reply #29 on: February 03, 2019, 06:06:01 am »
So I'm back, yesterday we had a family celebration so I could not answer.

So, from the beginning.
How do you deal graphic coordinates, which are out of the monitor?

Not solved. This is not needed for this small program, but it can be solved for the size of the large space according to the size of the radius (I will explain below).

How is this thing measured?

According to Pythagoras' theorem. Take your paper to your hand. Paste a pencil into one of its places (preferably out of center). The point where the pencil penetrates the paper is where the camera is in the program. What happens when you turn the paper around this point where the pencil is stuck? The individual corners of the paper describe a circle with a common center that is not in the middle, that is, each circle has its own radius. How do we calculate this radius?
That's what I drew on the enclosed picture.

These calculations allow us to assemble off-center rotation, as shown in the ollowing program (in 2D). Use A, S and mouse:


Code: QB64: [Select]
  1.  
  2. 'program for  points EXCENTRIC rotation. Please NOT USE this PI solution, its my first and very BAD method!
  3. SCREEN _NEWIMAGE(800, 600, 256)
  4.  
  5.  
  6. CX = 330: CY = 350 '                                                                rotation center point
  7. N = 6
  8.  
  9.  
  10.  
  11.  
  13.     X AS SINGLE '                                                                  source X points in standard view
  14.     Y AS SINGLE '                                                                  source Y points in standard view
  15.     Z AS SINGLE '                                                                  not use yet
  16.     pi AS SINGLE '                                                                 start draw position on radius
  17.     Radius AS SINGLE '                                                             radius (every point use own, but if is CX and CY in middle, are all the same)
  19.  
  20.  
  21. DIM v(1 TO N) AS V
  22.  
  23.  
  24. '       D      C        A       B     extra point
  25. DATA 450,450,450,200,200,200,200,450,500,500,5000,5000: '                                            Quad data: X4, Y4, X3, Y3, X1, Y1, X2, Y2, extrapoint5x, y
  26. FOR r = 1 TO N
  27.     READ v(r).X, v(r).Y
  28.  
  29.  
  30.     LenX = v(r).X - CX '                                                           calculate line lenght between CX and X - point (X1, X2...)
  31.     LenY = v(r).Y - CY '                                                           calculate line lenght between CY (center Y) and Y - point
  32.  
  33.  
  34.     Radius = SQR(LenX ^ 2 + LenY ^ 2) '                                            calculate radius using Pythagoras
  35.  
  36.  
  37.  
  38.  
  39.     'urceni pi
  40.     '----------------------
  41.     ok = 0 '                                                                       THIS IS OLD FIRST METHOD! USE JK! FUNCTION FOR THIS!, its from developing time! JK! function is in previous program.
  42.     FOR O = 0 TO _PI(2) STEP .0001 '
  43.         X = CX + SIN(O) * Radius '                                                 Points in V array are the same as original draw contained in DATA.
  44.         Y = CY + COS(O) * Radius
  45.         IF CINT(X) = CINT(v(r).X) AND CINT(Y) = CINT(v(r).Y) THEN
  46.             v(r).pi = O: ok = 1: EXIT FOR
  47.         END IF
  48.     NEXT O
  49.     '----------------------
  50.     IF ok = 0 THEN PRINT "ERROR": SLEEP
  51.     v(r).Radius = Radius
  53. oldrot = 1
  57.         CX = _MOUSEX: CY = _MOUSEY
  58.         FOR r = 1 TO N
  59.             LenX = v(r).X - CX '                                                           calculate line lenght between CX and X - point (X1, X2...)
  60.             LenY = v(r).Y - CY '                                                           calculate line lenght between CY (center Y) and Y - point
  61.             '
  62.             Radius = SQR(LenX ^ 2 + LenY ^ 2) '                                            calculate radius using Pythagoras
  63.             v(r).Radius = Radius
  64.  
  65.  
  66.  
  67.  
  68.             ok = 0 '
  69.             FOR O = 0 TO _PI(4) STEP .0001 '
  70.                 X = CX + SIN(O) * Radius '
  71.                 Y = CY + COS(O) * Radius
  72.                 IF CINT(X) = CINT(v(r).X) AND CINT(Y) = CINT(v(r).Y) THEN v(r).pi = O: ok = 1: EXIT FOR
  73.             NEXT O
  74.             '----------------------
  75.             IF ok = 0 THEN PRINT "ERROR": SLEEP
  76.         NEXT r
  77.     END IF
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.     CLS
  87.     i$ = INKEY$
  88.     SELECT CASE i$
  89.         CASE "a", "A": rot = rot - .1 '                                            rotate with N points using "A" or "a"  and "S" or "s"
  90.         CASE "s", "S": rot = rot + .1
  91.     END SELECT
  92.  
  93.  
  94.     IF oldrot <> rot THEN
  95.         FOR r = 1 TO N
  96.             LOCATE 1, 1: PRINT rot
  97.             X = CX + SIN(rot + v(r).pi) * v(r).Radius
  98.             Y = CY + COS(rot + v(r).pi) * v(r).Radius
  99.  
  100.  
  101.             PSET (v(r).X, v(r).Y)
  102.  
  103.  
  104.             '        _PRINTSTRING (x, y), STR$(r)
  105.             PSET (X, Y)
  106.             CIRCLE (CX, CY), 3, 14
  107.         NEXT r
  108.     ELSE
  109.         oldrot = rot
  110.     END IF
  111.     _DISPLAY
  113.  

So we already know how to work. Now a mathematical problem follows. We know by which circle and with which center a particular point should be moved, but we do not know which of the points on the circle is our right one. That's what the JK! function do in program. So, to understand how it works, I've written another sample program (2D). An important point is to know how to rotate the picture. The absolute base is to rotate the image of the SIN and COS functions by center.
The mathematical result of JK!  must be absolutely accurate, otherwise the space will deform. This whole function is based on the definition of the Sinus and Cosinus functions using a circle unit. I think the picture will tell you more:
https://www.e-matematika.cz/stredni-skoly/karta-goniometricke-funkce-na-jednotkove-kruznici.php


In this source code you program show angle in radians between center and point on circle. Use mouse, move to circle radius,
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 256)
  2. radius = 200
  3.  
  4.  
  5.  
  8.     mx = _MOUSEX
  9.     my = _MOUSEY
  10.     cx = 400
  11.     cy = 300
  12.  
  13.  
  14.     CLS
  15.     FOR old = 0 TO _PI(2) STEP .001
  16.         oldX = cx + SIN(old) * radius
  17.         oldY = cy + COS(old) * radius
  18.         IF CINT(oldX) = mx AND CINT(oldY) = my THEN
  19.             PRINT "Old method - PI:"; old
  20.             PRINT "New - JK method - PI:"; JK(cx, cy, mx, my, radius)
  21.             EXIT FOR
  22.         END IF
  23.         PSET (oldX, oldY)
  24.     NEXT
  25.     _DISPLAY
  27.  
  28. 'pokus s jednotkovou kruznici! it is named english correctly as "binary circle"?
  29.  
  30.  
  31. FUNCTION JK! (cx, cy, px, py, R)
  32.     '  podle definice jednotkove kruznice musim nejprve hodnoty prevest na rozsah od -1 do 1 pro x i pro y.
  33.     '  R urcuje velikost kruznice, cili jR bude 1/R
  34.     LenX = cx - px
  35.     LenY = cy - py
  36.     jR = 1 / R
  37.  
  38.     jX = LenX * jR
  39.     jY = LenY * jR
  40.  
  41.     sinusAlfa = jX
  42.     Alfa = ABS(_ASIN(sinusAlfa))
  43.  
  44.     Q = 1
  45.     IF px >= cx AND py <= cy THEN Q = 1 'ok
  46.     IF px >= cx AND py <= cy THEN Q = 2 'ok
  47.  
  48.     IF px < cx AND py <= cy THEN Q = 3
  49.     IF px < cx AND py > cy THEN Q = 4
  50.     SELECT CASE Q
  51.         CASE 1: alfaB = Alfa
  52.         CASE 2: alfaB = _PI / 2 + (_PI / 2 - Alfa)
  53.         CASE 3: alfaB = _PI + Alfa
  54.         CASE 4: alfaB = _PI(1.5) + (_PI / 2 - Alfa)
  55.     END SELECT
  56.     JK! = alfaB
  58.  

In order to get the correct ratio (it has transferred the space to the space of the circle) it is sufficient to divide the number 1 by a radius.

What is the end of the game for this graphical demo?
 None. The minigame on the monitor is used only as animation, it goes to infinity. But in a next 3D program, I'll really be able to play minigame when switching from 3D to 2D, because the QB64 has tremendous power and performance, and it's totally in the possibilities of that language. It only depends on the programmer.

Can you rotate the view up / down?
That's what I'm working on. The principle will be the same as for rotation in XZ, only the radius is counted against the Z and Y, not the distance to the depth Z and the distance left - right X.
I assume that first rotation is done in X / Z and then another, in Y / Z. I want to solve this in the next program, so I'm going to solve this now.

I do not understand the last question, you probably ask for the moving aside.
 Yes, you can do it very easily. Only add or subtract POSx or POSz according to the angle of the current rotation.
Easy. It all looks easy when it's done ...
pic01.png
* pic01.png (Filesize: 7.98 KB, Dimensions: 457x396, Views: 250)
Logged
Pages: 1 [2] 3 4   Go Up
« previous next »