QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 13, 2020, 07:35:15 pm

Title: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 07:35:15 pm

Here's a circular maze generator I made today. I figured this kind might be easier to make and it was.. sorta. lol. The walls aren't the best but it's the best I know how to do. Tell me what you think and enjoy it. Also put it in its own folder to save mazes as bmp pictures. I might make a JPG version later on but I'm out of energy. lol You can make colorized versions or black and white (to print).
Attached is a color version I made. Oh also, you cannot print the colorized version because it would take too much ink or toner. I set it so it would be impossible to within the app itself.

- Deleted the code until I fix it...

Title: Re: Circular Maze Generator
Post by: bplus on June 13, 2020, 08:31:15 pm

I fix your walls:

Code: QB64: [Select]

1. 'Circular Mazes
2. 'By Sierraken on June 13, 2020.  Mod B+ wall fix
3. _LIMIT 300
4. begin:
5. _TITLE "Circular Maze Generator"
6. picture& = _NEWIMAGE(800, 600, 32)
7. CLS
8. PRINT "                         Circular Maze Generator"
9. PRINT: PRINT
10. PRINT "                              by Sierraken"
11. PRINT: PRINT
12. PRINT "This app will create random circular mazes like the kind you see using shrubs."
13. PRINT "You can (s)ave a maze as .bmp and/or (p)rint a black and white version."
14. 'PRINT: PRINT
15. 'PRINT "Choose a difficulty:"
16. 'PRINT "(1) Easy"
17. 'PRINT "(2) Medium"
18. 'PRINT "(3) Hard"
19. 'PRINT
20. 'INPUT "->"; dif
21. dif = 3
22. IF dif < 1 OR dif > 3 OR dif <> INT(dif) THEN GOTO begin:
23. PRINT: PRINT
24. 'INPUT "Do you want (c)olor or (b)lack and white"; c$
25. 'IF LEFT$(c$, 1) = "c" OR LEFT$(c$, 1) = "C" THEN col = 1: GOTO start:
26. 'IF LEFT$(c$, 1) = "b" OR LEFT$(c$, 1) = "b" THEN col = 0: GOTO start:
27. c$ = "b"
28. 'GOTO begin:
29. start:
30. IF dif = 1 THEN circles = 4
31. IF dif = 2 THEN circles = 8
32. IF dif = 3 THEN circles = 12
33. CLS
34. _TITLE "Space Bar to make new maze, (S)ave, (P)rint, Esc to quit."
35. s& = _NEWIMAGE(800, 600, 32)
36. SCREEN s&, picture&
37. IF col = 0 THEN PAINT (1, 1), _RGB32(255, 255, 255)
38. RANDOMIZE TIMER
39. sz = 250
40. x = 400: y = 300
41. r2 = .25
42. IF col = 1 THEN cc = 125
43. IF col = 0 THEN cc = 0
44. FOR cir = 1 TO circles
45.     r1 = (RND * 5) + 1
46.     IF cir > 10 THEN r2 = .5
47.     IF col = 1 THEN cl = cir * 21
48.     IF col = 0 THEN cl = cir
49.     CIRCLE (x, y), sz, _RGB32(cc, cl, cc), r1, r1 - r2
50.     _DELAY .25
51.     IF dif = 1 THEN sz = sz - 26.67: wsz = 25.67
52.     IF dif = 2 THEN sz = sz - 23.33: wsz = 22.33
53.     IF dif = 3 THEN sz = sz - 20: wsz = 19
54. NEXT cir
55. sz = 250
56. FOR wall = 1 TO circles - 1
57.     ra = _PI(2) * RND
58.     LINE (x + sz * COS(ra), y + sz * SIN(ra))-(x + (sz - 20) * COS(ra), y + (sz - 20) * SIN(ra)), _RGB32(0)
59.     sz = sz - 20
60. NEXT
61.  
62. 'FOR wall = 1 TO circles - 2
63. '    go:
64. '    xx = INT(RND * 800) + 1
65. '    yy = INT(RND * 600) + 1
66. '    IF col = 1 THEN cl2 = wall * 21
67. '    IF col = 0 THEN cl2 = wall
68. '    IF POINT(xx, yy) = _RGB32(cc, cl2, cc) THEN
69. '        go2:
70. '        IF xx > 400 THEN xx2 = xx - wsz: GOTO nex:
71. '        IF xx < 400 THEN xx2 = xx + wsz
72. '        nex:
73. '        IF yy > 300 THEN yy2 = yy - wsz: GOTO nex2:
74. '        IF yy < 300 THEN yy2 = yy + wsz: GOTO nex2:
75. '        GOTO go2:
76. '    END IF
77. '    GOTO go:
78. '    nex2:
79. '    LINE (xx, yy)-(xx2, yy2), _RGB32(cc, cl2, cc)
80. 'NEXT wall
81. _PUTIMAGE , s&, picture&
82. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
83. DO
84.     a$ = INKEY$
85.     IF a$ = CHR$(27) THEN END
86.     IF a$ = " " THEN GOTO begin:
87.     IF a$ = "p" OR a$ = "P" THEN
88.         IF col = 0 THEN
89.             j& = _COPYIMAGE(0)
90.             _DELAY .25
91.             INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
92.             CLS
93.             SCREEN j&
94.             _DELAY .25
95.             IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
96.                 'printer prep (code copied and pasted from bplus Free Calendar Program)
97.                 YMAX = _HEIGHT: XMAX = _WIDTH
98.                 landscape& = _NEWIMAGE(YMAX, XMAX, 32)
99.                 _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
100.                 _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
101.                 _PRINTIMAGE landscape&
102.                 _DELAY 2
103.                 landscape& = 0
104.                 s& = j&
105.             END IF
106.         END IF
107.     END IF
108.     IF a$ = " " THEN GOTO start:
109.     IF a$ = CHR$(27) THEN END
110.     IF a$ = "S" OR a$ = "s" THEN GOTO saving:
111. LOOP
112.  
113. saving:
114. CLS
115. PRINT "                       Saving"
116. PRINT
117. PRINT "         Your bmp file will be saved in the"
118. PRINT "         same directory as this program is."
119. PRINT "         It can be used with almost any"
120. PRINT "         other graphics program or website."
121. PRINT "         It is saved using:"
122. PRINT "         width: 800  height: 600 pixels."
123. PRINT
124. PRINT "         Type a name to save your picture"
125. PRINT "         and press the Enter key. Do not"
126. PRINT "         add .bmp at the end, the program"
127. PRINT "         will do it automatically."
128. PRINT
129. PRINT "         Example: MyPic"
130. PRINT "         Quit and Enter key ends program."
131. PRINT
132. INPUT "         ->"; nm$
133. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
134. nm$ = nm$ + ".bmp"
135. 'Checking to see if the file already exists on your computer.
136. theFileExists = _FILEEXISTS(nm$)
137. IF theFileExists = -1 THEN
138.     PRINT
139.     PRINT "       File Already Exists"
140.     PRINT "       Saving will delete your old"
141.     PRINT "       bmp picture."
142.     PRINT "       Would you like to still do it?"
143.     PRINT "      (Y/N)."
144.     PRINT "      Esc goes to start screen."
145.     llloop:
146.     _LIMIT 100
147.     ag2$ = INKEY$
148.     IF ag2$ = CHR$(27) THEN GOTO start:
149.     IF ag2$ = "" THEN GOTO llloop:
150.     IF ag2$ = "y" OR ag$ = "Y" THEN
151.         SHELL _HIDE "DEL " + nm$
152.         GOTO saving2:
153.     END IF
154.     GOTO llloop:
155. END IF
156. saving2:
157. CLS
158. sav = 1
159. FOR snd = 100 TO 700 STEP 100
160.     SOUND snd, 2
161. NEXT snd
162. GOTO start:
163.  
164. 'Here is the SUB needed to save the image to BMP.
165. SUB SaveImage (image AS LONG, filename AS STRING)
166.     bytesperpixel& = _PIXELSIZE(image&)
167.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
168.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
169.     x& = _WIDTH(image&)
170.     y& = _HEIGHT(image&)
171.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
172.     IF bytesperpixel& = 1 THEN
173.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
174.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
175.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
176.         NEXT
177.     END IF
178.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
179.     lastsource& = _SOURCE
180.     _SOURCE image&
181.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
182.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
183.         r$ = ""
184.         FOR px& = 0 TO x& - 1
185.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
186.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
187.         NEXT px&
188.         d$ = d$ + r$ + padder$
189.     NEXT py&
190.     _SOURCE lastsource&
191.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
192.     b$ = b$ + d$ ' total file data bytes to create file
193.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
194.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
195.     f& = FREEFILE
196.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
197.     OPEN filename$ + ext$ FOR BINARY AS #f&
198.     PUT #f&, , b$
199.     CLOSE #f&
200. END SUB
201.  
202.  
203.  

 

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 08:53:04 pm

