Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on January 16, 2021, 10:37:37 am

Title: Labyrinth Tiles
Post by: bplus on January 16, 2021, 10:37:37 am
Here is something I found interesting Thursday night, Labyrinth Tiles:
Code: QB64: [Select]
  1. _TITLE "Labyrinth Tile, spacebar for random tiling escape for Tile Design" 'b+ 2021-01-15
  2.  
  3. CONST Xmax = 700, Ymax = 700
  4. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  5. _DELAY .25
  7.  
  9.  
  10. makeTileImageLeft
  11. 'TileLeft 100, 100
  12. 'TileRight 0, 100
  13.  
  14. makeTileImageUp
  15. 'TileUp 100, 0
  16. 'TileDown 100, 99
  17. 'TileDown 100, 199
  18.  
  20.     CLS
  21.     FOR y = 0 TO Ymax STEP 100
  22.         FOR x = 0 TO Xmax STEP 100
  23.             r = RND
  24.             IF r < .25 THEN
  25.                 TileLeft x, y
  26.             ELSEIF r < .5 THEN
  27.                 TileDown x, y
  28.             ELSEIF r < .75 THEN
  29.                 TileRight x, y
  30.             ELSE
  31.                 TileUp x, y
  32.             END IF
  33.         NEXT
  34.     NEXT
  35.     _DISPLAY
  36.     SLEEP
  38.  
  39. ' can we make some designs?
  40. _TITLE "Labyrinth Tile, a Tile Design, Spacebar to Click your own Design"
  42. FOR y = 0 TO 7
  43.     FOR x = 0 TO 7
  44.         IF y MOD 4 = 0 OR y MOD 4 = 2 THEN
  45.             IF x MOD 4 = 0 OR x MOD 4 = 2 THEN
  46.                 TileLeft x * 100, y * 100
  47.             ELSEIF x MOD 4 = 1 OR x MOD 4 = 3 THEN
  48.                 TileRight x * 100, y * 100
  49.             END IF
  50.         ELSEIF y MOD 4 = 1 THEN
  51.             IF x MOD 4 = 0 THEN
  52.                 TileDown x * 100, y * 100
  53.             ELSEIF x MOD 4 = 2 THEN
  54.                 TileUp x * 100, y * 100
  55.             ELSEIF x MOD 4 = 1 THEN
  56.                 TileDown x * 100, y * 100
  57.             ELSEIF x MOD 4 = 3 THEN
  58.                 TileUp x * 100, y * 100
  59.             END IF
  60.         ELSEIF y MOD 4 = 3 THEN
  61.             IF x MOD 4 = 0 THEN
  62.                 TileUp x * 100, y * 100
  63.             ELSEIF x MOD 4 = 2 THEN
  64.                 TileDown x * 100, y * 100
  65.             ELSEIF x MOD 4 = 1 THEN
  66.                 TileUp x * 100, y * 100
  67.             ELSEIF x MOD 4 = 3 THEN
  68.                 TileDown x * 100, y * 100
  69.             END IF
  70.         END IF
  71.     NEXT
  75.  
  76.  
  77. _TITLE "Labyrinth Tile, Click tile to turn it, escape to quit..."
  79. REDIM t(7, 7) AS LONG
  80. FOR y = 0 TO 7
  81.     FOR x = 0 TO 7
  82.         t(x, y) = INT(RND * 4)
  83.     NEXT
  86.     CLS
  87.     FOR y = 0 TO 7
  88.         FOR x = 0 TO 7
  89.             SELECT CASE t(x, y)
  90.                 CASE 0: TileRight x * 100, y * 100
  91.                 CASE 1: TileDown x * 100, y * 100
  92.                 CASE 2: TileLeft x * 100, y * 100
  93.                 CASE 3: TileUp x * 100, y * 100
  94.             END SELECT
  95.         NEXT
  96.     NEXT
  98.     mb = _MOUSEBUTTON(1): mx = INT(_MOUSEX / 100): my = INT(_MOUSEY / 100)
  99.     LINE (mx * 100, my * 100)-STEP(100, 100), , B
  100.     IF mb THEN
  101.         IF mx >= 0 AND mx <= 7 AND my >= 0 AND my <= 7 THEN
  102.             t(mx, my) = (t(mx, my) + 1) MOD 4
  103.             PRINT mx, my
  104.             _DELAY .25
  105.         END IF
  106.     END IF
  107.     _DISPLAY
  108.     _LIMIT 100
  110.  
  111.  
  112. SUB TileLeft (x, y)
  113.     _PUTIMAGE (x, y), TL, 0
  115. SUB TileRight (x, y)
  116.     _PUTIMAGE (x, y), TL, 0, (100, 0)-(0, 100)
  118. SUB TileUp (x, y)
  119.     _PUTIMAGE (x, y), TU, 0
  121. SUB TileDown (x, y)
  122.     _PUTIMAGE (x, y), TU, 0, (0, 100)-(100, 0)
  124.  
  125. SUB makeTileImageLeft ()
  126.     s2 = 50 * SQR(2) + .51
  127.     TL = _NEWIMAGE(100, 100, 32)
  128.     _DEST TL
  129.     FOR x = 10 TO 130 STEP 20
  130.         x1 = x + s2 * COS(_PI(3 / 4))
  131.         y1 = s2 * SIN(_PI(3 / 4))
  132.         x2 = x + s2 * COS(_PI(5 / 4))
  133.         y2 = 100 + s2 * SIN(_PI(5 / 4))
  134.         LINE (x, 0)-(x1, y1)
  135.         LINE (x, 100)-(x2, y2)
  136.     NEXT
  137.     'LINE (0, 0)-STEP(99, 99), , B
  138.     _DEST 0
  140.  
  141. SUB makeTileImageUp ()
  142.     s2 = 50 * SQR(2) + .51
  143.     TU = _NEWIMAGE(100, 100, 32)
  144.     _DEST TU
  145.     FOR y = 10 TO 130 STEP 20
  146.         x1 = s2 * COS(_PI(7 / 4))
  147.         y1 = y + s2 * SIN(_PI(7 / 4))
  148.         x2 = 100 + s2 * COS(_PI(5 / 4))
  149.         y2 = y + s2 * SIN(_PI(5 / 4))
  150.         LINE (0, y)-(x1, y1)
  151.         LINE (100, y)-(x2, y2)
  152.     NEXT
  153.     'LINE (0, 0)-STEP(99, 99), , B
  154.     _DEST 0
  156.  
  157.  
  158.  

Here is design I clicked up today:
 


Couldn't figure out how to get rid of that one pesky pixel hole set. Maybe one last try with Rotozoom...
Title: Re: Labyrinth Tiles
Post by: Pete on January 16, 2021, 10:51:17 am
Is it available in oak or walnut? Reminds me of Parkay floor tiles.

Pete
Title: Re: Labyrinth Tiles
Post by: FellippeHeitor on January 16, 2021, 10:52:59 am
Neat! Kind of like:

Quote from: Commodore 64
10 PRINT CHR$(205.5+RND(1)); : GOTO 10

For the old Commodore.

 
Title: Re: Labyrinth Tiles
Post by: Pete on January 16, 2021, 11:11:13 am
Is that available in 64 and 128? Oh well, lucky for me, I was an Atari guy. We just had plain old black screens. You know... like SCREEN Zero. The way God intended it.

Pete

Title: Re: Labyrinth Tiles
Post by: bplus on January 16, 2021, 11:23:57 am
Quote from: Pete on January 16, 2021, 10:51:17 am
Is it available in oak or walnut? Reminds me of Parkay floor tiles.

Pete

Actually it was Old Moses Chess board that had me thinking about tiles. :)

I started thinking about mazes that might turn after a player passes so there is no going back.

Yeah @FellippeHeitor  I remember that! Alas, these tiles don't make very good mazes.

