Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - MasterGy

Pages: 1 2 [3] 4 5 ... 22
31
Programs / Spider animation
« on: March 07, 2022, 10:04:17 am »
i want spiders in the game but not 2d gifs but i want my legs to move in 3d. I searched the internet and found good animations to move my legs.

https://in.pinterest.com/joysonvaz/animated-spider/

I downloaded the images and determined the position of the joints with an image editing program and built them into a system. Of course, the values went through a lot of transformations before I could store them in fairly well-compressed ASCII. Some samples, combined with linear interpolation, return very meticulous motion.

Code: QB64: [Select]
  1. DIM SHARED spani$
  2. spani$ = "LNKOJKGJDKMNMNQLROSQNNOOPKSMSPPNPNUMWOYRLNKOJKGKDMMNMONJNNNPNNOOOKPMPPPNQNTKXNZPLNKOJLHNFQMNMOLKKNLPNNOOOKNONQPNQOSLXMZPLNKOILGOGRMNMNLJILIO"
  3. spani$ = spani$ + "NNOOOLPOPRPNQNQKUNUQLNKOJKHOIRMNMNMKJMHPNNOORKUNURPNPOQKTNSQLNKOILHOIRMNMOLKKOJQNNPORLUOVRPNQOQKRNRRLNLOJMIOKRMNMOLKLOMRNNNOLMKPMRPNQORLRORR"
  4. spani$ = spani$ + "LNLOLKHMHOMNMNOJPNOQNNNONLJMJPPNPNSLUOTRLNLOKLGKFNMNMNPKQNQRNNPOQKTMTPPNPNTLWNXQ"
  5.  
  6.  
  7.  
  8. monx = 800: mony = 800: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon
  9.  
  10. DIM xy(1)
  11. zoom = 12
  13.     FOR leg = 0 TO 3
  14.         FOR bre = 0 TO 3
  15.             sl_read xy(), ani, leg, bre
  16.             x1 = xy(0) * zoom + monx / 2
  17.             y1 = xy(1) * zoom + mony / 2
  18.             sl_read xy(), ani, leg, bre + 1
  19.             x2 = xy(0) * zoom + monx / 2
  20.             y2 = xy(1) * zoom + mony / 2
  21.             LINE (x1, y1)-(x2, y2)
  22.         NEXT bre
  23.     NEXT leg
  24.  
  25.     _DISPLAY: CLS
  26.     ani = ani + .1
  28.  
  29. SUB sl_read (xy(), ani, leg, bre): n1 = INT(ani) MOD 9: n2 = (n1 + 1) MOD 9: n3 = ani - INT(ani): pre = 1 + bre * 2 + leg * 10
  30. FOR t = 0 TO 1: a = ASC(MID$(spani$, t + pre + n1 * 40, 1)) - 78: b = ASC(MID$(spani$, t + pre + n2 * 40, 1)) - 78: xy(t) = a + (b - a) * n3: NEXT t: END SUB
  31.  
  32.  

32
Programs / Re: Mystical rooms, collect the diamonds!
« on: March 07, 2022, 05:54:54 am »
if you want a challenge (which is still achievable), rewrite the beginning like this :)


room_c = 5 'how many rooms should be in the game?
diamant_c = 15 'average number of diamonds / room
room_doormin = 3 'there must be at least as many doors in a room
room_doormax = 4 'there should be a maximum of this number of doors in a room
me_speed = .15 'my speed
mouse_sens = .2

33
Programs / Re: Mystical rooms, collect the diamonds!
« on: March 07, 2022, 04:46:42 am »
thanks ! You can adjust the sensitivity of the mouse at the beginning of the program. "mouse_sens". For example, type 0.2 instead of 0.5.

34
Programs / Mystical rooms, collect the diamonds!
« on: March 06, 2022, 02:11:14 pm »
I made a game.
There are rooms. The rooms have doors. There is only 1 door in 1 room, which takes you to the next room! Find the right way! Get to the last room and collect all the diamonds!
The engine of the game is from Mover Bricks. The challenge here was how I connected the doors. There is only one way up.
The number of rooms and doors can be set at the beginning of the source code. It is very chaotic to raise these values, but whoever has a good memory and a good location recognizer can easily find the right doors!

No file accessories.

 
ss.jpg