Thanks B+!!!! I just have one more problem though, it's not saving the right picture, instead of the first one it's saving the next one it makes after you give it a name. Can you help me with this too? It always takes me at least a half an hour or more to find the right areas to put the _PUTIMAGE and SCREEN, etc. even though I've made these before. It's like a puzzle to me every time. lol Oh and I do agree, I'll stick with just the black and white, the colorized walls were too dark to see that good. I also agree with just having the Hard setting.
Here is what I have so far.. there was 2 conflicting lines as well that I put on accident in the DO Inkey$ LOOP area, so I removed those.

Code: QB64: [Select]

1. 'Circular Mazes
2. 'By Sierraken on June 13, 2020.  Mod B+ wall fix
3. _LIMIT 300
4. begin:
5. _TITLE "Circular Maze Generator"
6. picture& = _NEWIMAGE(800, 600, 32)
7. CLS
8. PRINT "                         Circular Maze Generator"
9. PRINT: PRINT
10. PRINT "                              by Sierraken"
11. PRINT: PRINT
12. PRINT "This app will create random circular mazes like the kind you see using shrubs."
13. PRINT "You can (s)ave a maze as .bmp and/or (p)rint a black and white version."
14. 'PRINT: PRINT
15. 'PRINT "Choose a difficulty:"
16. 'PRINT "(1) Easy"
17. 'PRINT "(2) Medium"
18. 'PRINT "(3) Hard"
19. 'PRINT
20. 'INPUT "->"; dif
21. dif = 3
22. IF dif < 1 OR dif > 3 OR dif <> INT(dif) THEN GOTO begin:
23. PRINT: PRINT
24. 'INPUT "Do you want (c)olor or (b)lack and white"; c$
25. 'IF LEFT$(c$, 1) = "c" OR LEFT$(c$, 1) = "C" THEN col = 1: GOTO start:
26. 'IF LEFT$(c$, 1) = "b" OR LEFT$(c$, 1) = "b" THEN col = 0: GOTO start:
27. c$ = "b"
28. 'GOTO begin:
29. start:
30. IF dif = 1 THEN circles = 4
31. IF dif = 2 THEN circles = 8
32. IF dif = 3 THEN circles = 12
33. CLS
34. _TITLE "Space Bar to make new maze, (S)ave, (P)rint, Esc to quit."
35. s& = _NEWIMAGE(800, 600, 32)
36. SCREEN s&, picture&
37. IF col = 0 THEN PAINT (1, 1), _RGB32(255, 255, 255)
38. RANDOMIZE TIMER
39. sz = 250
40. x = 400: y = 300
41. r2 = .25
42. IF col = 1 THEN cc = 125
43. IF col = 0 THEN cc = 0
44. FOR cir = 1 TO circles
45.     r1 = (RND * 5) + 1
46.     IF cir > 10 THEN r2 = .5
47.     IF col = 1 THEN cl = cir * 21
48.     IF col = 0 THEN cl = cir
49.     CIRCLE (x, y), sz, _RGB32(cc, cl, cc), r1, r1 - r2
50.     _DELAY .25
51.     IF dif = 1 THEN sz = sz - 26.67: wsz = 25.67
52.     IF dif = 2 THEN sz = sz - 23.33: wsz = 22.33
53.     IF dif = 3 THEN sz = sz - 20: wsz = 19
54. NEXT cir
55. sz = 250
56. FOR wall = 1 TO circles - 1
57.     ra = _PI(2) * RND
58.     LINE (x + sz * COS(ra), y + sz * SIN(ra))-(x + (sz - 20) * COS(ra), y + (sz - 20) * SIN(ra)), _RGB32(0)
59.     sz = sz - 20
60. NEXT
61.  
62. _PUTIMAGE , s&, picture&
63. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
64. DO
65.     a$ = INKEY$
66.     IF a$ = CHR$(27) THEN END
67.     IF a$ = " " THEN GOTO begin:
68.     IF a$ = "p" OR a$ = "P" THEN
69.         IF col = 0 THEN
70.             j& = _COPYIMAGE(0)
71.             _DELAY .25
72.             INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
73.             CLS
74.             SCREEN j&
75.             _DELAY .25
76.             IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
77.                 'printer prep (code copied and pasted from bplus Free Calendar Program)
78.                 YMAX = _HEIGHT: XMAX = _WIDTH
79.                 landscape& = _NEWIMAGE(YMAX, XMAX, 32)
80.                 _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
81.                 _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
82.                 _PRINTIMAGE landscape&
83.                 _DELAY 2
84.                 landscape& = 0
85.                 s& = j&
86.             END IF
87.         END IF
88.     END IF
89.     IF a$ = "S" OR a$ = "s" THEN GOTO saving:
90. LOOP
91.  
92. saving:
93. CLS
94. PRINT "                       Saving"
95. PRINT
96. PRINT "         Your bmp file will be saved in the"
97. PRINT "         same directory as this program is."
98. PRINT "         It can be used with almost any"
99. PRINT "         other graphics program or website."
100. PRINT "         It is saved using:"
101. PRINT "         width: 800  height: 600 pixels."
102. PRINT
103. PRINT "         Type a name to save your picture"
104. PRINT "         and press the Enter key. Do not"
105. PRINT "         add .bmp at the end, the program"
106. PRINT "         will do it automatically."
107. PRINT
108. PRINT "         Example: MyPic"
109. PRINT "         Quit and Enter key ends program."
110. PRINT
111. INPUT "         ->"; nm$
112. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
113. nm$ = nm$ + ".bmp"
114. 'Checking to see if the file already exists on your computer.
115. theFileExists = _FILEEXISTS(nm$)
116. IF theFileExists = -1 THEN
117.     PRINT
118.     PRINT "       File Already Exists"
119.     PRINT "       Saving will delete your old"
120.     PRINT "       bmp picture."
121.     PRINT "       Would you like to still do it?"
122.     PRINT "      (Y/N)."
123.     PRINT "      Esc goes to start screen."
124.     llloop:
125.     _LIMIT 100
126.     ag2$ = INKEY$
127.     IF ag2$ = CHR$(27) THEN GOTO start:
128.     IF ag2$ = "" THEN GOTO llloop:
129.     IF ag2$ = "y" OR ag$ = "Y" THEN
130.         SHELL _HIDE "DEL " + nm$
131.         GOTO saving2:
132.     END IF
133.     GOTO llloop:
134. END IF
135. saving2:
136. CLS
137. sav = 1
138. FOR snd = 100 TO 700 STEP 100
139.     SOUND snd, 2
140. NEXT snd
141. GOTO start:
142.  
143. 'Here is the SUB needed to save the image to BMP.
144. SUB SaveImage (image AS LONG, filename AS STRING)
145.     bytesperpixel& = _PIXELSIZE(image&)
146.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
147.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
148.     x& = _WIDTH(image&)
149.     y& = _HEIGHT(image&)
150.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
151.     IF bytesperpixel& = 1 THEN
152.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
153.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
154.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
155.         NEXT
156.     END IF
157.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
158.     lastsource& = _SOURCE
159.     _SOURCE image&
160.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
161.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
162.         r$ = ""
163.         FOR px& = 0 TO x& - 1
164.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
165.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
166.         NEXT px&
167.         d$ = d$ + r$ + padder$
168.     NEXT py&
169.     _SOURCE lastsource&
170.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
171.     b$ = b$ + d$ ' total file data bytes to create file
172.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
173.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
174.     f& = FREEFILE
175.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
176.     OPEN filename$ + ext$ FOR BINARY AS #f&
177.     PUT #f&, , b$
178.     CLOSE #f&
179. END SUB
180.  