Too bad Rotozoom can not translate a straight line! it has the gaps between tiles more than filled:
Code: QB64: [Select]
  1. _TITLE "Labyrinth Tile, spacebar for random tiling escape for Tile Design" 'b+ 2021-01-15
  2.  
  3. CONST Xmax = 700, Ymax = 700
  4. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  5. _DELAY .25
  7.  
  9.  
  10. makeTileImageUp
  11.  
  13.     CLS
  14.     FOR y = 0 TO Ymax STEP 100
  15.         FOR x = 0 TO Xmax STEP 100
  16.             r = RND
  17.             IF r < .25 THEN
  18.                 TileLeft x, y
  19.             ELSEIF r < .5 THEN
  20.                 TileDown x, y
  21.             ELSEIF r < .75 THEN
  22.                 TileRight x, y
  23.             ELSE
  24.                 TileUp x, y
  25.             END IF
  26.         NEXT
  27.     NEXT
  28.     _DISPLAY
  29.     SLEEP
  31.  
  32. ' can we make some designs?
  33. _TITLE "Labyrinth Tile, a Tile Design, Spacebar to Click your own Design"
  35. FOR y = 0 TO 7
  36.     FOR x = 0 TO 7
  37.         IF y MOD 4 = 0 OR y MOD 4 = 2 THEN
  38.             IF x MOD 4 = 0 OR x MOD 4 = 2 THEN
  39.                 TileLeft x * 100, y * 100
  40.             ELSEIF x MOD 4 = 1 OR x MOD 4 = 3 THEN
  41.                 TileRight x * 100, y * 100
  42.             END IF
  43.         ELSEIF y MOD 4 = 1 THEN
  44.             IF x MOD 4 = 0 THEN
  45.                 TileDown x * 100, y * 100
  46.             ELSEIF x MOD 4 = 2 THEN
  47.                 TileUp x * 100, y * 100
  48.             ELSEIF x MOD 4 = 1 THEN
  49.                 TileDown x * 100, y * 100
  50.             ELSEIF x MOD 4 = 3 THEN
  51.                 TileUp x * 100, y * 100
  52.             END IF
  53.         ELSEIF y MOD 4 = 3 THEN
  54.             IF x MOD 4 = 0 THEN
  55.                 TileUp x * 100, y * 100
  56.             ELSEIF x MOD 4 = 2 THEN
  57.                 TileDown x * 100, y * 100
  58.             ELSEIF x MOD 4 = 1 THEN
  59.                 TileUp x * 100, y * 100
  60.             ELSEIF x MOD 4 = 3 THEN
  61.                 TileDown x * 100, y * 100
  62.             END IF
  63.         END IF
  64.     NEXT
  68.  
  69.  
  70. _TITLE "Labyrinth Tile, Click tile to turn it, escape to quit..."
  72. REDIM t(7, 7) AS LONG
  73. FOR y = 0 TO 7
  74.     FOR x = 0 TO 7
  75.         t(x, y) = INT(RND * 4)
  76.     NEXT
  79.     CLS
  80.     FOR y = 0 TO 7
  81.         FOR x = 0 TO 7
  82.             SELECT CASE t(x, y)
  83.                 CASE 0: TileRight x * 100, y * 100
  84.                 CASE 1: TileDown x * 100, y * 100
  85.                 CASE 2: TileLeft x * 100, y * 100
  86.                 CASE 3: TileUp x * 100, y * 100
  87.             END SELECT
  88.         NEXT
  89.     NEXT
  91.     mb = _MOUSEBUTTON(1): mx = INT(_MOUSEX / 100): my = INT(_MOUSEY / 100)
  92.     LINE (mx * 100, my * 100)-STEP(100, 100), , B
  93.     IF mb THEN
  94.         IF mx >= 0 AND mx <= 7 AND my >= 0 AND my <= 7 THEN
  95.             t(mx, my) = (t(mx, my) + 1) MOD 4
  96.             PRINT mx, my
  97.             _DELAY .25
  98.         END IF
  99.     END IF
  100.     _DISPLAY
  101.     _LIMIT 100
  103.  
  104.  
  105. SUB TileLeft (x, y)
  106.     RotoZoom x + 50, y + 50, TU, 1, 270
  108. SUB TileRight (x, y)
  109.     RotoZoom x + 50, y + 50, TU, 1, 90
  111. SUB TileUp (x, y)
  112.     RotoZoom x + 50, y + 50, TU, 1, 0
  114. SUB TileDown (x, y)
  115.     RotoZoom x + 50, y + 50, TU, 1, 180
  117.  
  118. SUB makeTileImageUp ()
  119.     s2 = 50 * SQR(2)
  120.     TU = _NEWIMAGE(100, 100, 32)
  121.     _DEST TU
  122.     FOR y = 10 TO 130 STEP 20
  123.         x1 = s2 * COS(_PI(7 / 4))
  124.         y1 = y + s2 * SIN(_PI(7 / 4))
  125.         x2 = 100 + s2 * COS(_PI(5 / 4))
  126.         y2 = y + s2 * SIN(_PI(5 / 4))
  127.         LINE (0, y)-(x1, y1)
  128.         LINE (99, y)-(x2, y2)
  129.     NEXT
  130.     'LINE (0, 0)-STEP(99, 99), , B
  131.     _DEST 0
  133.  
  134. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, degreesRotation AS SINGLE)
  135.     DIM px(3) AS SINGLE, py(3) AS SINGLE, W&, H&, sinr!, cosr!, i&, x2&, y2&
  136.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  137.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  138.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  139.     sinr! = SIN(-degreesRotation / 57.2957795131): cosr! = COS(-degreesRotation / 57.2957795131)
  140.     FOR i& = 0 TO 3
  141.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
  142.         px(i&) = x2&: py(i&) = y2&
  143.     NEXT
  144.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  145.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  147.  
  148.  
Title: Re: Labyrinth Tiles
Post by: Richard Frost on January 16, 2021, 02:49:47 pm
TILE: Totally Insane Line Excursions

Code: QB64: [Select]
  1. _TITLE "Truchet Tiling, SciAm Jul89 pg 111"
  2. DEFINT A-Z
  3. DIM a(1000)
  4. s = 18: xm = 800 / s: ym = 600 / s: z = (800 - ((xm - 2) * s)) / 2
  5. SCREEN _NEWIMAGE(800, 600, 12)
  7. FOR i = 0 TO 1 '             create tiles (just 2)
  8.     FOR j = 0 TO 1
  9.         FOR a = 0 TO 90
  10.             r! = _D2R(a + j * 180)
  11.             FOR q = -1 TO 1
  12.                 x = j * s + ((s \ 2) + q) * COS(r!)
  13.                 y = j * s + ((s \ 2) + q) * SIN(r!)
  14.                 IF i THEN y = s - y
  15.                 PSET (x, y), 1
  16.             NEXT q
  17.         NEXT a
  18.     NEXT j
  19.     GET (0, 0)-(s, s), a(i * 500)
  20.     CLS
  22.  
  23. DO: _LIMIT 2 '               display tiles
  24.     FOR i = 0 TO xm - 3
  25.         FOR j = 0 TO ym - 3
  26.             xs = i * s + z
  27.             ys = j * s + z
  28.             PUT (xs, ys), a(INT(RND * 2) * 500), PSET
  29.         NEXT j
  30.     NEXT i
  31.     LINE (z, z)-((xm - 2) * s + z, (ym - 2) * s + z), 1, B
  32.     _DISPLAY
Title: Re: Labyrinth Tiles
Post by: bplus on January 16, 2021, 03:57:38 pm
Yeah for 2 Tiler System!

Code: QB64: [Select]
  1. _TITLE "2 Tiler press any for next, esc to quit" 'b+ 2021-01-16
  2.  
  3. CONST Xmax = 700, Ymax = 700, s = 10, sd2 = 5
  4. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  5. _DELAY .25
  8.     CLS
  9.     FOR y = 0 TO Ymax STEP s
  10.         FOR x = 0 TO Xmax STEP s
  11.             IF RND < .5 THEN t1 x, y ELSE t2 x, y
  12.         NEXT
  13.     NEXT
  14.     FOR x = 1 TO 100
  15.         PAINT (RND * Xmax, RND * Ymax), _RGB32(RND * 255, RND * 255, RND * 254), &HFFFFFFFF
  16.         _LIMIT 30
  17.     NEXT
  18.     ' _DISPLAY
  19.     SLEEP
  21.  
  22. SUB t1 (x, y)
  23.     LINE (x + sd2, y)-(x, y + sd2)
  24.     LINE (x + s, y + sd2)-(x + sd2, y + s)
  26.  
  27. SUB t2 (x, y)
  28.     LINE (x + sd2, y)-(x + s, y + sd2)
  29.     LINE (x, y + sd2)-(x + sd2, y + s)
  31.  
  32.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Labyrinth Tiles
Post by: Richard Frost on January 16, 2021, 08:17:16 pm
What a gem - endless beauty from 26 lines of code, 25 since
the _DELAY should not be required.  I likes de foist one too.
Title: Re: Labyrinth Tiles
Post by: johannhowitzer on January 17, 2021, 07:51:33 am
Got inspired, so I pared this down to 16 lines, 15 if you don't care about the constants and just put their values in-line.  STEP is used to turn the two SUBs into three lines of code... r is set to 1 or -1, and then that's used to flip the result of the STEPs horizontally.  Thanks bplus!  That was really fun.

Code: QB64: [Select]
  1. const w = 700, s = 5
  2. screen _newimage(w, w, 32)
  4.    cls
  5.    for y = 0 to w step s * 2
  6.       for x = 0 to w step s * 2
  7.          r = ((int(rnd * 2)) * 2) - 1
  8.          line(x + s, y)-step(s * r, s)
  9.          line(x + s, y + (s * 2))-step(-s * r, -s)
  10.       next
  11.    next
  12.    for x = 1 to 100
  13.       paint(rnd * w, rnd * w), _rgb32(rnd * 255, rnd * 255, rnd * 254), &HFFFFFFFF
  14.    next
  15.    sleep
Title: Re: Labyrinth Tiles
Post by: bplus on January 17, 2021, 11:04:19 am
Thanks Richard Frost, I am delighted we enjoy simple things.

Nice @johannhowitzer, 2 tile Subs down to 2 lines!
Title: Re: Labyrinth Tiles
Post by: bplus on January 17, 2021, 07:11:36 pm
Take a walk amongst the tiles with keypad, diagonals burn bridges, up, down left right jumps corners and spacebar reverses all your neighbors! Just follow the yellow brick road!