Code: QB64: [Select]
  1. monx = 800: DIM SHARED rm(9, 1): DIM SHARED p(3, 2): RANDOMIZE TIMER
  2.  
  3. '---------------------- settings -----------------------------------
  4.  
  5.  
  6. room_c = 4 'how many rooms should be in the game?
  7. diamant_c = 10 'average number of diamonds / room
  8. room_doormin = 2 'there must be at least as many doors in a room
  9. room_doormax = 3 'there should be a maximum of this number of doors in a room
  10. me_speed = .15 'my speed
  11. mouse_sens = .5
  12.  
  13.  
  14.  
  15.  
  16.  
  17. '-----ADVANCED SETTINGS ----------------------------------------------------------------------------------------------------------------
  18. diamant_speed_min = .05 'diamant speed 1. room
  19. diamant_speed_max = .15 'diamant speed last room
  20. room_buffsize = 100
  21. room_relsize = 20
  22. room_boxmin_c = 4
  23. room_boxmax_c = 6
  24. shdw_c = 40
  25.  
  27. CONST pip180 = 3.141592 / 180
  28. cheat_active = 0
  29.  
  30. 'make colors
  31. DIM SHARED b_colors(room_c - 1) AS _INTEGER64: FOR t = 0 TO room_c - 1: b_colors(t) = _RGB32(30 + 180 * RND(1), 30 + 180 * RND(1), 30 + 180 * RND(1)): NEXT t
  32. DIM temp_color(9) AS _INTEGER64
  33. DIM SHARED crash_active
  34.  
  35. 'shadows
  36. DIM SHARED shdw(16383) AS _BYTE: FOR t = 0 TO 16383: ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
  37. shdw(t) = ashdw: NEXT t
  38.  
  39. 'make textures
  40. dia_text_c = 20: DIM dia_text(dia_text_c - 1, shdw_c - 1)
  41. dt_c = 10
  42. marg = .12: DIM SHARED text_tile(room_c - 1, shdw_c - 1) AS _INTEGER64: DIM door_text(dt_c - 1, shdw_c - 1)
  43. FOR t = 0 TO shdw_c - 1: tmax = 40: tmin = 40: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
  44.     stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
  45.     LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF: _SOURCE stand_temp
  46.     noise = 5 + 5 * (1 / (shdw_c - 1) * t) ^ 1.2: FOR tx = 0 TO size - 1: FOR ty = 0 TO size - 1: temp_color(0) = POINT(tx, ty)
  47.             PSET (tx, ty), _RGB32(_RED32(temp_color(0)) - noise / 2 + RND(1) * noise, _GREEN32(temp_color(0)) - noise / 2 * RND(1) * noise, _BLUE32(temp_color(0)) - noise / 2 + RND(1) * noise)
  48.     NEXT ty, tx
  49.  
  50.     'make wall
  51.     FOR t2 = 0 TO room_c - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
  52.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
  53.         _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans: 'tile coloring
  54.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
  55.         _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans 'tile darking
  56.     text_tile(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
  57.  
  58.     'make door-flash
  59.     temp_color(0) = _RGB32(255, 100, 100): temp_color(1) = _RGB32(100, 100, 255) 'door 2 colors
  60.     FOR t2 = 0 TO dt_c - 1: a = 1 / (dt_c - 1) * t2: temp = _NEWIMAGE(3, 3, 32): _DEST temp: m = .5 * dark
  61.         cr = (_RED32(temp_color(0)) * a + _RED32(temp_color(1)) * (1 - a)) * m: cg = (_GREEN32(temp_color(0)) * a + _GREEN32(temp_color(1)) * (1 - a)) * m
  62.         cb = (_BLUE32(temp_color(0)) * a + _BLUE32(temp_color(1)) * (1 - a)) * m: CLS , _RGB32(cr, cg, cb)
  63.     door_text(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2
  64.  
  65.     'make diamants
  66.     tmax = 100: tmin = 40: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t)
  67.     FOR t2 = 0 TO dia_text_c - 1: temp = _NEWIMAGE(size, size, 32): _DEST temp: _SOURCE temp
  68.         temp_color(0) = _RGB32(2 + dark * 186 * RND(1), 2 + dark * 186 * RND(1), 2 + dark * 186 * RND(1))
  69.         COLOR temp_color(0): CIRCLE (size / 2, size / 2), size / 2 * .95: PAINT (size / 2, size / 2), temp_color(0), temp_color(0)
  70.     _CLEARCOLOR POINT(0, 0): dia_text(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2
  72.  
  73. 'white flash
  74. wf_c = 20: DIM wf_text(wf_c - 1): sizex = INT(monx * .3): sizey = INT(mony * .3)
  75. FOR t = 0 TO wf_c - 1: temp = _NEWIMAGE(sizex, sizey, 32): _DEST temp: FOR tx = 0 TO sizex - 1: FOR ty = 0 TO sizey - 1
  76.             PSET (tx, ty), _RGBA32(255, 255, 255, ((255 / (sizex / 2) * SQR((sizex / 2 - tx) ^ 2 + (sizey / 2 - ty) ^ 2) + 200) * (1 / (wf_c - 1) * t)) * .6)
  77. NEXT ty, tx: wf_text(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
  78.  
  79.  
  80. DIM d(7, 1) AS _BYTE 'directions array
  81. d(0, 1) = -1: d(1, 0) = 1: d(1, 1) = -1: d(2, 0) = 1: d(3, 0) = 1: d(3, 1) = 1
  82. d(4, 1) = 1: d(5, 0) = -1: d(5, 1) = 1: d(6, 0) = -1: d(7, 0) = -1: d(7, 1) = -1
  83.  
  84. 'ROOM array
  85. '0,1,2,3 x1,y1,x2,y2 position in room_map array
  86. '4 number of doors
  87. '20+ ,21+  door coordinates (step5)
  88. '22+ door exit direction
  89.  
  90. 'ROOM_MAP array  (room,x,y)
  91. 'nothing
  92. 'bit 0-walking area
  93. 'bit 1,2,3,4-wall
  94. 'bit 5 door
  95. DIM SHARED me(9), cam(9) '0,1,2 XYZ 3,4 angAB , 5 room
  96.  
  97. 'make rooms
  98. DIM SHARED room(room_c - 1, 99), room_map(room_c - 1, room_buffsize - 1, room_buffsize - 1) AS _UNSIGNED _BYTE
  99.  
  100. mapsize0 = 20: room(0, 1) = mapsize0: room(0, 3) = mapsize0: FOR tx = 0 TO mapsize0 - 1: FOR ty = 0 TO mapsize0 - 1
  101. room_map(0, tx, ty) = 1 + ABS(tx = 0 OR tx = mapsize0 - 1 OR ty = 0 OR ty = mapsize0 - 1) * 3: NEXT ty, tx
  102.  
  103. FOR ar = 0 TO room_c - 1
  104.     IF ar THEN
  105.         room_map(ar, INT(room_buffsize / 2), INT(room_buffsize / 2)) = 1: reg_minmax_reset 0: reg_minmax_reset 1
  106.         FOR t = 0 TO INT(randscale(room_boxmin_c, room_boxmax_c)) - 1
  107.             FOR t2 = 0 TO 1: box(t2) = INT(randscale(INT(room_relsize * (.4 + .2 * t2)), INT(room_relsize * (.5 + .2 * t2)))): NEXT t2
  108.             IF INT(2 * RND(1)) THEN SWAP box(0), box(1)
  109.             DO: px = INT(room_buffsize * RND(1)): py = INT(room_buffsize * RND(1)): LOOP UNTIL room_map(ar, px, py)
  110.             px2 = INT(box(0) * RND(1) / 2): py2 = INT(box(1) * RND(1) / 2): FOR tx = 0 TO box(0) - 1: FOR ty = 0 TO box(1) - 1
  111.         wx = tx + px - px2: wy = ty + py - py2: room_map(ar, wx, wy) = 1: reg_minmax 0, wx: reg_minmax 1, wy: NEXT ty, tx, t
  112.         room(ar, 0) = rm(0, 0) - 2: room(ar, 1) = rm(0, 1) + 2: room(ar, 2) = rm(1, 0) - 2: room(ar, 3) = rm(1, 1) + 2
  113.         'make doors
  114.         room(ar, 4) = INT(randscale(room_doormin, room_doormax)): FOR ad = 0 TO room(ar, 4) - 1: agent = 0
  115.             DO: px = INT((room_buffsize - 2) * RND(1)) + 1: py = INT((room_buffsize - 2) * RND(1)) + 1: REDIM cnt(1, 1): dis_nook = 0
  116.                 FOR t2 = 0 TO 1: FOR t = 0 TO 7 STEP 2 - t2: c = room_map(ar, px + d(t, 0), py + d(t, 1)): cnt(t2, c) = cnt(t2, c) + 1: NEXT t, t2
  117.                 FOR ad2 = 0 TO ad: dis_nook = dis_nook OR (SQR((room(ar, 20 + ad2 * 5) - px) ^ 2 + (room(ar, 21 + ad2 * 5) - py) ^ 2) < 5 AND (ad2 <> ad))
  118.                     agent = agent + 1: IF agent > 100000 THEN room(ar, 4) = ad + 0: agent2 = 1: GOTO exitroom
  119.             NEXT ad2: LOOP UNTIL cnt(0, 0) = 3 AND cnt(0, 1) = 1 AND cnt(1, 0) = 5 AND cnt(1, 1) = 3 AND dis_nook = 0
  120.             room(ar, 20 + ad * 5) = px: room(ar, 21 + ad * 5) = py
  121.         FOR t = 0 TO 7 STEP 2: room(ar, 22 + ad * 5) = room(ar, 22 + ad * 5) OR room_map(ar, px + d(t, 0), py + d(t, 1)) * t: NEXT t, ad 'door exit dir
  122.         exitroom:
  123.         'make wall type
  124.         FOR tx = room(ar, 0) TO room(ar, 1): FOR ty = room(ar, 2) TO room(ar, 3): IF room_map(ar, tx, ty) = 1 THEN _CONTINUE
  125.                 FOR t = 0 TO 7 STEP 2: room_map(ar, tx, ty) = room_map(ar, tx, ty) OR (2 ^ (t / 2) * 2) * ABS(room_map(ar, tx + d(t, 0), ty + d(t, 1)) = 1)
  126.         NEXT t, ty, tx
  127.     END IF
  128.  
  129.     'add door to the room interior
  130.     IF ar THEN add_room_c = INT(3 * RND(1)): ELSE add_room_c = 1
  131.     IF add_room_c THEN
  132.         FOR t = 0 TO add_room_c - 1: agent = 0
  133.             DO: FOR t2 = 0 TO 1: box(t2) = randscale(room(ar, t2 * 2), room(ar, 1 + t2 * 2) - 1): NEXT t2: room_ok = 1
  134.                 FOR tx = 0 TO 4: FOR ty = 0 TO 4: IF room_map(ar, tx + box(0), ty + box(1)) <> 1 THEN room_ok = 0
  135.                 NEXT ty, tx: agent = agent + 1: IF agent > 500000 THEN GOTO exitroom2
  136.             LOOP UNTIL room_ok: FOR tx = 1 TO 3: FOR ty = 1 TO 3: room_map(ar, tx + box(0), ty + box(1)) = 2: NEXT ty, tx
  137.             FOR t2 = 0 TO 1: room(ar, 20 + room(ar, 4) * 5 + t2) = box(t2) + 2: NEXT t2: room(ar, 22 + room(ar, 4) * 5) = INT(4 * RND(1)) * 2
  138.             room_map(ar, box(0) + 2 + d(room(ar, 22 + room(ar, 4) * 5), 0), box(1) + 2 + d(room(ar, 22 + room(ar, 4) * 5), 1)) = 1
  139.         room(ar, 4) = room(ar, 4) + 1: NEXT t
  140.     END IF
  141.     exitroom2:
  142.  
  143.     'doors to map
  144.     FOR ad = 0 TO room(ar, 4) - 1: room_map(ar, room(ar, 20 + ad * 5), room(ar, 21 + ad * 5)) = 2 ^ 5: NEXT ad
  145. NEXT ar
  146.  
  147.  
  148. 'diamants location
  149. dia_c = diamant_c * (room_c - 1): DIM dia(dia_c - 1, 9): FOR ad = 0 TO dia_c - 1: dia(ad, 3) = INT((room_c - 1) * RND(1)) + 1
  150.     DO: FOR t = 0 TO 1: dia(ad, t) = randscale(room(dia(ad, 3), t * 2), room(dia(ad, 3), 1 + t * 2)): NEXT t
  151.     LOOP UNTIL room_map(dia(ad, 3), dia(ad, 0), dia(ad, 1)) = 1: dia(ad, 2) = .5
  152.     dv = (1 + RND(1)) * (diamant_speed_min + (diamant_speed_max - diamant_speed_min) / (room_c - 1) * dia(ad, 3))
  153.     dega = 360 * RND(1) * pip180: degb = 360 * RND(1) * pip180: dia(ad, 8) = 1
  154. dia(ad, 4) = SIN(degb) * COS(dega) * dv: dia(ad, 5) = SIN(degb) * SIN(dega) * dv: dia(ad, 6) = COS(degb) * dv / 2: NEXT ad
  155.  
  156.  
  157. 'my start position
  158. DO: FOR t = 0 TO 1: me(t) = randscale(room(me(5), t * 2), room(me(5), 1 + t * 2)): NEXT t: LOOP UNTIL room_map(me(5), me(0), me(1)) = 1
  159.  
  160. 'allocation of doors
  161. DIM adoor(room_c - 1, room_doormax + 10, 9) '9-present 0-trans to room 1-trans to door,8 -the only route
  162. FOR ar = 0 TO room_c - 2 'create only route
  163.     DO: door1 = INT(room(ar, 4) * RND(1)): LOOP WHILE adoor(ar, door1, 9)
  164.     DO: door2 = INT(room(ar + 1, 4) * RND(1)): LOOP WHILE adoor(ar + 1, door2, 9)
  165.     adoor(ar, door1, 0) = ar + 1: adoor(ar, door1, 1) = door2: adoor(ar, door1, 8) = 1: adoor(ar, door1, 9) = 1
  166. adoor(ar + 1, door2, 0) = ar: adoor(ar + 1, door2, 1) = door1: adoor(ar + 1, door2, 9) = 1: NEXT ar
  167.  
  168. FOR ar = 1 TO room_c - 1: FOR ad = 0 TO room(ar, 4) - 1: IF adoor(ar, ad, 9) THEN _CONTINUE
  169. adoor(ar, ad, 0) = INT(ar * RND(1)): adoor(ar, ad, 1) = INT(room(adoor(ar, ad, 0), 4) * RND(1)): adoor(ar, ad, 9) = 1: NEXT ad, ar
  170.  
  171. mon2 = _NEWIMAGE(800, 800, 32): SCREEN mon2: PRINT "DOORS ALLOCATION ": FOR ar = 0 TO room_c - 1: FOR ad = 0 TO room(ar, 4) - 1
  172.         IF adoor(ar, ad, 8) THEN COLOR _RGB32(255, 255, 255) ELSE COLOR _RGB32(100, 100, 100)
  173. PRINT ar; ".room,"; ad; ".door   TRANS TO  room:"; adoor(ar, ad, 0); ",door:"; adoor(ar, ad, 1): NEXT ad: PRINT: NEXT ar
  174. COLOR _RGB32(50, 50, 50): PRINT "Press any key !": DO: _LIMIT 30: LOOP WHILE INKEY$ = ""
  175.  
  176.  
  177.  
  178.  
  180. door_clip_d = 1: crash_active = 1: me(2) = .2 'my height in the game 0-1
  181. '----------------------------------------- BOSS CYCLE -------------------------------------------------------------------------
  182. DO: IF boss_limit = 0 THEN _LIMIT 50
  183.     inkey2$ = INKEY$
  184.     'cheat keys
  185.     boss_limit = boss_limit XOR ABS(cheat_active AND inkey2$ = "l"): crash_active = crash_active XOR ABS(cheat_active AND inkey2$ = "c")
  186.     me(2) = me(2) + (_KEYDOWN(ASC("+")) - _KEYDOWN(ASC("-"))) * .05 * cheat_active
  187.  
  188.     'control me
  189.     mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
  190.     k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
  191.     k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s")) OR _MOUSEBUTTON(2)
  192.     me(3) = me(3) + mousex * mouse_sens: me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
  193.  
  194.     try_ang_sc = 85: FOR try_ang = 0 TO try_ang_sc STEP 6: FOR try_ang_dir = 0 TO 1
  195.             go = me_speed * ABS((k_left + k_right + k_up + k_down) = -1) * (1 / try_ang_sc * (try_ang_sc - try_ang))
  196.             go_ang = k_down * 180 + 90 * (k_left - k_right) + (me(3) + (try_ang_dir * 2 - 1) * try_ang): kit = .2
  197.             go_xa = SIN(go_ang * pip180) * kit + me(0): go_ya = -COS(go_ang * pip180) * kit + me(1): go_xg = SIN(go_ang * pip180) * go + me(0)
  198.             go_yg = -COS(go_ang * pip180) * go + me(1): IF crash(go_xa, go_ya) = 0 THEN me(0) = go_xg: me(1) = go_yg: GOTO ok
  199.     NEXT try_ang_dir, try_ang
  200.     ok:
  201.  
  202.     FOR t = 0 TO 9: cam(t) = me(t): NEXT t: door_clip = door_clip + door_clip_d: IF INT(door_clip) < 1 OR INT(door_clip) > dt_c - 2 THEN door_clip_d = -door_clip_d
  203.  
  204.     'draw objects
  205.     FOR tx = 0 TO room(me(5), 1) - room(me(5), 0): FOR ty = 0 TO room(me(5), 3) - room(me(5), 2)
  206.             l = room_map(me(5), room(me(5), 0) + tx, room(me(5), 2) + ty)
  207.             IF l = 1 OR l = 32 THEN 'TILE
  208.                 roof = (1 - ABS(me(5) = 0))
  209.                 FOR t2 = 0 TO roof: FOR t = 0 TO 3: p(t, 0) = tx + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = ty + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = t2
  210.                     point_3d p(t, 0), p(t, 1), p(t, 2): NEXT t: draw_square p(), text_tile(me(5), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  211.                 NEXT t2
  212.             END IF
  213.             IF l / 2 AND 15 THEN draw_brick_3d tx, ty 'WALL
  214.             IF l AND 32 THEN 'GATE
  215.                 dt = 0: FOR t2 = 0 TO 7 STEP 2: dt = dt OR (t2 * ABS(room_map(me(5), room(me(5), 0) + tx + d(t2, 0), room(me(5), 2) + ty + d(t2, 1)) = 1))
  216.                     NEXT t2: FOR t = 0 TO 3: p(t, 0) = (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = 0: p(t, 1) = (SGN(t AND 2) * 2 - 1) * .5 + .5
  217.                     rotate_2d p(t, 0), p(t, 2), 90 * pip180 * SGN(dt AND 2)
  218.                     p(t, 0) = p(t, 0) + tx: p(t, 2) = p(t, 2) + ty: point_3d p(t, 0), p(t, 1), p(t, 2)
  219.                 NEXT t: draw_square p(), door_text(INT(door_clip), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  220.             END IF
  221.     NEXT ty, tx
  222.  
  223.     'white flash
  224.     w_dis = .7: mindis = 999999: FOR ad = 0 TO room(me(5), 4) - 1
  225.         dis = SQR((me(0) - room(me(5), 20 + 5 * ad)) ^ 2 + (me(1) - room(me(5), 21 + 5 * ad)) ^ 2): IF dis < mindis THEN mindis = dis: trans_door = ad
  226.     NEXT ad: IF mindis > w_dis THEN awf_add = -.5
  227.     awf = awf + awf_add: IF INT(awf) < 0 THEN awf = 0 ELSE IF INT(awf) > wf_c - 1 THEN awf = wf_c - 1
  228.     _PUTIMAGE , wf_text(INT(awf))
  229.  
  230.  
  231.     'near door / trans to another room
  232.     IF mindis < .5 AND adoor(me(5), trans_door, 9) THEN
  233.         ndoor = adoor(me(5), trans_door, 1): me(5) = adoor(me(5), trans_door, 0)
  234.         FOR t = 0 TO 1: q(t) = d(room(me(5), 22 + ndoor * 5), t): me(t) = room(me(5), 20 + t + ndoor * 5) + q(t): NEXT t
  235.         me(3) = -degree(q(0), q(1)) + 180: awf = wf_c - 1
  236.     END IF
  237.  
  238.     'draw diamants
  239.     'DIAMANT array
  240.     '0,1,2 XYZ-location
  241.     '3,room-location
  242.     '4,5,6 XYZ vector
  243.     '8 active status 1-active
  244.  
  245.     diar = 10
  246.     FOR ad = 0 TO dia_c - 1: IF dia(ad, 3) <> me(5) OR dia(ad, 8) = 0 THEN _CONTINUE
  247.         'catch
  248.         catch = ABS((k_left + k_right + k_up + k_down) = -1) AND SQR((dia(ad, 0) - me(0)) ^ 2 + (dia(ad, 1) - me(1)) ^ 2) < .5
  249.         IF catch THEN dia(ad, 8) = 0: awf = (wf_c - 1) * .6: _CONTINUE
  250.  
  251.         'diamants move
  252.         newpos = dia(ad, 2) + dia(ad, 6): IF newpos < 0 OR newpos > 1 THEN dia(ad, 6) = -dia(ad, 6)
  253.         newpos = dia(ad, 0) + dia(ad, 4): IF room_map(me(5), newpos, dia(ad, 1)) <> 1 THEN dia(ad, 4) = -dia(ad, 4)
  254.         newpos = dia(ad, 1) + dia(ad, 5): IF room_map(me(5), dia(ad, 0), newpos) <> 1 THEN dia(ad, 5) = -dia(ad, 5)
  255.         FOR t = 0 TO 2: dia(ad, t) = dia(ad, t) + dia(ad, 4 + t): NEXT t
  256.  
  257.         'diamants draw
  258.         x = dia(ad, 0) - room(me(5), 0): z = dia(ad, 1) - room(me(5), 2): y = dia(ad, 2): point_3d x, y, z
  259.         FOR t = 0 TO 3: p(t, 0) = (SGN(t AND 1) * 2 - 1) * diar + x: p(t, 2) = z: p(t, 1) = (SGN(t AND 2) * 2 - 1) * diar + y: NEXT t
  260.         draw_square p(), dia_text(INT(dia_text_c * RND(1)), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  261.     NEXT ad
  262.  
  263.  
  264.     'stroryline
  265.     REDIM sum(room_c - 1): my_dia = 0: FOR ad = 0 TO dia_c - 1: my_dia = my_dia + dia(ad, 8): sum(dia(ad, 3)) = sum(dia(ad, 3)) + dia(ad, 8): NEXT ad
  266.  
  267.     FOR ar = 0 TO room_c - 1: COLOR _RGB32(255, 255, 255), b_colors(ar): LOCATE 2 + ar, 2
  268.         IF ar = 0 THEN PRINT "START ROOM"; ELSE IF sum(ar) THEN PRINT ar; ".room :"; sum(ar); " diamant"; ELSE PRINT ar; ".room is OK !";
  269.         IF ar = me(5) THEN COLOR _RGB32(255, 255, 255), 0: PRINT "    <-- YOU ARE HERE"
  270.     NEXT ar
  271.  
  272.     IF my_dia THEN
  273.         mess$ = "Get all diamant !"
  274.     ELSE
  275.         IF me(5) = 0 THEN mess$ = "CONGRATULATION !" ELSE mess$ = "Go back to the START-ROOM !"
  276.     END IF
  277.     LOCATE mony / 16 - 2, 2: COLOR _RGB32(255, 255, 255), 0: PRINT mess$
  278.  
  279.     _DISPLAY: CLS , 0
  281.  
  282.  
  283. FUNCTION crash (x, y): f = room_map(me(5), INT(x + .5), INT(y + .5)): crash = (f = 0 OR (f / 2 AND 15)) * crash_active: END FUNCTION
  284. FUNCTION randscale (a, b): randscale = a + (b - a) * RND(1): END FUNCTION
  285. SUB reg_minmax_reset (n): rm(n, 0) = 9999999: rm(n, 1) = -rm(n, 0): END SUB
  286. SUB reg_minmax (n, a): IF a < rm(n, 0) THEN rm(n, 0) = a ELSE IF a > rm(n, 1) THEN rm(n, 1) = a
  288. FUNCTION degree (a, b): degreex = ATN(a / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0): degree = degreex: END FUNCTION
  289. SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
  290.  
  291. SUB point_3d (x, y, z): x = (x - cam(0) + room(cam(5), 0)) * 100: y = (y - cam(2)) * 100: z = (z - cam(1) + room(cam(5), 2)) * 100
  292. rotate_2d x, z, -(cam(3) + 180) * pip180: rotate_2d y, z, (cam(4) + 180) * pip180: END SUB
  293.  
  294. SUB draw_square (p(), text)
  295.     wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
  296.     _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
  297.     _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
  299.  
  300. SUB draw_brick_3d (x, y)
  301.     REDIM pc(7, 2): FOR t = 0 TO 7: pc(t, 0) = .5 * (SGN(t AND 1) * 2 - 1) + x: pc(t, 2) = .5 * (SGN(t AND 2) * 2 - 1) + y: pc(t, 1) = .5 * SGN(t AND 4) * 2
  302.         point_3d pc(t, 0), pc(t, 1), pc(t, 2): NEXT t: FOR t = 0 TO 4: FOR t2 = 0 TO 3: side = VAL(MID$("-0246-2367-3175-1054-4567", 2 + t * 5 + t2, 1))
  303.         FOR t3 = 0 TO 2: p(t2, t3) = pc(side, t3): NEXT t3, t2: draw_square p(), text_tile(me(5), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  304.     NEXT t
  306.  
  307.  
  308.  

35
Programs / Re: Evolving RI (Robot Intelligence) for a room vacuum
« on: March 04, 2022, 01:33:32 pm »
ah, I get it now, I think it was a very good idea to do this! I didn't print it out (I don't have a printer), but I think it works for me.

36
Programs / Re: Evolving RI (Robot Intelligence) for a room vacuum
« on: March 03, 2022, 01:19:58 pm »
what should I do after selecting a room? I may not understand something

37
QB64 Discussion / Re: _MAPTRIANGLE 3D ----> 2D ?
« on: March 03, 2022, 04:32:29 am »
thanks for the reply Galleon! It’s interesting to look at how he encounters c.

38
Programs / Re: Evolving RI (Robot Intelligence) for a room vacuum
« on: March 01, 2022, 05:05:41 am »
This is a very interesting experiment! I think the trip has been effective!

39
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 28, 2022, 08:51:49 am »
I tried something else. If we calculate an image as soil, it still works very well. If we expose the dog to the ground, the dog cannot be recognized on the ground because we are close to the ground and cannot see it at the same time. But if we approach the spheres, the dog can be recognized in the sphere due to the reflection! We can raise the "SCRW" high, it makes a very nice picture, it will only be difficult to navigate because it will be very slow.

Do you see the dog in the sphere?
 
forum.jpg

40
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 06:42:38 pm »
he didn’t let me calm down to understand a few things.
It works. Walking in space. Look up, down, spin.
WASD + mouse.

Code: QB64: [Select]
  1. _TITLE "RayTrace" 'b+ trans from JB to QB64 2022-02-26
  2. scrw = 400
  4.  
  5.  
  6.  
  7.  
  8. SCREEN _NEWIMAGE(scrw, scrh, 32)
  10. READ spheres
  11. DIM c(spheres, 9), r(spheres), q(spheres), cl(4) AS _UNSIGNED LONG
  12. w = scrw / 2
  13. h = scrh / 4
  14. s = 0
  15. cl(1) = _RGB32(120, 65, 45) ' shaddow
  16. cl(2) = _RGB32(0, 0, 100)
  17. cl(3) = _RGB32(255, 255, 0)
  18. cl(4) = _RGB32(0, 0, 200)
  20. FOR k = 1 TO spheres
  21.     READ a, b, c, d
  22.     c(k, 5) = a
  23.     c(k, 2) = -(d + .3 + 2 * RND(1))
  24.     c(k, 6) = c
  25.     c(k, 4) = .1
  26.     r = d
  27.     r(k) = r
  28.     q(k) = r * r
  30.  
  31. me(1) = -0.2: me(2) = -3: me(0) = c(1, 1): me(3) = _PI
  32.  
  33.  
  35.  
  36.  
  37.     'bouncing
  38.     FOR k = 1 TO spheres
  39.         c(k, 4) = c(k, 4) + .01
  40.         ck = c(k, 2) + c(k, 4)
  41.         IF -ck < r(k) THEN c(k, 4) = -.2: ck = -r(k)
  42.         c(k, 2) = ck
  43.     NEXT k
  44.  
  45.     'control
  46.     mousex = 0: mousey = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: WEND
  47.     me(3) = me(3) + mousex * .01
  48.     h = h + mousey * .5
  49.     k_a = _KEYDOWN(ASC("a")): k_d = _KEYDOWN(ASC("d")): k_w = _KEYDOWN(ASC("w")): k_s = _KEYDOWN(ASC("s"))
  50.     go_ang = -(k_a * 90 + k_d * -90 + k_s * 180 - 180) * (_PI / 180) - me(3)
  51.     go = (k_a + k_d + k_w + k_s = -1) * .2
  52.     me(0) = me(0) + SIN(go_ang) * go
  53.     me(2) = me(2) - COS(go_ang) * go
  54.     me(1) = me(1) + (_KEYDOWN(ASC("+")) - _KEYDOWN(ASC("-"))) * .02
  55.  
  56.     'spheres rotating
  57.     FOR k = 1 TO spheres
  58.         c(k, 1) = c(k, 5) - me(0)
  59.         c(k, 3) = c(k, 6) - me(2)
  60.         rotate_2d c(k, 1), c(k, 3), me(3)
  61.         c(k, 1) = c(k, 1) + me(0)
  62.         c(k, 3) = c(k, 3) + me(2)
  63.     NEXT k
  64.  
  65.  
  66.     FOR i = 1 TO scrh STEP 1
  67.         FOR j = 0 TO scrw - 1
  68.             x = me(0): y = me(1): z = me(2): ba = 3
  69.             dx = j - w: dy = h - i: dz = scrw
  70.             dd = dx * dx + dy * dy + dz * dz
  71.             neverend_cycle_agent = 0
  72.             DO: neverend_cycle_agent = neverend_cycle_agent + 1: IF neverend_cycle_agent > 2000 THEN EXIT DO
  73.                 n = (y >= 0 OR dy <= 0) '* -1   <<< Makes $1000 for knowing where to tap the hammer
  74.                 IF n = 0 THEN s = (y / dy) * -1
  75.                 dd_temp = 1 / SQR(dd)
  76.                 FOR k = 1 TO spheres
  77.                     px = c(k, 1) - x: py = c(k, 2) - y: pz = c(k, 3) - z
  78.                     pp = px * px + py * py + pz * pz
  79.                     sc = px * dx + py * dy + pz * dz
  80.                     IF sc > 0 THEN
  81.                         bb = sc * sc / dd
  82.                         aa = q(k) - pp + bb
  83.                         IF aa > 0 THEN
  84.                             sc = (SQR(bb) - SQR(aa)) * dd_temp
  85.                             IF sc < s OR n < 0 THEN n = k: s = sc
  86.                         END IF
  87.                     END IF
  88.                 NEXT k
  89.                 IF n < 0 THEN
  90.                     PSET (j, scrh - i), _RGB32(128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 200 + 55 * (dy * dy / dd))
  91.                     EXIT DO
  92.                 ELSE
  93.                     dx = dx * s: dy = dy * s: dz = dz * s: dd = dd * s * s
  94.                     x = x + dx: y = y + dy: z = z + dz
  95.                     IF n <> 0 THEN
  96.                         nx = x - c(n, 1): ny = y - c(n, 2): nz = z - c(n, 3)
  97.                         nn = nx * nx + ny * ny + nz * nz
  98.                         l = 2 * (dx * nx + dy * ny + dz * nz) / nn
  99.                         dx = dx - nx * l: dy = dy - ny * l: dz = dz - nz * l
  100.                     ELSE
  101.                         FOR k = 1 TO spheres
  102.                             u = c(k, 1) - x
  103.                             v = c(k, 3) - z
  104.                             IF u * u + v * v <= q(k) THEN ba = 1: EXIT FOR
  105.                         NEXT k
  106.  
  107.                         x2 = x - me(0): z2 = z - me(2): rotate_2d x2, z2, -me(3): x2 = x2 + me(0): z2 = z2 + me(2) 'field rotating
  108.  
  109.                         IF (x2 - INT(x2) > .5) = (z2 - INT(z2) > .5) THEN 'x,y pepita size
  110.                             PSET (j, scrh - i), cl(ba)
  111.                         ELSE
  112.                             PSET (j, scrh - i), cl(ba + 1)
  113.                         END IF
  114.                         EXIT DO
  115.                     END IF
  116.                 END IF
  117.             LOOP
  118.         NEXT j
  119.     NEXT i
  120.     _DISPLAY: CLS
  123.  
  125.  
  126. DATA -0.3,-0.8,3,0.6
  127. DATA 0.9,-1.4,3.5,0.35
  128.  
  129. DATA 0.7,-0.45,2.5,0.4
  130. DATA -0.5,-0.3,1.5,0.25
  131. DATA 1.0,-0.2,1.5,0.2
  132. DATA -0.1,-0.2,1.25,0.2
  133.  
  134.  
  135. SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
  136.  
  137.  

41
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 04:52:40 pm »
so you think that ? :)

Code: QB64: [Select]
  1. _TITLE "RayTrace" 'b+ trans from JB to QB64 2022-02-26
  2. scrw = 400
  4.  
  5.  
  6. SCREEN _NEWIMAGE(scrw, scrh, 32)
  8. READ spheres
  9. DIM c(spheres, 9), r(spheres), q(spheres), cl(4) AS _UNSIGNED LONG
  10. w = scrw / 2
  11. h = scrh / 4
  12. s = 0
  13. cl(1) = _RGB32(120, 65, 45) ' shaddow
  14. cl(2) = _RGB32(0, 0, 100)
  15. cl(3) = _RGB32(255, 255, 0)
  16. cl(4) = _RGB32(0, 0, 200)
  18. FOR k = 1 TO spheres
  19.     READ a, b, c, d
  20.     c(k, 1) = a
  21.     c(k, 2) = -(d + .3 + 2 * RND(1))
  22.     c(k, 3) = c
  23.     c(k, 4) = .1
  24.     r = d
  25.     r(k) = r
  26.     q(k) = r * r
  28.  
  29. start_x = 0.3: start_y = -0.2: start_z = -3: start_x = c(1, 1)
  30. dz_temp = (scrh / 480) * 600
  31.  
  33.     'bouncing
  34.     FOR k = 1 TO spheres
  35.         c(k, 4) = c(k, 4) + .01
  36.         ck = c(k, 2) + c(k, 4)
  37.         IF -ck < r(k) THEN c(k, 4) = -.2: ck = -r(k)
  38.         c(k, 2) = ck
  39.     NEXT k
  40.  
  41.     start_x = start_x + (_KEYDOWN(ASC("a")) - _KEYDOWN(ASC("d"))) * .1
  42.     start_z = start_z + (_KEYDOWN(ASC("s")) - _KEYDOWN(ASC("w"))) * .1
  43.     start_y = start_y + (_KEYDOWN(ASC("+")) - _KEYDOWN(ASC("-"))) * .02
  44.  
  45.  
  46.  
  47.  
  48.     FOR i = 1 TO scrh STEP 1
  49.         FOR j = 0 TO scrw - 1
  50.             x = start_x: y = start_y: z = start_z: ba = 3
  51.             dx = j - w: dy = h - i: dz = dz_temp
  52.             dd = dx * dx + dy * dy + dz * dz
  53.             DO
  54.                 n = (y >= 0 OR dy <= 0) '* -1   <<< Makes $1000 for knowing where to tap the hammer
  55.                 IF n = 0 THEN s = (y / dy) * -1
  56.                 dd_temp = 1 / SQR(dd)
  57.                 FOR k = 1 TO spheres
  58.                     px = c(k, 1) - x: py = c(k, 2) - y: pz = c(k, 3) - z
  59.                     pp = px * px + py * py + pz * pz
  60.                     sc = px * dx + py * dy + pz * dz
  61.                     IF sc > 0 THEN
  62.                         bb = sc * sc / dd
  63.                         aa = q(k) - pp + bb
  64.                         IF aa > 0 THEN
  65.                             sc = (SQR(bb) - SQR(aa)) * dd_temp
  66.                             IF sc < s OR n < 0 THEN n = k: s = sc
  67.                         END IF
  68.                     END IF
  69.                 NEXT k
  70.                 IF n < 0 THEN
  71.                     PSET (j, scrh - i), _RGB32(128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 200 + 55 * (dy * dy / dd))
  72.                     EXIT DO
  73.                 ELSE
  74.                     dx = dx * s: dy = dy * s: dz = dz * s: dd = dd * s * s
  75.                     x = x + dx: y = y + dy: z = z + dz
  76.                     IF n <> 0 THEN
  77.                         nx = x - c(n, 1): ny = y - c(n, 2): nz = z - c(n, 3)
  78.                         nn = nx * nx + ny * ny + nz * nz
  79.                         l = 2 * (dx * nx + dy * ny + dz * nz) / nn
  80.                         dx = dx - nx * l: dy = dy - ny * l: dz = dz - nz * l
  81.                     ELSE
  82.                         FOR k = 1 TO spheres
  83.                             u = c(k, 1) - x
  84.                             v = c(k, 3) - z
  85.                             IF u * u + v * v <= q(k) THEN ba = 1: EXIT FOR
  86.                         NEXT k
  87.                         IF (x - INT(x) > .5) = (z - INT(z) > .5) THEN 'x,y pepita size
  88.                             PSET (j, scrh - i), cl(ba)
  89.                         ELSE
  90.                             PSET (j, scrh - i), cl(ba + 1)
  91.                         END IF
  92.                         EXIT DO
  93.                     END IF
  94.                 END IF
  95.             LOOP
  96.         NEXT j
  97.     NEXT i
  98.     _DISPLAY: CLS
  101.  
  103.  
  104. DATA -0.3,-0.8,3,0.6
  105. DATA 0.9,-1.4,3.5,0.35
  106.  
  107. DATA 0.7,-0.45,2.5,0.4
  108. DATA -0.5,-0.3,1.5,0.25
  109. DATA 1.0,-0.2,1.5,0.2
  110. DATA -0.1,-0.2,1.25,0.2
  111.  

42
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 03:28:47 pm »
I added. WASD can be used to move forward, backward, left, right, and "-" and "+" keys are used for height.

One sphere circles around the other.
This makes the animation easy to understand.
I still don't understand how it works.
Congratulations to the creator!

Code: QB64: [Select]
  1. _TITLE "RayTrace" 'b+ trans from JB to QB64 2022-02-26
  2. scrw = 400
  4.  
  5.  
  6. SCREEN _NEWIMAGE(scrw, scrh, 32)
  8. READ spheres
  9. DIM c(spheres, 3), r(spheres), q(spheres), cl(4) AS _UNSIGNED LONG
  10. w = scrw / 2
  11. h = scrh / 4
  12. s = 0
  13. cl(1) = _RGB32(120, 65, 45) ' shaddow
  14. cl(2) = _RGB32(0, 0, 100)
  15. cl(3) = _RGB32(255, 255, 0)
  16. cl(4) = _RGB32(0, 0, 200)
  17. FOR k = 1 TO spheres
  18.     READ a, b, c, d
  19.     c(k, 1) = a
  20.     c(k, 2) = b
  21.     c(k, 3) = c
  22.     r = d
  23.     r(k) = r
  24.     q(k) = r * r
  26.  
  27. start_x = 0.3: start_y = -0.2: start_z = -3: start_x = c(1, 1)
  28. dz_temp = (scrh / 480) * 600
  29.  
  31.  
  32.     ang2 = ang2 + .1: rad = 1
  33.     c(2, 1) = c(1, 1) + SIN(ang2) * rad
  34.     c(2, 3) = c(1, 3) + COS(ang2) * rad
  35.  
  36.  
  37.     start_x = start_x + (_KEYDOWN(ASC("a")) - _KEYDOWN(ASC("d"))) * .1
  38.     start_z = start_z + (_KEYDOWN(ASC("s")) - _KEYDOWN(ASC("w"))) * .1
  39.     start_y = start_y + (_KEYDOWN(ASC("+")) - _KEYDOWN(ASC("-"))) * .02
  40.  
  41.  
  42.  
  43.  
  44.     FOR i = 1 TO scrh STEP 1
  45.         FOR j = 0 TO scrw - 1
  46.             x = start_x: y = start_y: z = start_z: ba = 3
  47.             dx = j - w: dy = h - i: dz = dz_temp
  48.             dd = dx * dx + dy * dy + dz * dz
  49.             DO
  50.                 n = (y >= 0 OR dy <= 0) '* -1   <<< Makes $1000 for knowing where to tap the hammer
  51.                 IF n = 0 THEN s = (y / dy) * -1
  52.                 dd_temp = 1 / SQR(dd)
  53.                 FOR k = 1 TO spheres
  54.                     px = c(k, 1) - x: py = c(k, 2) - y: pz = c(k, 3) - z
  55.                     pp = px * px + py * py + pz * pz
  56.                     sc = px * dx + py * dy + pz * dz
  57.                     IF sc > 0 THEN
  58.                         bb = sc * sc / dd
  59.                         aa = q(k) - pp + bb
  60.                         IF aa > 0 THEN
  61.                             sc = (SQR(bb) - SQR(aa)) * dd_temp
  62.                             IF sc < s OR n < 0 THEN n = k: s = sc
  63.                         END IF
  64.                     END IF
  65.                 NEXT k
  66.                 IF n < 0 THEN
  67.                     PSET (j, scrh - i), _RGB32(128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 128 * (scrh - i) / scrh + 128 * (dy * dy / dd), 200 + 55 * (dy * dy / dd))
  68.                     EXIT DO
  69.                 ELSE
  70.                     dx = dx * s: dy = dy * s: dz = dz * s: dd = dd * s * s
  71.                     x = x + dx: y = y + dy: z = z + dz
  72.                     IF n <> 0 THEN
  73.                         nx = x - c(n, 1): ny = y - c(n, 2): nz = z - c(n, 3)
  74.                         nn = nx * nx + ny * ny + nz * nz
  75.                         l = 2 * (dx * nx + dy * ny + dz * nz) / nn
  76.                         dx = dx - nx * l: dy = dy - ny * l: dz = dz - nz * l
  77.                     ELSE
  78.                         FOR k = 1 TO spheres
  79.                             u = c(k, 1) - x
  80.                             v = c(k, 3) - z
  81.                             IF u * u + v * v <= q(k) THEN ba = 1: EXIT FOR
  82.                         NEXT k
  83.                         IF (x - INT(x) > .5) = (z - INT(z) > .5) THEN 'x,y pepita size
  84.                             PSET (j, scrh - i), cl(ba)
  85.                         ELSE
  86.                             PSET (j, scrh - i), cl(ba + 1)
  87.                         END IF
  88.                         EXIT DO
  89.                     END IF
  90.                 END IF
  91.             LOOP
  92.         NEXT j
  93.     NEXT i
  94.     _DISPLAY: CLS
  97.  
  99.  
  100. DATA -0.3,-0.8,3,0.6
  101. DATA 0.9,-1.4,3.5,0.35
  102.  
  103. DATA 0.7,-0.45,2.5,0.4
  104. DATA -0.5,-0.3,1.5,0.15
  105. DATA 1.0,-0.2,1.5,0.1
  106. DATA -0.1,-0.2,1.25,0.2
  107.  

43
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 02:48:16 pm »
It would be interesting if you could speed up and create a simple animation!

44
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 02:46:43 pm »
This is huge! I don’t understand how it works, but it’s unbelievable that there are a few lines throughout. Fantastic! Congratulations !!!!

45
Programs / Re: Mover Bricks 2D and 3D
« on: February 22, 2022, 02:41:50 pm »
Thanks for trying it!

Thanks STxAxTIC and Dav, good praise!

Dbox. That's interesting. Extremely I didn't even succeed. I deliberately made it hard for no one to succeed!

Johnno56 "Vulcan Science Academy". What's that  ? :)

Pages: 1 2 [3] 4 5 ... 22