Title: Re: Circular Maze Generator
Post by: bplus on June 13, 2020, 09:43:23 pm

Hi Ken,

Remind me what line 36 is doing.

Seems to me you can just draw the picture and then save it, no need to switch between image pages.

For printing, I guess you need to transfer to an image handle to turn page but do that in the printing part of code.

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 09:53:27 pm

LOL B+ you just saved the day again! I switched it from s& to picture& and now it works! I also cleaned up all the unnecessary code so I believe this might be good! Thank you!

Code: QB64: [Select]

1. 'Circular Mazes
2. 'By Sierraken on June 13, 2020.  Mod B+ wall fix and some help.
3. _LIMIT 300
4. begin:
5. CLS
6. _TITLE "Circular Maze Generator"
7. picture& = _NEWIMAGE(800, 600, 32)
8. s& = _NEWIMAGE(800, 600, 32)
9. SCREEN s&
10. PRINT: PRINT
11. c$ = "b"
12. start:
13. circles = 12
14. _TITLE "Space Bar to make new maze, (S)ave, (P)rint, Esc to quit."
15. PAINT (1, 1), _RGB32(255, 255, 255)
16. RANDOMIZE TIMER
17. sz = 250
18. x = 400: y = 300
19. r2 = .25
20. FOR cir = 1 TO circles
21.     r1 = (RND * 5) + 1
22.     IF cir > 10 THEN r2 = .5
23.     cl = cir
24.     CIRCLE (x, y), sz, _RGB32(0, cl, 0), r1, r1 - r2
25.     _DELAY .25
26.     sz = sz - 20: wsz = 19
27. NEXT cir
28. sz = 250
29. FOR wall = 1 TO circles - 1
30.     ra = _PI(2) * RND
31.     LINE (x + sz * COS(ra), y + sz * SIN(ra))-(x + (sz - 20) * COS(ra), y + (sz - 20) * SIN(ra)), _RGB32(0)
32.     sz = sz - 20
33. NEXT
34. keys:
35. _PUTIMAGE , s&, picture&
36. SCREEN picture&
37. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
38.  
39. DO
40.     a$ = INKEY$
41.     IF a$ = CHR$(27) THEN END
42.     IF a$ = " " THEN GOTO begin:
43.     IF a$ = "p" OR a$ = "P" THEN
44.         IF col = 0 THEN
45.             j& = _COPYIMAGE(0)
46.             _DELAY .25
47.             INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
48.             CLS
49.             SCREEN j&
50.             _DELAY .25
51.             IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
52.                 'printer prep (code copied and pasted from bplus Free Calendar Program)
53.                 YMAX = _HEIGHT: XMAX = _WIDTH
54.                 landscape& = _NEWIMAGE(YMAX, XMAX, 32)
55.                 _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
56.                 _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
57.                 _PRINTIMAGE landscape&
58.                 _DELAY 2
59.                 landscape& = 0
60.                 s& = j&
61.             END IF
62.         END IF
63.     END IF
64.     IF a$ = "S" OR a$ = "s" THEN GOTO saving:
65. LOOP
66.  
67. saving:
68. picture& = _COPYIMAGE(0)
69. CLS
70. PRINT "                       Saving"
71. PRINT
72. PRINT "         Your bmp file will be saved in the"
73. PRINT "         same directory as this program is."
74. PRINT "         It can be used with almost any"
75. PRINT "         other graphics program or website."
76. PRINT "         It is saved using:"
77. PRINT "         width: 800  height: 600 pixels."
78. PRINT
79. PRINT "         Type a name to save your picture"
80. PRINT "         and press the Enter key. Do not"
81. PRINT "         add .bmp at the end, the program"
82. PRINT "         will do it automatically."
83. PRINT
84. PRINT "         Example: MyPic"
85. PRINT "         Quit and Enter key ends program."
86. PRINT
87. INPUT "         ->"; nm$
88. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
89. nm$ = nm$ + ".bmp"
90. 'Checking to see if the file already exists on your computer.
91. theFileExists = _FILEEXISTS(nm$)
92. IF theFileExists = -1 THEN
93.     PRINT
94.     PRINT "       File Already Exists"
95.     PRINT "       Saving will delete your old"
96.     PRINT "       bmp picture."
97.     PRINT "       Would you like to still do it?"
98.     PRINT "      (Y/N)."
99.     PRINT "      Esc goes to start screen."
100.     llloop:
101.     _LIMIT 100
102.     ag2$ = INKEY$
103.     IF ag2$ = CHR$(27) THEN GOTO start:
104.     IF ag2$ = "" THEN GOTO llloop:
105.     IF ag2$ = "y" OR ag$ = "Y" THEN
106.         SHELL _HIDE "DEL " + nm$
107.         GOTO saving2:
108.     END IF
109.     GOTO llloop:
110. END IF
111. saving2:
112. CLS
113. sav = 1
114. FOR snd = 100 TO 700 STEP 100
115.     SOUND snd, 2
116. NEXT snd
117. GOTO keys:
118.  
119. 'Here is the SUB needed to save the image to BMP.
120. SUB SaveImage (image AS LONG, filename AS STRING)
121.     bytesperpixel& = _PIXELSIZE(image&)
122.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
123.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
124.     x& = _WIDTH(image&)
125.     y& = _HEIGHT(image&)
126.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
127.     IF bytesperpixel& = 1 THEN
128.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
129.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
130.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
131.         NEXT
132.     END IF
133.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
134.     lastsource& = _SOURCE
135.     _SOURCE image&
136.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
137.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
138.         r$ = ""
139.         FOR px& = 0 TO x& - 1
140.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
141.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
142.         NEXT px&
143.         d$ = d$ + r$ + padder$
144.     NEXT py&
145.     _SOURCE lastsource&
146.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
147.     b$ = b$ + d$ ' total file data bytes to create file
148.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
149.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
150.     f& = FREEFILE
151.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
152.     OPEN filename$ + ext$ FOR BINARY AS #f&
153.     PUT #f&, , b$
154.     CLOSE #f&
155. END SUB
156.  

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 09:54:26 pm

