Labyrinth Tiles

[NOVARSEG]

@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

[bplus]

@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
4. _SCREENMOVE _MIDDLE
5. REDIM maze AS LONG
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
19. NEXT
20. _PUTIMAGE , 0, maze
21. CLS
22. RotoZoom sw / 2, sw / 2, maze, 1.5, 45
23. SLEEP
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))
37. END SUB
38.  
39.  

 

[NOVARSEG]

@bplus

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

ROTOZOOM  gotta check that out


Thanks

[NOVARSEG]

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.  
4. CLS
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.  
39. NEXT
40.  

[NOVARSEG]

More features

Code: QB64: [Select]

1. DIM r AS SINGLE
2. DIM h AS INTEGER
3. DIM w AS INTEGER
4. DIM s AS INTEGER
5. DIM x AS INTEGER
6. DIM y AS INTEGER
7. DIM t AS SINGLE
8. s = 5
9. h = 768
10. w = 1024
11. SCREEN _NEWIMAGE(w, h, 32)
12. _FULLSCREEN
13. t = .5
14. PRINT
15. PRINT
16.  
17.  
18. PRINT "Press z or x to change maze"
19.  
20. PRINT
21. PRINT "ESC to exit"
22. DO
23.     i$ = INKEY$
24.     IF i$ = CHR$(27) THEN END
25.     IF i$ <> "" THEN EXIT DO
26. LOOP
27.  
28. DO
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
74. LOOP

[NOVARSEG]

Yet more features

Code: QB64: [Select]

1. DIM r AS SINGLE
2. DIM h AS INTEGER
3. DIM w AS INTEGER
4. DIM s AS INTEGER
5. DIM x AS INTEGER
6. DIM y AS INTEGER
7. DIM t AS SINGLE
8. s = 10
9. h = 768
10. w = 1024
11. SCREEN _NEWIMAGE(w, h, 32)
12. _FULLSCREEN
13. t = .5
14. PRINT
15. PRINT
16.  
17.  
18. PRINT "Press z or x to alter row / column appearance"
19. PRINT
20. PRINT "Press c or v to adjust grid size"
21. PRINT
22. PRINT "ESC to exit"
23. DO
24.     i$ = INKEY$
25.     IF i$ = CHR$(27) THEN END
26.     IF i$ <> "" THEN EXIT DO
27. LOOP
28.  
29. DO
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
78. LOOP

[bplus]

@NOVARSEG

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

[NOVARSEG]

@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.

[bplus]

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.

[NOVARSEG]

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]

1. DIM r AS SINGLE
2. DIM h AS INTEGER
3. DIM w AS INTEGER
4. DIM s AS INTEGER
5. DIM x AS INTEGER
6. DIM y AS INTEGER
7. DIM t AS SINGLE
8. s = 10
9. h = 768
10. w = 1024
11. SCREEN _NEWIMAGE(w, h, 32)
12. _FULLSCREEN
13. t = .5
14. PRINT
15. PRINT
16.  
17.  
18. PRINT "Press z or x to alter row / column appearance"
19. PRINT
20. PRINT "Press c or v to adjust grid size"
21. PRINT
22.  
23. PRINT "ESC to exit"
24. DO
25.     i$ = INKEY$
26.     IF i$ = CHR$(27) THEN END
27.     IF i$ <> "" THEN EXIT DO
28. LOOP
29.  
30. DO
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
95. LOOP
96.  

[bplus]

@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 :)

[NOVARSEG]

@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.

[bplus]

@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
7. _SCREENMOVE _MIDDLE
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.  
13. DO
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
67. LOOP
68.  
69.  
70.  

[bplus]

Now all we need is an idea to make a game with the different colored mazes, cool!

[NOVARSEG]

@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
7. _SCREENMOVE _MIDDLE
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.  
13. DO
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
88. LOOP
89.