Random Scene Generator

[SierraKen]

This makes random hills, random grass texture on the land, and a random creek coming from the hills to you. I used radians to make the hills this time instead of full circles like I did before. I also used radians to make the creek. :) Plus I added the .bmp save code that I originally got from the Wiki pages to save the pictures. The directions are on the TITLE bar. That _PUTIMAGE took me awhile again to do exactly right to capture the picture. But hopefully I'm learning. It took around 20 tests to finally get it.

Edit: I just added a picture of what it can make.

Code: QB64: [Select]

1. 'Made on Dec. 20, 2019 by Ken G.
2. _TITLE "Scene Generator - by Ken G. - Space Bar for new scene, (S)ave Picture, Esc to quit."
3. start:
4. CLS
5. picture& = _NEWIMAGE(800, 600, 32)
6. SCREEN picture&
7. 'Draw sky.
8. RANDOMIZE TIMER
9. sky = INT(RND * 154) + 100
10. FOR sk = 0 TO 299
11.     sky = sky + .25
12.     IF sky > 255 THEN sky = 255
13.     LINE (0, sk)-(800, sk), _RGB32(0, 0, sky)
14. NEXT sk
15. 'Draw ground.
16. RANDOMIZE TIMER
17. cc2 = INT(RND * 50) + 20
18. FOR cc = 300 TO 600
19.     cc2 = cc2 + .5
20.     LINE (0, cc)-(800, cc), _RGB32(116, cc2, 0)
21. NEXT cc
22. y = 300
23. RANDOMIZE TIMER
24. c1 = INT(RND * 100) + 20
25. c2 = INT(RND * 150) + 60
26. c4 = c2
27. c3 = INT(RND * 100) + 20
28. t = 0
29. tt = 0
30. si = 0
31. 'Draw hills.
32. amount = INT(RND * 40) + 5
33. FOR t = 1 TO amount
34.     _LIMIT 100
35.     RANDOMIZE TIMER
36.     x = (RND * 800) + 1
37.     s = (RND * 250) + 1
38.     aspect = RND * 2
39.     FOR sz = .25 TO s STEP .25
40.         c2 = c2 + .05
41.         IF c2 > 255 THEN c2 = 255
42.         CIRCLE (x, y), sz, _RGB32(c1, c2, c3), 2 * _PI, _PI, aspect
43.     NEXT sz
44.     c2 = c4
45.     l = .5
46. NEXT t
47. 'Draw grass.
48. FOR grassy = 300 TO 600 STEP 2.5
49.     FOR grassx = 0 TO 800 STEP 2
50.         RANDOMIZE TIMER
51.         sst = RND * 2
52.         sst2 = RND * 1
53.         LINE (grassx + sst, grassy + sst2)-(grassx + sst, (grassy + sst2) - l), _RGB32(50, 255, 127)
54.     NEXT grassx
55.     l = l + .025
56.     IF l > 4 THEN l = 4
57. NEXT grassy
58. 'Draw random river.
59. yy = 305
60. RANDOMIZE TIMER
61. xx = (RND * 650) + 50
62. rw = 2
63. DO
64.     IF yy > 600 THEN GOTO again:
65.     _DELAY .1
66.     tt = tt + 1
67.     si = si + 1
68.     yy = yy + (si * 2)
69.     IF tt = 1 THEN
70.         FOR sz = 1 TO 5 STEP .25
71.             CIRCLE (xx, yy), si + sz, _RGB32(6, 128, 255), _PI / 2, (3 / 2) * _PI
72.         NEXT sz
73.     END IF
74.     IF tt = 2 THEN
75.         FOR sz = 1 TO 5 STEP .25
76.             CIRCLE (xx, yy), si - sz, _RGB32(6, 128, 255), (3 / 2) * _PI, _PI / 2
77.         NEXT sz
78.         tt = 0
79.     END IF
80. LOOP
81. again:
82. ag$ = INKEY$
83. IF ag$ = "s" OR ag$ = "S" THEN GOTO saving:
84. IF ag$ = " " THEN GOTO start:
85. IF ag$ = CHR$(27) THEN END
86. GOTO again:
87. saving:
88. picture2& = _COPYIMAGE(picture&)
89. _DELAY .2
90. CLS
91. PRINT "                       Saving"
92. PRINT
93. PRINT "         Your bmp file will be saved in the"
94. PRINT "         same directory as this program is."
95. PRINT "         It can be used with almost any"
96. PRINT "         other graphics program or website."
97. PRINT "         It is saved using:"
98. PRINT "         width: 800  height: 600 pixels."
99. PRINT
100. PRINT "         Type a name to save your picture"
101. PRINT "         and press the Enter key. Do not"
102. PRINT "         add .bmp at the end, the program"
103. PRINT "         will do it automatically."
104. PRINT
105. PRINT "         Example: MyPic"
106. PRINT "         Quit and Enter key ends program."
107. PRINT
108. INPUT "         ->"; nm$
109. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
110. nm$ = nm$ + ".bmp"
111. 'Checking to see if the file already exists on your computer.
112. theFileExists = _FILEEXISTS(nm$)
113. IF theFileExists = -1 THEN
114.     PRINT
115.     PRINT "       File Already Exists"
116.     PRINT "       Saving will delete your old"
117.     PRINT "       bmp picture."
118.     PRINT "       Would you like to still do it?"
119.     PRINT "      (Y/N)."
120.     PRINT "      Esc goes to start screen."
121.     llloop:
122.     _LIMIT 100
123.     ag2$ = INKEY$
124.     IF ag2$ = CHR$(27) THEN GOTO start:
125.     IF ag2$ = "" THEN GOTO llloop:
126.     IF ag2$ = "y" OR ag$ = "Y" THEN
127.         SHELL _HIDE "DEL " + nm$
128.         GOTO saving2:
129.     END IF
130.     GOTO llloop:
131. END IF
132. saving2:
133. CLS
134. SCREEN picture&
135. _PUTIMAGE , picture2&
136. _DISPLAY
137. SaveImage 0, nm$
138. nm$ = ""
139. FOR snd = 100 TO 700 STEP 100
140.     SOUND snd, 2
141. NEXT snd
142. picture& = 0
143. picture2& = 0
144. _AUTODISPLAY
145. GOTO start:
146.  
147. 'Here is the SUB needed to save the image to BMP.
148. SUB SaveImage (image AS LONG, filename AS STRING)
149.     bytesperpixel& = _PIXELSIZE(image&)
150.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
151.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
152.     x& = _WIDTH(image&)
153.     y& = _HEIGHT(image&)
154.     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)
155.     IF bytesperpixel& = 1 THEN
156.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
157.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
158.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
159.         NEXT
160.     END IF
161.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
162.     lastsource& = _SOURCE
163.     _SOURCE image&
164.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
165.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
166.         r$ = ""
167.         FOR px& = 0 TO x& - 1
168.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
169.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
170.         NEXT px&
171.         d$ = d$ + r$ + padder$
172.     NEXT py&
173.     _SOURCE lastsource&
174.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
175.     b$ = b$ + d$ ' total file data bytes to create file
176.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
177.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
178.     f& = FREEFILE
179.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
180.     OPEN filename$ + ext$ FOR BINARY AS #f&
181.     PUT #f&, , b$
182.     CLOSE #f&
183. END SUB
184.  

