Maze Mirrors

[bplus]

Code: QB64: [Select]

1. _TITLE "1 Maze in 3 Reflectionss, press any key for next image..."
2. ' 2017-10-19 (B+=MGA) Maze Mirrors.bas
3.  
4. CONST xmax = 800 'set screen width to this
5. CONST ymax = 600 'set screen height to this
6.  
7. SCREEN _NEWIMAGE(xmax, ymax, 32) ' this sets the screen to the above settings
8. _SCREENMOVE 360, 60
9.  
10. DEFINT A-Z
11. RANDOMIZE TIMER
12. CONST w = 14
13. CONST h = 7
14.  
15. COMMON SHARED maze(), x2pixel!, xThk!, y2pixel!, yThk!
16. DIM maze(w + 1, h + 1)
17. x2pixel! = xmax / (w + 2)
18. xThk! = .5 * x2pixel!
19. y2pixel! = ymax / (h + 2)
20. yThk! = .5 * y2pixel!
21.  
22. FOR y = 1 TO h 'read in data for maze
23.     FOR x = 1 TO w
24.         READ maze(x, y)
25.     NEXT
26. NEXT
27.  
28. COLOR _RGB(200, 200, 255)
29. WHILE 1
30.     drawMaze: ck
31.     drawMazeHorizontalMirror: ck
32.     drawMaze: ck
33.     drawMazeVerticalMirror: ck
34.     drawMaze: ck
35.     drawMazeBothMirror: ck
36. WEND
37.  
38. SUB ck 'check key
39.     SLEEP: CLS: IF _KEYDOWN(27) THEN END
40. END SUB
41.  
42. SUB drawMaze
43.     PRINT "Maze from array:"
44.     FOR y = 1 TO h
45.         FOR x = 1 TO w
46.             IF maze(x, y) AND maze(x, y + 1) THEN
47.                 LINE (x * x2pixel!, y * y2pixel!)-(x * x2pixel! + xThk!, (y + 1) * y2pixel! + yThk!), , BF
48.             END IF
49.             IF maze(x, y) AND maze(x + 1, y) THEN
50.                 LINE (x * x2pixel!, y * y2pixel!)-((x + 1) * x2pixel! + xThk!, y * y2pixel! + yThk!), , BF
51.             END IF
52.         NEXT
53.     NEXT
54. END SUB
55.  
56. SUB drawMazeHorizontalMirror
57.     PRINT "Maze upside down:"
58.     FOR y = 1 TO h
59.         FOR x = 1 TO w
60.             IF maze(x, y) AND maze(x, y + 1) THEN
61.                 LINE (x * x2pixel!, ymax - (y * y2pixel!))-(x * x2pixel! + xThk!, ymax - ((y + 1) * y2pixel! + yThk!)), , BF
62.             END IF
63.             IF maze(x, y) AND maze(x + 1, y) THEN
64.                 LINE (x * x2pixel!, ymax - (y * y2pixel!))-((x + 1) * x2pixel! + xThk!, ymax - (y * y2pixel! + yThk!)), , BF
65.             END IF
66.         NEXT
67.     NEXT
68. END SUB
69.  
70. SUB drawMazeVerticalMirror
71.     PRINT "Maze mirror (vertical):"
72.     FOR y = 1 TO h
73.         FOR x = 1 TO w
74.             IF maze(x, y) AND maze(x, y + 1) THEN
75.                 LINE (xmax - (x * x2pixel!), y * y2pixel!)-(xmax - (x * x2pixel! + xThk!), (y + 1) * y2pixel! + yThk!), , BF
76.             END IF
77.             IF maze(x, y) AND maze(x + 1, y) THEN
78.                 LINE (xmax - (x * x2pixel!), y * y2pixel!)-(xmax - ((x + 1) * x2pixel! + xThk!), y * y2pixel! + yThk!), , BF
79.             END IF
80.         NEXT
81.     NEXT
82. END SUB
83.  
84. SUB drawMazeBothMirror
85.     PRINT "Maze upside down and mirrored:"
86.     FOR y = 1 TO h
87.         FOR x = 1 TO w
88.             IF maze(x, y) AND maze(x, y + 1) THEN
89.                 LINE (xmax - (x * x2pixel!), ymax - (y * y2pixel!))-(xmax - (x * x2pixel! + xThk!), ymax - ((y + 1) * y2pixel! + yThk!)), , BF
90.             END IF
91.             IF maze(x, y) AND maze(x + 1, y) THEN
92.                 LINE (xmax - (x * x2pixel!), ymax - (y * y2pixel!))-(xmax - ((x + 1) * x2pixel! + xThk!), ymax - (y * y2pixel! + yThk!)), , BF
93.             END IF
94.         NEXT
95.     NEXT
96. END SUB
97.  
98. 'maze
99. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1
100. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,1
101. DATA 1,0,1,1,1,0,1,1,1,1,1,1,0,1
102. DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,1
103. DATA 1,0,1,0,1,0,1,1,1,1,1,1,0,1
104. DATA 1,0,1,0,0,0,0,0,0,0,0,1,0,1
105. DATA 1,0,1,1,1,1,1,0,1,1,1,1,1,1
106.  
107.  
108.  

This is old code from net but I wanted to check out screen shots here at org, besides I don't think this code got enough press coverage at net ;-))

[bplus]

Errors when I try to attach screen shots

First I tried three, then I just tried 1, I loose whole post. The start of this thread was 2nd attempt without attachments.

[bplus]

Hi Odin,

What do you think?

Append: Vanished! just what you expect from a god...

[bplus]

OK Odin thinks I am, ha!

Try screen shots again...

Looking good odin! (Thumbs up icon here)

[Petr]

Bplus, i think, Odin is inspired by Revolt of machines movie. There ODIN is international secret and security army network. :-D

[bplus]

Dang, I thought Odin was the one who gives a Frigg.

hmm... that didn't sound right....

I had to look up Odin, I thought he was the one with a hammer, no he is husband of Frigg and a wanderer but many other things too bringer of Runes, health...

didn't see anything about "international secret and security army network." ISASAN?

I will keep my eyes pealed now. :D

[Donald Foster]

Hello all,

I like you cute maze. Brings back memories when I made my maze on the Tandy 2000 about 30 years. But it was a walk through maze showing a preview of what openings are just ahead of you. I even put florescent lighting in then ceiling. Maybe I remake one some day, but even bigger and harder to get through.

I found a maze similar to mine.
 
Donald

[bplus]

Hi [banned user],

Hmm... 3d ping pong might not be for you???

Wait... is it here???

A quick search says, nada. Not At Dis Address

OK well I hope it's owner is here or gets here and brings that code with him! (please)