Ahh, maybe I can do without switching, I haven't tried that. I am just glad it works as it is.

Title: Re: Circular Maze Generator
Post by: bplus on June 13, 2020, 10:50:04 pm

LOL, what's the saying? If it works don't fix it.

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 10:56:31 pm

Well I got bored... lol... so I saw if you were right and you were, I didn't need to use switches. Here is the updated code with just 1 (besides the printing code).

Code: QB64: [Select]

1. 'Circular Mazes
2. 'By Sierraken on June 13, 2020.  Mod B+ wall fix and some help.
3. _LIMIT 300
4. begin:
5. CLS
6. _TITLE "Circular Maze Generator"
7. s& = _NEWIMAGE(800, 600, 32)
8. SCREEN s&
9. PRINT: PRINT
10. c$ = "b"
11. start:
12. circles = 12
13. _TITLE "Space Bar to make new maze, (S)ave, (P)rint, Esc to quit."
14. PAINT (1, 1), _RGB32(255, 255, 255)
15. RANDOMIZE TIMER
16. sz = 250
17. x = 400: y = 300
18. r2 = .25
19. FOR cir = 1 TO circles
20.     r1 = (RND * 5) + 1
21.     IF cir > 10 THEN r2 = .5
22.     cl = cir
23.     CIRCLE (x, y), sz, _RGB32(0, cl, 0), r1, r1 - r2
24.     _DELAY .25
25.     sz = sz - 20: wsz = 19
26. NEXT cir
27. sz = 250
28. FOR wall = 1 TO circles - 1
29.     ra = _PI(2) * RND
30.     LINE (x + sz * COS(ra), y + sz * SIN(ra))-(x + (sz - 20) * COS(ra), y + (sz - 20) * SIN(ra)), _RGB32(0)
31.     sz = sz - 20
32. NEXT
33. keys:
34. _PUTIMAGE , s&
35. SCREEN s&
36. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
37.  
38. DO
39.     a$ = INKEY$
40.     IF a$ = CHR$(27) THEN END
41.     IF a$ = " " THEN GOTO begin:
42.     IF a$ = "p" OR a$ = "P" THEN
43.         IF col = 0 THEN
44.             j& = _COPYIMAGE(0)
45.             _DELAY .25
46.             INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
47.             CLS
48.             SCREEN j&
49.             _DELAY .25
50.             IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
51.                 'printer prep (code copied and pasted from bplus Free Calendar Program)
52.                 YMAX = _HEIGHT: XMAX = _WIDTH
53.                 landscape& = _NEWIMAGE(YMAX, XMAX, 32)
54.                 _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
55.                 _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
56.                 _PRINTIMAGE landscape&
57.                 _DELAY 2
58.                 landscape& = 0
59.                 s& = j&
60.             END IF
61.         END IF
62.     END IF
63.     IF a$ = "S" OR a$ = "s" THEN GOTO saving:
64. LOOP
65.  
66. saving:
67. s& = _COPYIMAGE(0)
68. CLS
69. PRINT "                       Saving"
70. PRINT
71. PRINT "         Your bmp file will be saved in the"
72. PRINT "         same directory as this program is."
73. PRINT "         It can be used with almost any"
74. PRINT "         other graphics program or website."
75. PRINT "         It is saved using:"
76. PRINT "         width: 800  height: 600 pixels."
77. PRINT
78. PRINT "         Type a name to save your picture"
79. PRINT "         and press the Enter key. Do not"
80. PRINT "         add .bmp at the end, the program"
81. PRINT "         will do it automatically."
82. PRINT
83. PRINT "         Example: MyPic"
84. PRINT "         Quit and Enter key ends program."
85. PRINT
86. INPUT "         ->"; nm$
87. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
88. nm$ = nm$ + ".bmp"
89. 'Checking to see if the file already exists on your computer.
90. theFileExists = _FILEEXISTS(nm$)
91. IF theFileExists = -1 THEN
92.     PRINT
93.     PRINT "       File Already Exists"
94.     PRINT "       Saving will delete your old"
95.     PRINT "       bmp picture."
96.     PRINT "       Would you like to still do it?"
97.     PRINT "      (Y/N)."
98.     PRINT "      Esc goes to start screen."
99.     llloop:
100.     _LIMIT 100
101.     ag2$ = INKEY$
102.     IF ag2$ = CHR$(27) THEN GOTO start:
103.     IF ag2$ = "" THEN GOTO llloop:
104.     IF ag2$ = "y" OR ag$ = "Y" THEN
105.         SHELL _HIDE "DEL " + nm$
106.         GOTO saving2:
107.     END IF
108.     GOTO llloop:
109. END IF
110. saving2:
111. CLS
112. sav = 1
113. FOR snd = 100 TO 700 STEP 100
114.     SOUND snd, 2
115. NEXT snd
116. GOTO keys:
117.  
118. 'Here is the SUB needed to save the image to BMP.
119. SUB SaveImage (image AS LONG, filename AS STRING)
120.     bytesperpixel& = _PIXELSIZE(image&)
121.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
122.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
123.     x& = _WIDTH(image&)
124.     y& = _HEIGHT(image&)
125.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
126.     IF bytesperpixel& = 1 THEN
127.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
128.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
129.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
130.         NEXT
131.     END IF
132.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
133.     lastsource& = _SOURCE
134.     _SOURCE image&
135.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
136.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
137.         r$ = ""
138.         FOR px& = 0 TO x& - 1
139.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
140.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
141.         NEXT px&
142.         d$ = d$ + r$ + padder$
143.     NEXT py&
144.     _SOURCE lastsource&
145.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
146.     b$ = b$ + d$ ' total file data bytes to create file
147.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
148.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
149.     f& = FREEFILE
150.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
151.     OPEN filename$ + ext$ FOR BINARY AS #f&
152.     PUT #f&, , b$
153.     CLOSE #f&
154. END SUB
155.  

Title: Re: Circular Maze Generator
Post by: bplus on June 13, 2020, 10:59:21 pm

and it's OK with printout?

Never mind I found the printer section and it does it's own thing with image as it should.

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 11:02:28 pm

Yep, I didn't touch the printing code. But I did check to make sure I was using the right one for the printing code. I tested a few on my printer.

Title: Re: Circular Maze Generator
Post by: SierraKen on June 13, 2020, 11:21:22 pm

I just used Steve's 2 JPG libraries that he posted the other day and now this saves as a real JPG picture! My first ever! Thanks to all of you guys for the help! I will include the 2 library files that should be in the same folder as this .bas program (I believe). I'll also mention it in that JPG libraries forum thread. Included in the attachments is also the .bas program.

Thank you!

Text Only | Text with Attachments