Code: QB64: [Select]
  1. _TITLE "Walk amongst the 2 Tilers: USE KEYPAD  Diagonal keys 7,9,3,1 burns bridges, 8,6,2,4 jumps corners, spacebar reverses neighbors" 'b+ 2021-01-17
  3. CONST Xmax = 1000, Ymax = 700, S = 20, Sd2 = S \ 2, Xcells = Xmax \ S, Ycells = Ymax \ S
  4. SCREEN _NEWIMAGE(Xmax, Ymax, 32): _DELAY .25: _SCREENMOVE _MIDDLE
  5. REDIM TS(Xcells, Ycells) AS LONG
  6. FOR y = 0 TO Ycells
  7.     FOR x = 0 TO Xcells
  8.         TS(x, y) = INT(RND * 2)
  9.     NEXT
  11. bx = Xcells \ 2: by = Ycells \ 2
  13.     CLS
  14.     FOR y = 0 TO Ycells
  15.         FOR x = 0 TO Xcells
  16.             IF TS(x, y) THEN t1 x * S, y * S ELSE t2 x * S, y * S
  17.         NEXT
  18.     NEXT
  19.     drawBplusPath bx, by
  20.     numLock = _KEYDOWN(100300)
  21.     KH& = _KEYHIT
  22.  
  23.     ' go diagonally if the target block is same as current                    and burn bridges as you go!
  24.     IF KH& = 18176 OR (numLock AND (KH& = 55)) THEN 'up, left number 7
  25.         IF bx - 1 >= 0 AND by - 1 >= 0 THEN
  26.             IF TS(bx, by) = TS(bx - 1, by - 1) THEN
  27.                 TS(bx, by) = (TS(bx, by) + 1) MOD 2
  28.                 bx = bx - 1: by = by - 1
  29.             END IF
  30.         END IF
  31.     ELSEIF KH& = 18688 OR (numLock AND (KH& = 57)) THEN ' up, right   number 9
  32.         IF bx + 1 < Xcells AND by - 1 >= 0 THEN
  33.             IF TS(bx, by) = TS(bx + 1, by - 1) THEN
  34.                 TS(bx, by) = (TS(bx, by) + 1) MOD 2
  35.                 bx = bx + 1: by = by - 1
  36.             END IF
  37.         END IF
  38.     ELSEIF KH& = 20736 OR (numLock AND (KH& = 51)) THEN ' down right number 3
  39.         IF bx + 1 < Xcells AND by + 1 < Ycells THEN
  40.             IF TS(bx, by) = TS(bx + 1, by + 1) THEN
  41.                 TS(bx, by) = (TS(bx, by) + 1) MOD 2
  42.                 bx = bx + 1: by = by + 1
  43.             END IF
  44.         END IF
  45.     ELSEIF KH& = 20224 OR (numLock AND (KH& = 49)) THEN ' down left number 1
  46.         IF bx - 1 >= 0 AND by + 1 < Ycells THEN
  47.             IF TS(bx, by) = TS(bx - 1, by + 1) THEN
  48.                 TS(bx, by) = (TS(bx, by) + 1) MOD 2
  49.                 bx = bx - 1: by = by + 1
  50.             END IF
  51.         END IF
  52.  
  53.         '                          ' go up down left right for cornering
  54.     ELSEIF KH& = 18432 OR (numLock AND (KH& = 56)) THEN 'up
  55.         IF by - 1 >= 0 THEN
  56.             IF TS(bx, by) <> TS(bx, by - 1) THEN
  57.                 by = by - 1
  58.             END IF
  59.         END IF
  60.     ELSEIF KH& = 19712 OR (numLock AND (KH& = 54)) THEN 'right
  61.         IF bx + 1 < Xcells THEN
  62.             IF TS(bx, by) <> TS(bx + 1, by) THEN
  63.                 bx = bx + 1
  64.             END IF
  65.         END IF
  66.     ELSEIF KH& = 20480 OR (numLock AND (KH& = 50)) THEN 'down
  67.         IF by + 1 < Ycells THEN
  68.             IF TS(bx, by) <> TS(bx, by + 1) THEN
  69.                 by = by + 1
  70.             END IF
  71.         END IF
  72.  
  73.     ELSEIF KH& = 19200 OR (numLock AND (KH& = 52)) THEN 'left
  74.         IF bx - 1 >= 0 THEN
  75.             IF TS(bx, by) <> TS(bx - 1, by) THEN
  76.                 bx = bx - 1
  77.             END IF
  78.         END IF
  79.     ELSEIF KH& = 32 THEN 'space bar, reverse your neighbors!
  80.         FOR y = -1 TO 1
  81.             FOR x = -1 TO 1
  82.                 IF bx + x >= 0 AND bx + x < Xcells THEN
  83.                     IF by + y >= 0 AND by + y < Ycells THEN
  84.                         IF NOT (x = 0 AND y = 0) THEN
  85.                             TS(bx + x, by + y) = (TS(bx + x, by + y) + 1) MOD 2
  86.                         END IF
  87.                     END IF
  88.                 END IF
  89.             NEXT
  90.         NEXT
  91.     END IF
  92.     _DISPLAY
  93.     _LIMIT 30
  94.  
  96.  
  97. SUB t1 (x, y)
  98.     LINE (x + Sd2, y)-(x, y + Sd2), &HFF006600
  99.     LINE (x + S, y + Sd2)-(x + Sd2, y + S), &HFF006600
  100.     'LINE (x, y)-STEP(S, S), &HFFFFFFFF, B
  102.  
  103. SUB t2 (x, y)
  104.     LINE (x + Sd2, y)-(x + S, y + Sd2), &HFF006600
  105.     LINE (x, y + Sd2)-(x + Sd2, y + S), &HFF006600
  106.     'LINE (x, y)-STEP(S, S), &HFFFFFFFF, B
  108.  
  109. SUB drawBplusPath (x, y)
  110.     'CIRCLE (x * S + Sd2, y * S + Sd2), 2, &HFF006600
  111.     PAINT (x * S + Sd2, y * S + Sd2), &HFFFFFF00, &HFF006600
  112.     FOR r = 0 TO 6 STEP .25
  113.         CIRCLE (x * S + Sd2, y * S + Sd2), r, &HFF0000FF
  114.     NEXT
  115.     COLOR , &H00000000
  116.     _PRINTSTRING (x * S + Sd2 - 4, y * S + Sd2 - 7), "B"
  117.     COLOR , &HFF000000
  119.  
  120.  
  121.  

 






Title: Re: Labyrinth Tiles
Post by: johannhowitzer on January 18, 2021, 03:15:05 am
Quote from: bplus on January 17, 2021, 11:04:19 am
Thanks Richard Frost, I am delighted we enjoy simple things.

Nice @johannhowitzer, 2 tile Subs down to 2 lines!
[ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 19, 2021, 11:02:43 pm
A variation with 2 lines of code.

How it works I don't know

working on a horizontal code so objects can move around the grid with arrow keys

Code: QB64: [Select]
  6. s = 5
  7. w = 700
  8.  
  9. SCREEN _NEWIMAGE(w, w, 32)
  11.  
  13.  
  14.     CLS
  15.     IF INKEY$ = CHR$(27) THEN END
  16.     FOR y = 0 TO w STEP s * 2
  17.  
  18.         FOR x = 0 TO w STEP s * 2
  19.  
  20.             r = ((INT(RND * 2)) * 2) - 1 'returns  -1, 1
  21.  
  22.             LINE (x - s * r, y)-(x, y + s)
  23.             LINE (x + s * r, y)-(x, y - s)
  24.  
  25.         NEXT x
  26.  
  27.     NEXT y
  28.     SLEEP
  30.  
Title: Re: C Tiles
Post by: NOVARSEG on January 22, 2021, 10:34:09 pm
It is hard to explain how the code generates the labyrinth.

This code will show how the diagonal labyrinth is generated.

press space bar to see how it works.

It should be possible to generate a vertical/horizontal labyrinth in the same way. 

Code: QB64: [Select]
  7. s = 5
  8. w = 1024
  9. h = 768
  10.  
  11. SCREEN _NEWIMAGE(w, h, 32)
  13.  
  15.  
  16.     CLS
  17.     'IF INKEY$ = CHR$(27) THEN END
  18.     FOR y = 10 TO h STEP s * 2
  19.  
  20.         FOR x = 0 TO w STEP s * 2
  21.  
  22.             r = ((INT(RND * 2)) * 2) - 1 'returns  -1, 1
  23.  
  24.             LINE (x - s * r, y)-(x, y + s)
  25.             LINE (x + s * r, y)-(x, y - s)
  26.             DO
  27.                 I$ = INKEY$
  28.                 IF I$ = CHR$(27) THEN END
  29.                 IF I$ = CHR$(32) THEN EXIT DO
  30.             LOOP
  31.  
  32.         NEXT x
  33.  
  34.     NEXT y
  35.     SLEEP
  36.  
  38.  

Shows nice diagonal boxes if alternate 1, -1 are fed into the code

This gives an idea of how to generate a grid of horizontal / vertical boxes.

Code: QB64: [Select]
  7. s = 5
  8. w = 1024
  9. h = 768
  10. r = 1
  11. SCREEN _NEWIMAGE(w, h, 32)
  13.  
  15.  
  16.     CLS
  17.     'IF INKEY$ = CHR$(27) THEN END
  18.     FOR y = 10 TO h STEP s * 2
  19.  
  20.         FOR x = 0 TO w STEP s * 2
  21.  
  22.             'r = ((INT(RND * 2)) * 2) - 1 'returns  -1, 1
  23.  
  24.             IF r = 1 THEN r = -1: GOTO LL
  25.             IF r = -1 THEN r = 1: GOTO LL
  26.             ' r = 1
  27.  
  28.             LL:
  29.  
  30.             LINE (x - s * r, y)-(x, y + s)
  31.             LINE (x + s * r, y)-(x, y - s)
  32.  
  33.  
  34.             DO
  35.                 I$ = INKEY$
  36.                 IF I$ = CHR$(27) THEN END
  37.                 IF I$ = CHR$(32) THEN EXIT DO
  38.             LOOP
  39.  
  40.         NEXT x
  41.  
  42.     NEXT y
  43.     SLEEP
  44.  
  46.  

Title: Re: Labyrinth Tiles
Post by: bplus on January 23, 2021, 10:57:55 am
Quote
This gives an idea of how to generate a grid of horizontal / vertical boxes.

Here is another way to see how 2 simple lines on 2 different tiles can make the "maze" by drawing the tile outlines.
Code: QB64: [Select]
  1. CONST w = 700, s = 20
  2. SCREEN _NEWIMAGE(w, w, 32)
  3.  
  5. FOR y = 0 TO w STEP s * 2
  6.     FOR x = 0 TO w STEP s * 2
  7.         r = ((INT(RND * 2)) * 2) - 1
  8.         LINE (x + s, y)-STEP(s * r, s)
  9.         LINE (x + s, y + (s * 2))-STEP(-s * r, -s)
  10.         LINE (x, y)-STEP(2 * s, 2 * s), , B
  11.     NEXT
  13.  

I did this to figure out how to move inside the "maze" with "arrow keys" on number pad
https://www.qb64.org/forum/index.php?topic=3498.msg128347#msg128347
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 23, 2021, 11:19:52 pm
@bplus


Your square outlines show a pattern .   Was thinking on how to get the maze itself to be up, down, left, right  instead of diagonal. If the squares could be rotated by 45 degrees then the pattern could be applied and the result should be a 45 degree rotated maze. 

Your program shows  that 1, -1   encodes the diagonal components in the squares.

Thanks for the solution to the problem . I'm sure it is doable now

Title: Re: Labyrinth Tiles
Post by: bplus on January 24, 2021, 12:03:04 am
Quote from: NOVARSEG on January 23, 2021, 11:19:52 pm
@bplus


Your square outlines show a pattern .   Was thinking on how to get the maze itself to be up, down, left, right  instead of diagonal. If the squares could be rotated by 45 degrees then the pattern could be applied and the result should be a 45 degree rotated maze. 

Your program shows  that 1, -1   encodes the diagonal components in the squares.

Thanks for the solution to the problem . I'm sure it is doable now

I thought it was 0 and -1 but I am using Johann's code :)

Here is the maze turned 45 degrees with the help of some line drawing reinforcement and Rotozoom
Code: QB64: [Select]
  1. CONST sw = 700, s = 10
  2. SCREEN _NEWIMAGE(sw, sw, 32)
  3. _DELAY .25
  6. maze = _NEWIMAGE(sw, sw, 32)
  7. FOR y = 0 TO sw STEP s * 2
  8.     FOR x = 0 TO sw STEP s * 2
  9.         r = ((INT(RND * 2)) * 2) - 1
  10.         LINE (x + s, y)-STEP(s * r, s)
  11.         LINE (x + s + 1, y)-STEP(s * r, s)
  12.         LINE (x + s, y + 1)-STEP(s * r, s)
  13.  
  14.         LINE (x + s, y + (s * 2))-STEP(-s * r, -s)
  15.         LINE (x + s + 1, y + (s * 2))-STEP(-s * r, -s)
  16.         LINE (x + s, y + (s * 2) + 1)-STEP(-s * r, -s)
  17.         'LINE (x, y)-STEP(2 * s, 2 * s), , B
  18.     NEXT
  20. _PUTIMAGE , 0, maze
  22. RotoZoom sw / 2, sw / 2, maze, 1.5, 45
  24.  
  25. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, degreesRotation AS SINGLE)
  26.     DIM px(3) AS SINGLE, py(3) AS SINGLE, W&, H&, sinr!, cosr!, i&, x2&, y2&
  27.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  28.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  29.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  30.     sinr! = SIN(-degreesRotation / 57.2957795131): cosr! = COS(-degreesRotation / 57.2957795131)
  31.     FOR i& = 0 TO 3
  32.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
  33.         px(i&) = x2&: py(i&) = y2&
  34.     NEXT
  35.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  36.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  38.  
  39.  

 

Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 24, 2021, 12:26:54 am
@bplus

That looks good.
I'm working on something similar might take a couple days

ROTOZOOM  gotta check that out


Thanks
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 24, 2021, 09:47:24 pm
Here is labyrinth with horizontal / vertical layout.  Moving around the maze with arrow keys will be easier now.

I think the code can be condensed even more. 

Code: QB64: [Select]
  1. CONST w = 700, s = 5
  2. SCREEN _NEWIMAGE(w, w, 32)
  3.  
  5. FOR y = 0 TO w STEP s * 4
  6.  
  7.     FOR x = 0 TO w STEP s * 4
  8.  
  9.         r = ((INT(RND * 2)) * 2) - 1
  10.  
  11.         IF r = -1 THEN
  12.             LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  13.             LINE (x - s, y - s)-(x + s, y - s) 'top line
  14.         END IF
  15.         IF r = 1 THEN
  16.             LINE (x - s, y - s)-(x - s, y + s) 'left line
  17.             LINE (x + s, y - s)-(x + s, y + s) 'right line
  18.         END IF
  19.  
  20.         x = x + 10
  21.         y = y + 10
  22.  
  23.         r = ((INT(RND * 2)) * 2) - 1
  24.  
  25.         IF r = -1 THEN
  26.             LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  27.             LINE (x - s, y - s)-(x + s, y - s) 'top line
  28.         END IF
  29.         IF r = 1 THEN
  30.             LINE (x - s, y - s)-(x - s, y + s) 'left line
  31.             LINE (x + s, y - s)-(x + s, y + s) 'right line
  32.         END IF
  33.  
  34.         x = x - 10
  35.         y = y - 10
  36.  
  37.     NEXT
  38.  
  40.  
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 01:40:52 am
More features

Code: QB64: [Select]
  8. s = 5
  9. h = 768
  10. w = 1024
  11. SCREEN _NEWIMAGE(w, h, 32)
  13. t = .5
  16.  
  17.  
  18. PRINT "Press z or x to change maze"
  19.  
  21. PRINT "ESC to exit"
  23.     i$ = INKEY$
  24.     IF i$ = CHR$(27) THEN END
  25.     IF i$ <> "" THEN EXIT DO
  27.  
  29.  
  30.     CLS
  31.  
  32.     FOR y = 0 TO h STEP s * 4
  33.  
  34.         FOR x = 0 TO w STEP s * 4
  35.  
  36.             r = RND
  37.  
  38.             IF r <= t THEN
  39.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  40.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  41.             END IF
  42.             IF r > t THEN
  43.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  44.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  45.             END IF
  46.  
  47.             x = x + 10
  48.             y = y + 10
  49.  
  50.             r = RND
  51.  
  52.             IF r <= t THEN
  53.  
  54.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  55.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  56.             END IF
  57.             IF r > t THEN
  58.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  59.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  60.             END IF
  61.  
  62.             x = x - 10
  63.             y = y - 10
  64.  
  65.         NEXT
  66.  
  67.     NEXT
  68.     DO
  69.         i$ = INKEY$
  70.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  71.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  72.         IF i$ = CHR$(27) THEN END
  73.     LOOP
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 01:59:01 am
Yet more features

Code: QB64: [Select]
  8. s = 10
  9. h = 768
  10. w = 1024
  11. SCREEN _NEWIMAGE(w, h, 32)
  13. t = .5
  16.  
  17.  
  18. PRINT "Press z or x to alter row / column appearance"
  20. PRINT "Press c or v to adjust grid size"
  22. PRINT "ESC to exit"
  24.     i$ = INKEY$
  25.     IF i$ = CHR$(27) THEN END
  26.     IF i$ <> "" THEN EXIT DO
  28.  
  30.  
  31.     CLS
  32.  
  33.     FOR y = 0 TO h STEP s * 4
  34.  
  35.         FOR x = 0 TO w STEP s * 4
  36.  
  37.             r = RND
  38.  
  39.             IF r <= t THEN
  40.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  41.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  42.             END IF
  43.             IF r > t THEN
  44.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  45.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  46.             END IF
  47.  
  48.             x = x + s * 2
  49.             y = y + s * 2
  50.  
  51.             r = RND
  52.  
  53.             IF r <= t THEN
  54.  
  55.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  56.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  57.             END IF
  58.             IF r > t THEN
  59.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  60.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  61.             END IF
  62.  
  63.             x = x - s * 2
  64.             y = y - s * 2
  65.  
  66.         NEXT
  67.  
  68.     NEXT
  69.     DO
  70.         i$ = INKEY$
  71.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  72.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  73.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  74.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  75.         IF i$ = CHR$(27) THEN END
  76.         IF i$ = CHR$(32) THEN EXIT DO
  77.     LOOP
Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 02:56:17 am
@NOVARSEG

You figured it out! I spent a good part of the day trying to do vertical and horizontal with just drawing. Nice work!

Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 03:57:57 am
@bplus

You already solved it .   I drew a grid on a piece of paper and figured out the measurements that way.   

It took a few hours. It required making  a checker board pattern, which was tricky.
I can post some details of that later.

Thanks to everyone on this thread.



Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 12:19:38 pm
Quote
You already solved it .

Not really, I didn't figure out how to draw vertical and horizontal walls without Rotozoom.

I think that is needed to use arrow keys to walk around the tiles because you need to save each cell's random choice.

Eh, if push comes to shove you can arrow around tiles using POINT for collision detection with walls. I don't like collision detection by that method and would prefer going by maze cells content but I am beginning to suspect each pair of walls is actually walls for 3 cells.
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 07:00:42 pm
Moving around the tiles like a pac man game?