[romichess]

Nice surreal concept!  Have you thought about using an ASC2 reprogrammed character set to create terrain. Just asking. It is something I have thought about but never got around to trying.

[SierraKen]

Thanks! Hm, not sure what you mean by that. I did make a picture to ASCII text converter that turns binary pictures into text, if you want to check it out. It's on my website here:
http://www.kensprograms.com/#jpg2txt

[bplus]

Hi Ken.

That effect you achieved with the grass is really interesting.

Hm, not sure what you mean by that.

Surreal? When I think of surreal I think of Salvador Dali a Surrealist Spanish Painter, particularly his 1931 painting, Persistence of Memory, you might enjoy checking him out on Internet specially after we just did clocks!

Have you thought about using an ASC2 reprogrammed character set to create terrain.

Hi romichess,

Here is discussion on reprogramming characters:
https://www.qb64.org/forum/index.php?topic=498.msg3498#msg3498
points to my character editor but whole thread discusses subject.

PMACKAY has mastered and used extensively in his works.

[SierraKen]

Awesome artwork of his. Yeah I know what surreal meant, I just wasn't sure what he meant by characters. So I went to your forum link and I see it now. The link I posted to my website has a program that changes a JPG to ASCII characters using the level of brightness for each one. I found a list online of least bright to most bright of the characters and used that to make the picture. It can't use a regular photo though since it's too detailed, instead it can use a less detailed graphic. Like you can make a happy face with Windows Paint, save it as JPG and change it with that to ASCII characters text.

