Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
hand cramps
#1
i'm getting tired of making bitmaps by hand. is there a better way?
Reply
#2
You can always do it by foot.
am an asshole. Get used to it.
Reply
#3
Quote:You can always do it by foot.
or you can find someway to turn a gif reader into a gif to bitmap converter. i tried but failed.
[Image: sig.php]
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.
Reply
#4
you could just use premade graphics. or have someone make them for you.
Jumping Jahoolipers!
Reply
#5
bitmap as in BMP or data bit-mapping graphics?
ammit potato!
Reply
#6
data 00,00 ...........
Reply
#7
you are crazy. make a damned editor in qb, or a converter using the "point" function. and don't ask me how, there's plenty of examples
ammit potato!
Reply
#8
Draw the image in your favorite image editor, save as a 256 color bitmap, get PP256, re-save the image in bsave format. Or just draw it in PP256 in the first place. Then use this:
Code:
' Uncomment the following to generate a bsaved image "delme.bsv" to
' test this with:
'SCREEN 13
'DIM a%(1 TO 1000)
'COLOR 12: PRINT "A";
'COLOR 10: PRINT "S";
'COLOR 9: PRINT "C";
'GET (0, 0)-(23, 7), a%
'DEF SEG = VARSEG(a%(1))
'BSAVE "delme.bsv", VARPTR(a%(1)), 24 * 8 + 4
'DEF SEG
'DO: LOOP UNTIL LEN(INKEY$)
'SCREEN 0
'WIDTH 80

PRINT "Sterling's BSAVE to DATA statement converter."
PRINT "Should work perfectly with any sprite saved in BSAVE format from PP256."
PRINT

PRINT "Enter the filename of the bsaved image:"
LINE INPUT "> ", bsv$

PRINT "Enter the filename of BAS file to append DATA statements to:"
LINE INPUT "> ", bas$

' Open FOR INPUT to cause an error if the file doesn't exist.
OPEN bsv$ FOR INPUT AS #1: CLOSE #1

OPEN bsv$ FOR BINARY AS #1
SEEK #1, 8

OPEN bas$ FOR APPEND AS #2

GET #1, , imageWidth%
GET #1, , imageHeight%

imageWidth% = imageWidth% \ 8

PRINT #2, "' Image width:"; imageWidth%;
PRINT #2, "  height:"; imageHeight%

FOR y% = 1 TO imageHeight%
   pixel% = ASC(INPUT$(1, #1))  ' program will have an error on this line
                                ' if the sprite is corrupt or truncated
   PRINT #2, USING "DATA ###"; pixel%;
  
   FOR x% = 2 TO imageWidth%
      pixel% = ASC(INPUT$(1, #1))  ' program will have an error on this line
                                   ' if the sprite is corrupt or truncated
      PRINT #2, USING ",###"; pixel%;
   NEXT x%
   PRINT #2, ""
NEXT y%

CLOSE #2

CLOSE #1
Reply
#9
whats pp256 and where do i get it
Reply
#10
The fourth most important thing in a sentence is PUNCTUATION.
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."

Visit www.neobasic.net to see rubbish in all its finest.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)