Here is some code that shows the actual x, y positions (small cross hairs) on which everything is measured from.

Maybe that will help the navigation problem.

Code: QB64: [Select]
  8. s = 10
  9. h = 768
  10. w = 1024
  11. SCREEN _NEWIMAGE(w, h, 32)
  13. t = .5
  16.  
  17.  
  18. PRINT "Press z or x to alter row / column appearance"
  20. PRINT "Press c or v to adjust grid size"
  22.  
  23. PRINT "ESC to exit"
  25.     i$ = INKEY$
  26.     IF i$ = CHR$(27) THEN END
  27.     IF i$ <> "" THEN EXIT DO
  29.  
  31.  
  32.     CLS
  33.  
  34.     FOR y = 0 TO h STEP s * 4
  35.  
  36.         FOR x = 0 TO w STEP s * 4
  37.  
  38.             r = RND
  39.  
  40.             IF r <= t THEN
  41.                 LINE (x - 1, y)-(x + 1, y)
  42.                 LINE (x, y - 1)-(x, y + 1)
  43.  
  44.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  45.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  46.             END IF
  47.             IF r > t THEN
  48.                 LINE (x - 1, y)-(x + 1, y)
  49.                 LINE (x, y - 1)-(x, y + 1)
  50.  
  51.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  52.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  53.             END IF
  54.  
  55.             x = x + s * 2
  56.             y = y + s * 2
  57.  
  58.             r = RND
  59.  
  60.             IF r <= t THEN
  61.                 LINE (x - 1, y)-(x + 1, y)
  62.                 LINE (x, y - 1)-(x, y + 1)
  63.  
  64.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  65.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  66.             END IF
  67.             IF r > t THEN
  68.                 LINE (x - 1, y)-(x + 1, y)
  69.                 LINE (x, y - 1)-(x, y + 1)
  70.  
  71.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  72.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  73.             END IF
  74.  
  75.             x = x - s * 2
  76.             y = y - s * 2
  77.  
  78.         NEXT
  79.  
  80.     NEXT
  81.     DO
  82.         IF _MOUSEINPUT = -1 THEN
  83.             IF _MOUSEBUTTON(1) = -1 THEN PAINT (_MOUSEX, _MOUSEY), _RGB(255, 0, 0), &HFFFFFFFF
  84.         END IF
  85.  
  86.  
  87.         i$ = INKEY$
  88.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  89.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  90.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  91.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  92.         IF i$ = CHR$(27) THEN END
  93.         IF i$ = CHR$(32) THEN EXIT DO
  94.     LOOP
  96.  
Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 07:18:34 pm
@NOVARSEG 

Yeah moving around inside the maze, with only arrows keys, unless walled in. The we apply special elixir to reverse a wall pair from over under to left and right or vice versa ;-))

Yeah marking cell centers might help :)
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 07:32:03 pm
@bplus


The x, y positions are always in mid travel.   Detect a wall and reverse a wall pair - yep.  That will allow travel through where the wall once was.



Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 07:51:13 pm
@NOVARSEG I love the mouse painter so much I gave the right button another color!

I moved your instructions to title bar and made them more clear (IMHO) and colored the 2 different cell centers yellow and blue, that was what I couldn't figure out yesterday, nice and clear now... oh pretty colors! ;-))

Code: QB64: [Select]
  1. ' b+ mod NOVARSEG code for 2 tiler 2021-01-25
  2. s = 10
  3. h = 700
  4. w = 1024
  5. SCREEN _NEWIMAGE(w, h, 32)
  6. _DELAY .25
  8. '_FULLSCREEN
  9. t = .5
  10.  
  11. _TITLE "Press z increase over/under,  x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red, right blue"
  12.  
  14.  
  15.     CLS
  16.  
  17.     FOR y = 0 TO h STEP s * 4
  18.  
  19.         FOR x = 0 TO w STEP s * 4
  20.  
  21.             r = RND
  22.             CIRCLE (x, y), 2, &HFFFFFF00
  23.             IF r <= t THEN
  24.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  25.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  26.             END IF
  27.             IF r > t THEN
  28.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  29.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  30.             END IF
  31.  
  32.             x = x + s * 2
  33.             y = y + s * 2
  34.             CIRCLE (x, y), 2, &HFF0000FF
  35.             r = RND
  36.  
  37.             IF r <= t THEN
  38.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  39.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  40.             END IF
  41.             IF r > t THEN
  42.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  43.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  44.             END IF
  45.  
  46.             x = x - s * 2
  47.             y = y - s * 2
  48.  
  49.         NEXT
  50.  
  51.     NEXT
  52.     DO
  53.         IF _MOUSEINPUT = -1 THEN
  54.             IF _MOUSEBUTTON(1) = -1 THEN PAINT (_MOUSEX, _MOUSEY), _RGB(255, 0, 0), &HFFFFFFFF
  55.             IF _MOUSEBUTTON(2) = -1 THEN PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 255), &HFFFFFFFF
  56.         END IF
  57.  
  58.  
  59.         i$ = INKEY$
  60.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  61.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  62.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  63.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  64.         IF i$ = CHR$(27) THEN END
  65.         IF i$ = CHR$(32) THEN EXIT DO
  66.     LOOP
  68.  
  69.  
  70.  

Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 07:54:09 pm
Now all we need is an idea to make a game with the different colored mazes, cool!
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 25, 2021, 09:46:17 pm
@bplus
hey my nice DIMs are gone waaaa

I like the small circles to mark the x, y positions. can't see blue ones though so they are all the same now
maybe there was a reason for the way it was?

The small circles are only for testing of navigation etc  but they do look nice.

mouse clicks toggle the color from black to color to black etc

Im trying some crude navigation code.  How do you erase a previous CIRCLE from the screen?

As far as "cell centers" go, there are cell centers generated directly from the FOR NEXT  outputs.  The other centers are  "offset" (both in x and y) from the FOR NEXT outputs.  These "offsets"  were the tricky part.  It look like you had the "offset" centers in blue.  That could be useful, will see.

Code: QB64: [Select]
  1. ' b+ mod NOVARSEG code for 2 tiler 2021-01-25
  2. s = 10
  3. h = 700
  4. w = 1024
  5. SCREEN _NEWIMAGE(w, h, 32)
  6. _DELAY .25
  8. '_FULLSCREEN
  9. t = .5
  10.  
  11. _TITLE "Press z increase over/under,  x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red, right blue"
  12.  
  14.  
  15.     CLS
  16.  
  17.     FOR y = 0 TO h STEP s * 4
  18.  
  19.         FOR x = 0 TO w STEP s * 4
  20.  
  21.             r = RND
  22.             CIRCLE (x, y), 2, &HFFFFFF00
  23.             IF r <= t THEN
  24.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  25.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  26.             END IF
  27.             IF r > t THEN
  28.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  29.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  30.             END IF
  31.  
  32.             x = x + s * 2
  33.             y = y + s * 2
  34.             CIRCLE (x, y), 2, &HFFFFFF00 ' &HFF0000FF
  35.             r = RND
  36.  
  37.             IF r <= t THEN
  38.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  39.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  40.             END IF
  41.             IF r > t THEN
  42.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  43.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  44.             END IF
  45.  
  46.             x = x - s * 2
  47.             y = y - s * 2
  48.  
  49.         NEXT
  50.  
  51.     NEXT
  52.     DO
  53.         IF _MOUSEINPUT = -1 THEN
  54.  
  55.  
  56.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  57.                 PAINT (_MOUSEX, _MOUSEY), _RGB(255, 0, 0), &HFFFFFFFF
  58.                 GOTO L1
  59.             END IF
  60.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(255, 0, 0) THEN
  61.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  62.             END IF
  63.  
  64.             L1:
  65.  
  66.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  67.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 255), &HFFFFFFFF
  68.                 GOTO L2
  69.             END IF
  70.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 255) THEN
  71.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  72.             END IF
  73.  
  74.             L2:
  75.  
  76.  
  77.         END IF
  78.  
  79.  
  80.         i$ = INKEY$
  81.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  82.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  83.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  84.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  85.         IF i$ = CHR$(27) THEN END
  86.         IF i$ = CHR$(32) THEN EXIT DO
  87.     LOOP
  89.  


Title: Re: Labyrinth Tiles
Post by: bplus on January 25, 2021, 10:50:27 pm
Quote from: NOVARSEG on January 25, 2021, 09:46:17 pm
@bplus
hey my nice DIMs are gone waaaa

I like the small circles to mark the x, y positions. can't see blue ones though so they are all the same now
maybe there was a reason for the way it was?

The small circles are only for testing of navigation etc  but they do look nice.

mouse clicks toggle the color from black to color to black etc

Im trying some crude navigation code.  How do you erase a previous CIRCLE from the screen?

As far as "cell centers" go, there are cell centers generated directly from the FOR NEXT  outputs.  The other centers are  "offset" (both in x and y) from the FOR NEXT outputs.  These "offsets"  were the tricky part.  It look like you had the "offset" centers in blue.  That could be useful, will see.

