After you have read this part of the Qb.Scene, please rate it here!
WisdomDude is working on CyberChick. CyberChick is a platform game that is a lot like Metroid from Nintendo. There are several demos available already. Just pick the newest and experience the nice playability, neat graphics, and speed of this game. Click the link to go to the official homepage!
Another Nes-Emulator is being developed in QB! The name is BXNes. BX Software is working on it, saying they have completed it for 2% already :)
Adam Kewley aka Fishstix, Rancid, and John Hoffman aka qbasic man are working on QMod. QMod will be a replacement for bwsb. BWSB eats up array memmory, they are hoping to make qmod into a tsr that will be used by poking commands into memory.
If you want to know more about the projects in the QB.Scene, we suggest you visit NeoBasic, which has a list of 83 projects as of now...Be sure to submit YOUR project also!
|The QB.Scene and the QB Times have merged! NightWolf (from the Programming Oasis) & Jorden (from Future Software) are now co-operating on the magazine, which means you'll get the best of both worlds.|
|V Planet! is starting the QB Expo soon. The QB Expo will be a chance for QB programmers of all skill levels to show off their newest material. It's still in the planning-stages, so nothing is sure yet.|
|Welcome to the QB Cult Magazine! It looks like 2000 is becoming the year of QB Magazines! After the amazing popularity of QBasic: The Magazine, we've had QB Times, QB On Acid, QB.Scene, QBSI and now the QB Cult magazine! It's got a little news but a ton of tutorials. Take a look at it by clicking the link that will take you to Xybertech.|
' text$ is the text to save
DIM txtmatrix(LEN(textin$) * 9, 13)
' we must dim the matrix to keep it in memory
LOCATE 1, 1: PRINT text$
' the text is printed on the screen so that it can be saved. If the text you want to save
' is already there, you can remove this line !
FOR i = 0 TO LEN(textin$) * 8
' in screen 9, the characters width is 8
FOR j = 1 TO 13
' in screen 9, the characters height is a little less than 13,
'but if the text is
'already modified (with underlining, for example), the best thing to do is to reserve
'more memory for the matrix
txtmatrix(i, j) = POINT(i, j)
' here is the way to save each dot of the text in the matrix.
NEXT j, i
Now that your text is saved, you can modify it !
For example, to flip the text horizontaly, add this code after saving the text matrix :
FOR i = 630 TO 630 - (LEN(textin$) * 8) STEP -1
' we must start from the right of the screen (640*350 in screen 9)
FOR j = 1 TO 13
IF txtmatrix((630 - i), j) <> 0 THEN PSET (i, j), txtmatrix((630 - i), j)
' I add the test because on slow computers, the program printed the black dots too and it
' was a waste of time !
NEXT j, i
To flip the text vertically, you can draw a separation line using this line of code :
LINE (0, 14)-(LEN(textin$) * 8, 14)
To flip the text, that's the same sub as previously but now J is reversed, not I.
So you must use that sub :
FOR i = 1 TO LEN(textin$) * 8
FOR j = 14 TO 1 STEP -1
IF txtmatrix(i, 14 - j) <> 0 THEN PSET (i, j + 14), txtmatrix(i, 14 - j)
NEXT j, i
And if you want to create a nice effect on the vertical flipping, transform the third line of code to the following :
IF txtmatrix(i, 14 - j) <> 0 THEN PSET (i + j, j + 14), txtmatrix(i, 14 - j)
so that the text is inclined.
Using it, you can make an italic font, but without reversing.
There are many different ways to transform a text : you can apply a font, you can do anything.
If you want more examples, check out my site at http://maxxsoftware.50megs.com or download EFFECTS.BAS from the GFX section on Future Software Website.
Thanx for reading this article and I hope I explained it correctly ! (if you didn't, feel free to email me!
http://www.qb45.com (Updated often)
http://www.qbasic.com (Not updated since June 5, 1999)
http://www.qbasic.net (Updated often)
http://www.quickbasic.net (Not updated since December 12, 1999)
http://www.quick-basic.com (Updated often)
http://www.quickbasix.com (Updated often)
http://www.qbsource.com (Updated often)
http://www.bizzarecreations.com (Not updated since October 2, 1999)
http://www.master-creating.de (Updated often)
http://www.acidworks.com (Not updated since June 17, 1999)
http://www.maxcode.com (Updated often)
http://www.amasoft.com (Just new)
http://www.qbzone.com (Registered for a long time, not opened yet)
http://www.anwesoft.de (Just new)
Credits go to: