Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 20, 2019, 10:18:24 pm

Title: Random Scene Generator
Post by: SierraKen on December 20, 2019, 10:18:24 pm
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:
  5. picture& = _NEWIMAGE(800, 600, 32)
  6. SCREEN picture&
  7. 'Draw sky.
  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.
  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
  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
  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
  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
  61. xx = (RND * 650) + 50
  62. rw = 2
  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
  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&)
  91. PRINT "                       Saving"
  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."
  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."
  105. PRINT "         Example: MyPic"
  106. PRINT "         Quit and Enter key ends program."
  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:
  132. saving2:
  134. SCREEN picture&
  135. _PUTIMAGE , picture2&
  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
  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&
  184.  
Title: Re: Random Scene Generator
Post by: romichess on December 20, 2019, 10:37:19 pm
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.
Title: Re: Random Scene Generator
Post by: SierraKen on December 20, 2019, 11:46:51 pm
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 (http://www.kensprograms.com/#jpg2txt)
Title: Re: Random Scene Generator
Post by: bplus on December 21, 2019, 09:46:34 am
Hi Ken.

That effect you achieved with the grass is really interesting.

Quote
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!




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

Title: Re: Random Scene Generator
Post by: SierraKen on December 21, 2019, 12:15:15 pm
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. 
Title: Re: Random Scene Generator
Post by: SierraKen on December 21, 2019, 04:00:53 pm
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
  6. picture& = _NEWIMAGE(800, 600, 32)
  7. SCREEN picture&
  8. 'Draw sky.
  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.
  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
  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
  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
  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
  62. xx = (RND * 650) + 50
  63. rw = 2
  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
  82. 'Trees
  83. trees:
  85. trees = INT(RND * 50) + 3
  86. FOR tree = 1 TO trees
  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&)
  115. PRINT "                       Saving"
  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."
  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."
  129. PRINT "         Example: MyPic"
  130. PRINT "         Quit and Enter key ends program."
  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:
  156. saving2:
  158. SCREEN picture&
  159. _PUTIMAGE , picture2&
  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
  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&
  208.  
Text Only | Text with Attachments