Code: QB64: [Select]
  1. ' b+ mod NOVARSEG code for 2 tiler 2021-01-25
  2. s = 10
  3. h = 700
  4. w = 1024
  5. SCREEN _NEWIMAGE(w, h, 32)
  6. _DELAY .25
  8. '_FULLSCREEN
  9. t = .5
  10.  
  11. _TITLE "Press z increase over/under,  x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red, right blue"
  12.  
  14.  
  15.     CLS
  16.  
  17.     FOR y = 0 TO h STEP s * 4
  18.  
  19.         FOR x = 0 TO w STEP s * 4
  20.  
  21.             r = RND
  22.             CIRCLE (x, y), 2, &HFFFFFF00
  23.             IF r <= t THEN
  24.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  25.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  26.             END IF
  27.             IF r > t THEN
  28.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  29.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  30.             END IF
  31.  
  32.             x = x + s * 2
  33.             y = y + s * 2
  34.             CIRCLE (x, y), 2, &HFFFFFF00 ' &HFF0000FF
  35.             r = RND
  36.  
  37.             IF r <= t THEN
  38.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  39.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  40.             END IF
  41.             IF r > t THEN
  42.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  43.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  44.             END IF
  45.  
  46.             x = x - s * 2
  47.             y = y - s * 2
  48.  
  49.         NEXT
  50.  
  51.     NEXT
  52.     DO
  53.         IF _MOUSEINPUT = -1 THEN
  54.  
  55.  
  56.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  57.                 PAINT (_MOUSEX, _MOUSEY), _RGB(255, 0, 0), &HFFFFFFFF
  58.                 GOTO L1
  59.             END IF
  60.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(255, 0, 0) THEN
  61.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  62.             END IF
  63.  
  64.             L1:
  65.  
  66.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  67.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 255), &HFFFFFFFF
  68.                 GOTO L2
  69.             END IF
  70.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 255) THEN
  71.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  72.             END IF
  73.  
  74.             L2:
  75.  
  76.  
  77.         END IF
  78.  
  79.  
  80.         i$ = INKEY$
  81.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  82.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  83.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  84.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  85.         IF i$ = CHR$(27) THEN END
  86.         IF i$ = CHR$(32) THEN EXIT DO
  87.     LOOP
  89.  





Quote
I like the small circles to mark the x, y positions. can't see blue ones though so they are all the same now
maybe there was a reason for the way it was?

Yes, it was to distinguish the first set of x, y positions and the second set.

Quote
Im trying some crude navigation code.  How do you erase a previous CIRCLE from the screen?
After I make the map, I'd save the image, then in main loop, I _PUTIMAGE that image back in as background and then draw in the present location of the hero position then I poll for arrow keypresses and update hero position if he doesn't have to run through a wall, and loop... background image, hero drawn, update next position, loop...

Quote
The other centers are  "offset" (both in x and y) from the FOR NEXT outputs.  These "offsets"  were the tricky part.  It look like you had the "offset" centers in blue.  That could be useful, will see.

And we are back to first comment :) that's why one set blue and the other yellow.
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 26, 2021, 12:48:04 am
@bplus

working on navigation.


With the arrow keys,  i'm trying to navigate from center to any other center.  Any turn must be made from yet another center which is in between the centers shown on the screen.  The moving object is another circle or similar which is somewhat larger (maybe a solid) .  The object moves in S * 2 steps left, right, up or down.

To make it more complex the moving object must stay centered for any cell size.

The action of the moving object is s * 2 pixels at a time for any arrow key pressed.  For a game, a smoothly moving object is wanted, but I have not yet figure that out.

Title: Re: Labyrinth Tiles
Post by: bplus on January 26, 2021, 01:52:09 am
Re: Navigation
Looking over the blue and yellow little circles, I notice every place open to turn, you have to be exactly between the colored circles, can't turn when on a colored circle. So I think the arrow keys should move us an s amount not 2 * s and it will certainly be easier to tell in code where walls are by using POINT to check down the line you want to head.

As for reversing walls you have to be standing on a colored circle and you have to work in offsets depending on if you are standing on a blue circle or a yellow.

The blue circles were the offset group:
Code: QB64: [Select]
  1.             x = x + s * 2
  2.             y = y + s * 2
  3.             CIRCLE (x, y), 2, &HFF0000FF
  4.  

yellow set 0 4 8 12  *s    both x and y
   blue set 2, 6, 10   *s

so all the places you can turn are odd numbers *s
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 26, 2021, 09:02:52 pm
@bplus

Quote
Looking over the blue and yellow little circles, I notice every place open to turn, you have to be exactly between the colored circles, can't turn when on a colored circle.

correct.

 
Quote
FOR y = 0 TO h STEP s * 4

        FOR x = 0 TO w STEP s * 4

The step size is S * 4 from color center to color center (no diagonal moves), so S * 2 should land half way between any color center. 
Title: Re: Labyrinth Tiles
Post by: bplus on January 26, 2021, 11:20:29 pm
Quote
so S * 2 should land half way between any color center.

@NOVARSEG confirmed! I just got the up arrow working. The walls to watch out for are only 1 s away +- 1 pixel, so I am using POINT for wall detection. But when you do move it is 2*S.
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 27, 2021, 12:54:03 am
@bplus

Got some crude navigation code working.  Press space bar to obtain a maze that'll work.

The moving circle stays within the grid lines (walls).  use arrow keys to move around.

c and v keys are disabled for this test.

Code: QB64: [Select]
  10.  
  11. s = 20
  12. h = 768
  13. w = 1024
  14. SCREEN _NEWIMAGE(w, h, 32)
  16. t = .5
  17.  
  18. _TITLE "Press z increase over/under,  x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red, right blue"
  19.  
  21.  
  22.     CLS
  23.  
  24.     FOR y = 0 TO h STEP s * 4
  25.  
  26.         FOR x = 0 TO w STEP s * 4
  27.  
  28.             r = RND
  29.             CIRCLE (x, y), 2, _RGB(255, 255, 0)
  30.             IF r <= t THEN
  31.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  32.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  33.             END IF
  34.             IF r > t THEN
  35.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  36.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  37.             END IF
  38.  
  39.             x = x + s * 2
  40.             y = y + s * 2
  41.  
  42.             CIRCLE (x, y), 2, _RGB(0, 255, 0)
  43.             r = RND
  44.  
  45.             IF r <= t THEN
  46.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  47.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  48.             END IF
  49.             IF r > t THEN
  50.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  51.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  52.             END IF
  53.  
  54.             x = x - s * 2
  55.             y = y - s * 2
  56.  
  57.         NEXT
  58.  
  59.     NEXT
  60.     'yy = 100
  61.     DO
  62.         IF _MOUSEINPUT = -1 THEN
  63.  
  64.  
  65.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  66.                 PAINT (_MOUSEX, _MOUSEY), _RGB(255, 0, 0), &HFFFFFFFF
  67.                 GOTO L1
  68.             END IF
  69.             IF _MOUSEBUTTON(1) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(255, 0, 0) THEN
  70.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  71.             END IF
  72.  
  73.             L1:
  74.  
  75.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 0) THEN
  76.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 255), &HFFFFFFFF
  77.                 GOTO L2
  78.             END IF
  79.             IF _MOUSEBUTTON(2) = -1 AND POINT(_MOUSEX, _MOUSEY) = _RGB(0, 0, 255) THEN
  80.                 PAINT (_MOUSEX, _MOUSEY), _RGB(0, 0, 0), &HFFFFFFFF
  81.             END IF
  82.  
  83.             L2:
  84.  
  85.  
  86.         END IF
  87.  
  88.  
  89.  
  90.  
  91.         KH& = _KEYHIT
  92.         IF KH& = 18432 AND yy > s * 2 AND POINT(xx, yy - 20) <> _RGB(255, 255, 255) THEN 'up
  93.             CIRCLE (xx, yy), 6, _RGB(0, 0, 0)
  94.             yy = yy - s * 2
  95.             CIRCLE (xx, yy), 6, &HFF00FF00
  96.  
  97.         END IF
  98.  
  99.         IF KH& = 19712 AND xx < 1024 AND POINT(xx + 20, yy) <> _RGB(255, 255, 255) THEN 'right
  100.             CIRCLE (xx, yy), 6, _RGB(0, 0, 0)
  101.             xx = xx + s * 2
  102.             CIRCLE (xx, yy), 6, &HFF00FF00
  103.             IF POINT(xx + 5, yy) = _RGB(255, 255, 255) THEN SOUND 300, 1
  104.         END IF
  105.  
  106.         IF KH& = 20480 AND yy < 768 AND POINT(xx, yy + 20) <> _RGB(255, 255, 255) THEN 'down
  107.             CIRCLE (xx, yy), 6, _RGB(0, 0, 0)
  108.             yy = yy + s * 2
  109.             CIRCLE (xx, yy), 6, &HFF00FF00
  110.         END IF
  111.  
  112.         IF KH& = 19200 AND xx > s * 2 AND POINT(xx - 20, yy) <> _RGB(255, 255, 255) THEN 'left
  113.             CIRCLE (xx, yy), 6, _RGB(0, 0, 0)
  114.             xx = xx - s * 2
  115.             CIRCLE (xx, yy), 6, &HFF00FF00
  116.         END IF
  117.  
  118.         IF xx MOD s * 4 = 0 AND yy MOD s * 4 = 0 THEN LOCATE 20, 20: PRINT "Yellow circle"
  119.         IF (xx + s * 2) MOD s * 4 = 0 AND (yy + s * 2) MOD s * 4 = 0 THEN LOCATE 20, 20: PRINT "green circle"
  120.  
  121.         IF (xx + s * 4) MOD s * 4 = 0 AND (yy + s * 2) MOD s * 4 = 0 THEN LOCATE 20, 20: PRINT "between      "
  122.         IF (xx + s * 2) MOD s * 4 = 0 AND yy MOD s * 4 = 0 THEN LOCATE 20, 20: PRINT "between      "
  123.  
  124.  
  125.         i$ = INKEY$
  126.  
  127.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  128.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  129.         ' IF i$ = "c" AND s > 1 THEN s = s - 1: xx = 0: yy = 0: EXIT DO
  130.         'IF i$ = "v" AND s < 41 THEN s = s + 1: xx = 0: yy = 0: EXIT DO
  131.         IF i$ = CHR$(27) THEN END
  132.         IF i$ = CHR$(32) THEN EXIT DO
  133.     LOOP
  135.  
