Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 08, 2020, 08:33:46 pm

Title: Grid Paper Maker
Post by: SierraKen on June 08, 2020, 08:33:46 pm
I've always wanted to make this. It lets you set the size per width of the boxes which calculates how many boxes you will get on the grid. Then you can save it as .bmp to your computer and/or print it on your printer. Your boxes can be from 2 to 200 pixels wide and long. Some of you might have already made something like this, but this is a tool everyone might use someday. It can be used for math or mapping or anything else that needs a grid. The colors are a white background with black lines. I included an example picture below. I suggest putting it in its own directory so your saved images are easy to find.

Code: QB64: [Select]
  1. 'Grid Paper Maker - by Sierraken on June 8, 2020.
  2. 'This will make a grid on the computer, save it to your computer, and/or print it on your printer.
  3. 'It uses a black grid on a white background.
  4. 'The user sets the size per square box, between 2 and 200 pixels.
  5. 'Thank you to bplus for the rotation printer code to rotate the picture 90 degrees to print the right width.
  6. '-----------------------------------------------------------------------------------------------------------
  7. start:
  8. picture& = _NEWIMAGE(800, 600, 32)
  10. PRINT "                              Grid Paper Maker"
  11. PRINT: PRINT "                                by Sierraken"
  13. INPUT "How wide per square in pixels (2-200):"; p
  15. start2:
  16. s& = _NEWIMAGE(800, 600, 32)
  17. SCREEN s&, picture&
  18. _TITLE "Press S to save, P to print, Space Bar for more, Esc to quit."
  19. PAINT (1, 1), _RGB32(255, 255, 255)
  20. FOR x = 1 TO 800 STEP p
  21.     FOR y = 1 TO 600 STEP p
  22.         LINE (x, y)-(x + p, y + p), _RGB32(0, 0, 0), B
  23.     NEXT y
  25. _PUTIMAGE , s&, picture&
  26. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
  28.     a$ = INKEY$
  29.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
  30.     IF a$ = "p" OR a$ = "P" THEN
  31.         j& = _COPYIMAGE(0)
  32.         _DELAY .25
  33.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
  34.         CLS
  35.         SCREEN j&
  36.         _DELAY .25
  37.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
  38.             'printer prep (code copied and pasted from bplus Free Calendar Program)
  39.             YMAX = _HEIGHT: XMAX = _WIDTH
  40.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
  41.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
  42.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
  43.             _PRINTIMAGE landscape&
  44.             _DELAY 2
  45.             landscape& = 0
  46.             s& = j&
  47.         END IF
  48.     END IF
  49.     IF a$ = " " THEN GOTO start:
  50.     IF a$ = CHR$(27) THEN END
  52.  
  53. saving:
  55. PRINT "                       Saving"
  57. PRINT "         Your bmp file will be saved in the"
  58. PRINT "         same directory as this program is."
  59. PRINT "         It can be used with almost any"
  60. PRINT "         other graphics program or website."
  61. PRINT "         It is saved using:"
  62. PRINT "         width: 800  height: 600 pixels."
  64. PRINT "         Type a name to save your picture"
  65. PRINT "         and press the Enter key. Do not"
  66. PRINT "         add .bmp at the end, the program"
  67. PRINT "         will do it automatically."
  69. PRINT "         Example: MyPic"
  70. PRINT "         Quit and Enter key ends program."
  72. INPUT "         ->"; nm$
  73. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
  74. nm$ = nm$ + ".bmp"
  75. 'Checking to see if the file already exists on your computer.
  76. theFileExists = _FILEEXISTS(nm$)
  77. IF theFileExists = -1 THEN
  78.     PRINT
  79.     PRINT "       File Already Exists"
  80.     PRINT "       Saving will delete your old"
  81.     PRINT "       bmp picture."
  82.     PRINT "       Would you like to still do it?"
  83.     PRINT "      (Y/N)."
  84.     PRINT "      Esc goes to start screen."
  85.     llloop:
  86.     _LIMIT 100
  87.     ag2$ = INKEY$
  88.     IF ag2$ = CHR$(27) THEN GOTO start:
  89.     IF ag2$ = "" THEN GOTO llloop:
  90.     IF ag2$ = "y" OR ag$ = "Y" THEN
  91.         SHELL _HIDE "DEL " + nm$
  92.         GOTO saving2:
  93.     END IF
  94.     GOTO llloop:
  96. saving2:
  98. sav = 1
  99. '_PUTIMAGE , s&, picture&
  100. 'SaveImage 0, nm$
  101. 'nm$ = ""
  102. FOR snd = 100 TO 700 STEP 100
  103.     SOUND snd, 2
  104. NEXT snd
  105. GOTO start2:
  106.  
  107. 'Here is the SUB needed to save the image to BMP.
  108. SUB SaveImage (image AS LONG, filename AS STRING)
  109.     bytesperpixel& = _PIXELSIZE(image&)
  110.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
  111.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
  112.     x& = _WIDTH(image&)
  113.     y& = _HEIGHT(image&)
  114.     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)
  115.     IF bytesperpixel& = 1 THEN
  116.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
  117.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
  118.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
  119.         NEXT
  120.     END IF
  121.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
  122.     lastsource& = _SOURCE
  123.     _SOURCE image&
  124.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
  125.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
  126.         r$ = ""
  127.         FOR px& = 0 TO x& - 1
  128.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
  129.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
  130.         NEXT px&
  131.         d$ = d$ + r$ + padder$
  132.     NEXT py&
  133.     _SOURCE lastsource&
  134.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
  135.     b$ = b$ + d$ ' total file data bytes to create file
  136.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
  137.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
  138.     f& = FREEFILE
  139.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
  140.     OPEN filename$ + ext$ FOR BINARY AS #f&
  141.     PUT #f&, , b$
  142.     CLOSE #f&
  144.  
Title: Re: Grid Paper Maker
Post by: bplus on June 08, 2020, 08:55:33 pm
In my younger days, I did one of these for Sudoku puzzles, using a light checker color pattern to distinguish the 9 cell blocks. 6 puzzles fit on an 8.5 x 11.
Title: Re: Grid Paper Maker
Post by: SierraKen on June 08, 2020, 09:50:57 pm
At first I was seeing if I could make a random maze generator. I wish I knew how. I did make one last year but all it did really was make open gaps all over the place and sometimes people could solve the maze, sometimes it was impossible. lol I used to have an app that did mazes, I might still. But to make one myself would be an incredible accomplishment.
Text Only | Text with Attachments