About my scene generator, I might work on it a little more. I thought about adding trees or plants but that will take a lot of thinking because it would have to make smaller ones farther ahead and larger ones up close. Thanks for the compliment B+. Feel free to use any of the code on anything. I use longer grass up close and shorter grass further away. That is why you see more brown dirt farther away. Before the grass, I make a gradual change of color from darker farther away, to brighter up close, and then the grass is put on top of that. 

[SierraKen]

I added random trees. I don't love math, but I'm learning how to use it pretty good. The trees get a little smaller and a little thinner the further away they are.
Here is a randomly made photo also.

Code: QB64: [Select]

1. 'Made on Dec. 20, 2019 by Ken G.
2. _TITLE "Scene Generator - by Ken G. - Space Bar for new scene, (S)ave Picture, Esc to quit."
3. start:
4. _LIMIT 500
5. CLS
6. picture& = _NEWIMAGE(800, 600, 32)
7. SCREEN picture&
8. 'Draw sky.
9. RANDOMIZE TIMER
10. sky = INT(RND * 154) + 100
11. FOR sk = 0 TO 299
12.     sky = sky + .25
13.     IF sky > 255 THEN sky = 255
14.     LINE (0, sk)-(800, sk), _RGB32(0, 0, sky)
15. NEXT sk
16. 'Draw ground.
17. RANDOMIZE TIMER
18. cc2 = INT(RND * 50) + 20
19. FOR cc = 300 TO 600
20.     cc2 = cc2 + .5
21.     LINE (0, cc)-(800, cc), _RGB32(116, cc2, 0)
22. NEXT cc
23. y = 300
24. RANDOMIZE TIMER
25. c1 = INT(RND * 100) + 20
26. c2 = INT(RND * 150) + 60
27. c4 = c2
28. c3 = INT(RND * 100) + 20
29. t = 0
30. tt = 0
31. si = 0
32. 'Draw hills.
33. amount = INT(RND * 40) + 5
34. FOR t = 1 TO amount
35.     _LIMIT 100
36.     RANDOMIZE TIMER
37.     x = (RND * 800) + 1
38.     s = (RND * 250) + 1
39.     aspect = RND * 2
40.     FOR sz = .25 TO s STEP .25
41.         c2 = c2 + .05
42.         IF c2 > 255 THEN c2 = 255
43.         CIRCLE (x, y), sz, _RGB32(c1, c2, c3), 2 * _PI, _PI, aspect
44.     NEXT sz
45.     c2 = c4
46.     l = .5
47. NEXT t
48. 'Draw grass.
49. FOR grassy = 300 TO 600 STEP 2.5
50.     FOR grassx = 0 TO 800 STEP 2
51.         RANDOMIZE TIMER
52.         sst = RND * 2
53.         sst2 = RND * 1
54.         LINE (grassx + sst, grassy + sst2)-(grassx + sst, (grassy + sst2) - l), _RGB32(50, 255, 127)
55.     NEXT grassx
56.     l = l + .025
57.     IF l > 4 THEN l = 4
58. NEXT grassy
59. 'Draw random river.
60. yy = 305
61. RANDOMIZE TIMER
62. xx = (RND * 650) + 50
63. rw = 2
64. DO
65.     IF yy > 600 THEN GOTO trees:
66.     _DELAY .1
67.     tt = tt + 1
68.     si = si + 1
69.     yy = yy + (si * 2)
70.     IF tt = 1 THEN
71.         FOR sz = 1 TO 5 STEP .25
72.             CIRCLE (xx, yy), si + sz, _RGB32(6, 128, 255), _PI / 2, (3 / 2) * _PI
73.         NEXT sz
74.     END IF
75.     IF tt = 2 THEN
76.         FOR sz = 1 TO 5 STEP .25
77.             CIRCLE (xx, yy), si - sz, _RGB32(6, 128, 255), (3 / 2) * _PI, _PI / 2
78.         NEXT sz
79.         tt = 0
80.     END IF
81. LOOP
82. 'Trees
83. trees:
84. RANDOMIZE TIMER
85. trees = INT(RND * 50) + 3
86. FOR tree = 1 TO trees
87.     RANDOMIZE TIMER
88.     xt = RND * 800
89.     yt = (RND * 300) + 300
90.     length = yt * 8 / 160
91.     th = yt / 100
92.     FOR thick = 1 TO th
93.         LINE (xt + thick, yt)-(xt + thick, yt - length), _RGB32(211, 83, 6)
94.         'left side
95.         LINE (xt + thick, yt - length)-((xt - length) + thick, yt - length * 2), _RGB32(211, 83, 6)
96.         LINE ((xt - length) + thick, yt - (length * 2))-((xt - (length * 2)) + thick, yt - (length * 3)), _RGB32(211, 83, 6)
97.         LINE ((xt - length) + thick, yt - (length * 2))-((xt - (length * 1.5) + thick), yt - (length * 3)), _RGB32(211, 83, 6)
98.         'right side
99.         LINE ((xt + thick), yt - length)-((xt + length) + thick, yt - (length * 2)), _RGB32(211, 83, 6)
100.         LINE ((xt + length) + thick, yt - (length * 2))-((xt + (length * 2) + thick), yt - (length * 3)), _RGB32(211, 83, 6)
101.         LINE ((xt + length) + thick, yt - (length * 2))-((xt + (length * 1.5) + thick), yt - (length * 3)), _RGB32(211, 83, 6)
102.     NEXT thick
103. NEXT tree
104.  
105. again:
106. ag$ = INKEY$
107. IF ag$ = "s" OR ag$ = "S" THEN GOTO saving:
108. IF ag$ = " " THEN GOTO start:
109. IF ag$ = CHR$(27) THEN END
110. GOTO again:
111. saving:
112. picture2& = _COPYIMAGE(picture&)
113. _DELAY .2
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. SCREEN picture&
159. _PUTIMAGE , picture2&
160. _DISPLAY
161. SaveImage 0, nm$
162. nm$ = ""
163. FOR snd = 100 TO 700 STEP 100
164.     SOUND snd, 2
165. NEXT snd
166. picture& = 0
167. picture2& = 0
168. _AUTODISPLAY
169. GOTO start:
170.  
171. 'Here is the SUB needed to save the image to BMP.
172. SUB SaveImage (image AS LONG, filename AS STRING)
173.     bytesperpixel& = _PIXELSIZE(image&)
174.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
175.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
176.     x& = _WIDTH(image&)
177.     y& = _HEIGHT(image&)
178.     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)
179.     IF bytesperpixel& = 1 THEN
180.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
181.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
182.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
183.         NEXT
184.     END IF
185.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
186.     lastsource& = _SOURCE
187.     _SOURCE image&
188.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
189.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
190.         r$ = ""
191.         FOR px& = 0 TO x& - 1
192.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
193.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
194.         NEXT px&
195.         d$ = d$ + r$ + padder$
196.     NEXT py&
197.     _SOURCE lastsource&
198.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
199.     b$ = b$ + d$ ' total file data bytes to create file
200.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
201.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
202.     f& = FREEFILE
203.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
204.     OPEN filename$ + ext$ FOR BINARY AS #f&
205.     PUT #f&, , b$
206.     CLOSE #f&
207. END SUB
208.