Title: Re: Labyrinth Tiles
Post by: bplus on January 27, 2021, 01:27:15 am
Hey good work @NOVARSEG I know this was hard!

I got everything working good including toggling the PAINT jobs that you suggested then went to clean up code a bit and suddenly my guy is walking through walls! Dang WTH happened? After much hair pulling I discovered my White Constant was saying it was -1???
So I had to make White a normal variable and remember to dimension it _UNSIGNED LONG first and everything was working again, yeah! You should be able to resize s now too.

Code: QB64: [Select]
  1. ' b+ mod NOVARSEG code for 2 tiler 2021-01-25
  2. ' 2021-01-27  mod this for navigation and toggle paint jobs red and back or blue and black as per NOVARSEG
  3. CONST W = 1024, H = 700 ' screen width and height and color for lines and border check
  4. SCREEN _NEWIMAGE(W, H, 32)
  5. _DELAY .25 'wait for screen to set
  6. _SCREENMOVE _MIDDLE 'then center it in screen
  8. white = &HFFFFFFFF
  9. s = 10 ' s is the unit for drawing and navigating screen each step is 2*s
  10. t = .5 ' t is splitter between up/down walls and left/right walls
  11. COLOR white
  12. _TITLE "Press z increase over/under,  x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red/black, right blue/black"
  14.     CLS
  15.     FOR y = 0 TO H STEP s * 4
  16.         FOR x = 0 TO W STEP s * 4
  17.             r = RND
  18.             'CIRCLE (x, y), 2, &HFFFFFF00
  19.             IF r <= t THEN
  20.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  21.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  22.             END IF
  23.             IF r > t THEN
  24.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  25.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  26.             END IF
  27.             x = x + s * 2: y = y + s * 2 ' offset to do the other half of screen
  28.             'CIRCLE (x, y), 2, &HFF0000FF
  29.             r = RND
  30.             IF r <= t THEN
  31.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  32.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  33.             END IF
  34.             IF r > t THEN
  35.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  36.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  37.             END IF
  38.             x = x - s * 2: y = y - s * 2 ' set back to first set
  39.         NEXT
  40.     NEXT
  41.     IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  42.     REDIM back AS LONG
  43.     back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  44.     _PUTIMAGE , 0, back 'store current maze into image
  45.     xcells = INT(W / s) 'how many cells across
  46.     ycells = INT(H / s) 'how many down
  47.     hx = INT(xcells / 2) 'put our guy smack in middle of screen but he has to be on even number of cells!
  48.     IF hx MOD 2 = 1 THEN hx = hx + 1
  49.     hy = INT(ycells / 2)
  50.     IF hy MOD 2 = 1 THEN hy = hy + 1
  51.     's2 = 2 * s ' this is distance to move for each arrow press edit: did not need
  52.     DO
  53.         _PUTIMAGE , back, 0
  54.         KH& = _KEYHIT
  55.         SELECT CASE KH& '                                       which key was pressed?
  56.             CASE 27 '                                           the ESC key
  57.                 SYSTEM '
  58.             CASE 18432 '  Up Arrow
  59.                 IF hy - 2 > 0 THEN
  60.                     'CIRCLE (hx * s, (hy - 1) * s), 5, &HFFFFFF00
  61.                     '_DELAY .5
  62.                     'PRINT POINT(hx * s, (hy - 1) * s), POINT(hx * s, (hy - 1) * s + 1), POINT(hx * s, (hy - 1) * s - 1), white
  63.                     '_DISPLAY
  64.                     'SLEEP
  65.                     IF POINT(hx * s, (hy - 1) * s) <> white AND POINT(hx * s, (hy - 1) * s + 1) <> white AND POINT(hx * s, (hy - 1) * s - 1) <> white THEN hy = hy - 2
  66.                 END IF
  67.             CASE 19712 'the RIGHT ARROW key
  68.                 IF hx + 2 < xcells THEN
  69.                     'CIRCLE ((hx + 1) * s, hy * s), 5, &HFFFFFF00
  70.                     '_DELAY .5
  71.                     IF POINT((hx + 1) * s, hy * s) <> white AND POINT((hx + 1) * s + 1, hy * s) <> white AND POINT((hx + 1) * s - 1, hy * s) <> white THEN hx = hx + 2
  72.                 END IF
  73.             CASE 20480 ' the DOWN ARROW key
  74.                 IF hy + 2 < ycells THEN
  75.                     'CIRCLE (hx * s, (hy + 1) * s), 5, &HFFFFFF00
  76.                     '_DELAY .5
  77.                     IF POINT(hx * s, (hy + 1) * s) <> white AND POINT(hx * s, (hy + 1) * s + 1) <> white AND POINT(hx * s, (hy + 1) * s - 1) <> white THEN hy = hy + 2
  78.                 END IF
  79.             CASE 19200 'the LEFT ARROW key
  80.                 IF hx - 2 > 0 THEN
  81.                     'CIRCLE ((hx - 1) * s, hy * s), 5, &HFFFFFF00
  82.                     '_DELAY .5
  83.                     IF POINT((hx - 1) * s, hy * s) <> white AND POINT((hx - 1) * s + 1, hy * s) <> white AND POINT((hx - 1) * s - 1, hy * s) <> white THEN hx = hx - 2
  84.                 END IF
  85.         END SELECT
  86.         FOR ra = 0 TO .5 * s STEP .25 ' make a solid filled circle
  87.             CIRCLE (hx * s, hy * s), ra, &HFFFFFF00
  88.         NEXT
  89.         _DISPLAY
  90.         _LIMIT 60
  91.  
  92.         ' the rest of this loop is input from user, the drawing part is over but might PAINT roadways
  93.  
  94.         WHILE _MOUSEINPUT: WEND
  95.         IF _MOUSEBUTTON(1) THEN
  96.             _DELAY .2
  97.             _PUTIMAGE , back, 0 'get rid of hero
  98.             IF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 0) THEN
  99.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(255, 0, 0), &HFFFFFFFF
  100.             ELSEIF POINT(_MOUSEX, _MOUSEY) = _RGB32(255, 0, 0) THEN
  101.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 0), &HFFFFFFFF
  102.             END IF
  103.             _DISPLAY
  104.             IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  105.             back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  106.             _PUTIMAGE , 0, back 'store current maze into image
  107.         END IF
  108.         IF _MOUSEBUTTON(2) THEN
  109.             _DELAY .2
  110.             _PUTIMAGE , back, 0 'get rid of hero
  111.             IF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 255) THEN
  112.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 0), &HFFFFFFFF
  113.             ELSEIF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 0) THEN
  114.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 255), &HFFFFFFFF
  115.             END IF
  116.             _DISPLAY
  117.             IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  118.             back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  119.             _PUTIMAGE , 0, back 'store current maze into image
  120.         END IF
  121.         i$ = INKEY$
  122.         IF i$ = "z" AND t < 1 THEN t = t + .005: EXIT DO
  123.         IF i$ = "x" AND t > 0 THEN t = t - .005: EXIT DO
  124.         IF i$ = "c" AND s > 1 THEN s = s - 1: EXIT DO
  125.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  126.         IF i$ = CHR$(27) THEN END
  127.         IF i$ = CHR$(32) THEN EXIT DO
  128.     LOOP
  130.  
  131.  
  132.  

Oh heck, I never used s2!
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 27, 2021, 01:40:16 am
@bplus

Your code is working perfect. The circle moves fast.  I  can scale it way down and it still works . Almost pacman grade!

Works with _FULLSCREEN too. 

Also moving circle scales up or down with cell size.
Title: Re: Labyrinth Tiles
Post by: bplus on January 27, 2021, 01:48:08 am
Hey maybe some sort of Pacman variation that employs red and blue paths and some maze magic to shift the walls around you. I have to confess I never played Pacman.
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 27, 2021, 01:57:45 am
yep pacman is an old game for sure.   

Other  features can be added.     I want to try wall pair reversal for sure.  Might be useful in a game . With wall reversal, the moving circle can make a custom path, so in a game it depends on whether that is allowed or not.

Title: Re: Labyrinth Tiles
Post by: bplus on January 27, 2021, 11:42:22 pm
OK use spacebar to switch a cells walls and if the cell can be switched (you are not in a corner or intersection of walls and every other step on long straight path section), the cell will switch and the color you are standing on will be painted down the new pathway. If the cell is not one with switchable walls a low buzzer will sound, try one step over from where you are.

It's pretty cool!
Code: QB64: [Select]
  1. ' b+ mod NOVARSEG code for 2 tiler 2021-01-25
  2. ' 2021-01-27  mod this for navigation and toggle paint jobs red and back or blue and black as per NOVARSEG
  3. ' 2021-01-27  add spacebar to reverse a cells walls a sound will buzz if not inside a cell with walls
  4. '             The color your standing on will PAINT the new roadway if the walls switch.
  5.  
  6. CONST W = 1024, H = 700 ' screen width and height and color for lines and border check
  7. SCREEN _NEWIMAGE(W, H, 32)
  8. _DELAY .25 'wait for screen to set
  9. _SCREENMOVE _MIDDLE 'then center it in screen
  11. white = &HFFFFFFFF
  12. s = 10 ' s is the unit for drawing and navigating screen each step is 2*s
  13. t = .5 ' t is splitter between up/down walls and left/right walls
  14. COLOR white
  15. _TITLE "Press z increase over/under, x increase left/right, c makes smaller cells, v bigger, esc to quit, left mouse paints red/black, right blue/black, spacebar to reverse cells"
  17.     CLS
  18.     xcells = INT(W / s) 'how many cells across
  19.     ycells = INT(H / s) 'how many down
  20.     REDIM maze(xcells + 2, ycells + 2) AS LONG ' save our wall settings in maze array for wall changing with spacebar
  21.     FOR y = 0 TO H STEP s * 4
  22.         FOR x = 0 TO W STEP s * 4
  23.             r = RND
  24.             'CIRCLE (x, y), 2, &HFFFFFF00
  25.             IF r <= t THEN
  26.                 maze(INT(x / s), INT(y / s)) = -1
  27.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  28.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  29.             END IF
  30.             IF r > t THEN
  31.                 maze(INT(x / s), INT(y / s)) = 1
  32.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  33.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  34.             END IF
  35.             x = x + s * 2: y = y + s * 2 ' offset to do the other half of screen
  36.             'CIRCLE (x, y), 2, &HFF0000FF
  37.             r = RND
  38.             IF r <= t THEN
  39.                 maze(INT(x / s), INT(y / s)) = -1
  40.                 LINE (x - s, y + s)-(x + s, y + s) 'bottom line
  41.                 LINE (x - s, y - s)-(x + s, y - s) 'top line
  42.             END IF
  43.             IF r > t THEN
  44.                 maze(INT(x / s), INT(y / s)) = 1
  45.                 LINE (x - s, y - s)-(x - s, y + s) 'left line
  46.                 LINE (x + s, y - s)-(x + s, y + s) 'right line
  47.             END IF
  48.             x = x - s * 2: y = y - s * 2 ' set back to first set
  49.         NEXT
  50.     NEXT
  51.     IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  52.     REDIM back AS LONG
  53.     back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  54.     _PUTIMAGE , 0, back 'store current maze into image
  55.     xcells = INT(W / s) 'how many cells across
  56.     ycells = INT(H / s) 'how many down
  57.     hx = INT(xcells / 2) 'put our guy smack in middle of screen but he has to be on even number of cells!
  58.     IF hx MOD 2 = 1 THEN hx = hx + 1
  59.     hy = INT(ycells / 2)
  60.     IF hy MOD 2 = 1 THEN hy = hy + 1
  61.     DO
  62.         _PUTIMAGE , back, 0
  63.         KH& = _KEYHIT
  64.         SELECT CASE KH& '                                       which key was pressed?
  65.             CASE 27 '                                           the ESC key
  66.                 SYSTEM '
  67.             CASE 32
  68.                 IF maze(hx, hy) THEN ' make sure on a cell that has walls
  69.                     IF maze(hx, hy) = 1 THEN
  70.                         maze(hx, hy) = -1
  71.                     ELSEIF maze(hx, hy) = -1 THEN
  72.                         maze(hx, hy) = 1
  73.                     END IF
  74.                     ' now redraw everything!!!!
  75.                     hColr = POINT(hx * s - (s - 1), hy * s - (s - 1)) ' preserve color at hx, hy
  76.                     CLS
  77.                     FOR y = 0 TO ycells STEP 2 'redraw maze
  78.                         FOR x = 0 TO xcells STEP 2
  79.                             IF maze(x, y) = -1 THEN
  80.                                 LINE (x * s - s, y * s + s)-(x * s + s, y * s + s) 'bottom line
  81.                                 LINE (x * s - s, y * s - s)-(x * s + s, y * s - s) 'top line
  82.                             ELSEIF maze(x, y) = 1 THEN
  83.                                 LINE (x * s - s, y * s - s)-(x * s - s, y * s + s) 'left line
  84.                                 LINE (x * s + s, y * s - s)-(x * s + s, y * s + s) 'right line
  85.                             END IF
  86.                         NEXT
  87.                     NEXT
  88.                     IF hColr <> white THEN PAINT (hx * s, hy * s), hColr, white ' paint the new roadway
  89.                     'take a new picture
  90.                     _DISPLAY
  91.                     IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  92.                     back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  93.                     _PUTIMAGE , 0, back 'store current maze into image
  94.                 ELSE
  95.                     SOUND 100, 4
  96.                 END IF
  97.             CASE 18432 '  Up Arrow
  98.                 IF hy - 2 > 0 THEN
  99.                     'CIRCLE (hx * s, (hy - 1) * s), 5, &HFFFFFF00
  100.                     '_DELAY .5
  101.                     'PRINT POINT(hx * s, (hy - 1) * s), POINT(hx * s, (hy - 1) * s + 1), POINT(hx * s, (hy - 1) * s - 1), white
  102.                     '_DISPLAY
  103.                     'SLEEP
  104.                     IF POINT(hx * s, (hy - 1) * s) <> white AND POINT(hx * s, (hy - 1) * s + 1) <> white AND POINT(hx * s, (hy - 1) * s - 1) <> white THEN hy = hy - 2
  105.                 END IF
  106.             CASE 19712 'the RIGHT ARROW key
  107.                 IF hx + 2 < xcells THEN
  108.                     'CIRCLE ((hx + 1) * s, hy * s), 5, &HFFFFFF00
  109.                     '_DELAY .5
  110.                     IF POINT((hx + 1) * s, hy * s) <> white AND POINT((hx + 1) * s + 1, hy * s) <> white AND POINT((hx + 1) * s - 1, hy * s) <> white THEN hx = hx + 2
  111.                 END IF
  112.             CASE 20480 ' the DOWN ARROW key
  113.                 IF hy + 2 < ycells THEN
  114.                     'CIRCLE (hx * s, (hy + 1) * s), 5, &HFFFFFF00
  115.                     '_DELAY .5
  116.                     IF POINT(hx * s, (hy + 1) * s) <> white AND POINT(hx * s, (hy + 1) * s + 1) <> white AND POINT(hx * s, (hy + 1) * s - 1) <> white THEN hy = hy + 2
  117.                 END IF
  118.             CASE 19200 'the LEFT ARROW key
  119.                 IF hx - 2 > 0 THEN
  120.                     'CIRCLE ((hx - 1) * s, hy * s), 5, &HFFFFFF00
  121.                     '_DELAY .5
  122.                     IF POINT((hx - 1) * s, hy * s) <> white AND POINT((hx - 1) * s + 1, hy * s) <> white AND POINT((hx - 1) * s - 1, hy * s) <> white THEN hx = hx - 2
  123.                 END IF
  124.         END SELECT
  125.         FOR ra = 0 TO .5 * s STEP .25 ' make a solid filled circle
  126.             CIRCLE (hx * s, hy * s), ra, &HFFFFFF00
  127.         NEXT
  128.         _DISPLAY
  129.         _LIMIT 60
  130.  
  131.         ' the rest of this loop is input from user, the drawing part is over but might PAINT roadways
  132.  
  133.         WHILE _MOUSEINPUT: WEND
  134.         IF _MOUSEBUTTON(1) THEN
  135.             _DELAY .2
  136.             _PUTIMAGE , back, 0 'get rid of hero
  137.             IF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 0) THEN
  138.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(255, 0, 0), &HFFFFFFFF
  139.             ELSEIF POINT(_MOUSEX, _MOUSEY) = _RGB32(255, 0, 0) THEN
  140.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 0), &HFFFFFFFF
  141.             END IF
  142.             _DISPLAY
  143.             IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  144.             back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  145.             _PUTIMAGE , 0, back 'store current maze into image
  146.         END IF
  147.         IF _MOUSEBUTTON(2) THEN
  148.             _DELAY .2
  149.             _PUTIMAGE , back, 0 'get rid of hero
  150.             IF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 255) THEN
  151.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 0), &HFFFFFFFF
  152.             ELSEIF POINT(_MOUSEX, _MOUSEY) = _RGB32(0, 0, 0) THEN
  153.                 PAINT (_MOUSEX, _MOUSEY), _RGB32(0, 0, 255), &HFFFFFFFF
  154.             END IF
  155.             _DISPLAY
  156.             IF back THEN _FREEIMAGE back ' be careful not to cause a memory leak
  157.             back = _NEWIMAGE(_WIDTH, _HEIGHT, 32) ' this uses new memory regardless if back is same old name or not
  158.             _PUTIMAGE , 0, back 'store current maze into image
  159.         END IF
  160.         i$ = INKEY$
  161.         IF i$ = "z" AND t < 1 THEN t = t + .05: EXIT DO '  changed from .005 because too slow
  162.         IF i$ = "x" AND t > 0 THEN t = t - .05: EXIT DO
  163.         IF i$ = "c" AND s > 3 THEN s = s - 1: EXIT DO
  164.         IF i$ = "v" AND s < 41 THEN s = s + 1: EXIT DO
  165.         IF i$ = CHR$(27) THEN END
  166.     LOOP
  168.  
  169.  
  170.  

Oh I also changed how fast the t ratio gets changed by z or x, 10 times faster, more like s changes, noticeable with each press.
Title: Re: Labyrinth Tiles
Post by: NOVARSEG on January 28, 2021, 02:48:45 am
Nice toggle effect with space bar. Looking at your code to see how the reversal works.


Ya the t ratio was too slow.




Text Only | Text with Attachments