A simple word.

[Oak]

The old Oak had escaped from the shadow to bring you some refreshing codes.
I've learn some new fonctions and add them to some other mathematicals stuff, chow them back and forth and...
Here's what we can get with PSET and some colors loop.


DIM ADR$(0 TO 319, 0 TO 11)
CLS : SCREEN 12
GOSUB COULEUR
PRINT "WORD"

REM /// PEEK PIXEL FROM THE WORD AND DRAWING IT 2*SIZE ///
FOR Y = 0 TO 11
Y2 = Y * 3
A = A + 1
FOR X = 0 TO 319
Z = POINT(X, 12 - Y)
IF Z <> 0 THEN
X2 = X * 3
PSET (255 + X2, 199 - Y2), A
DRAW &quot;U1L1D2R2U2&quot;
END IF
NEXT X
NEXT Y

REM /// STORING PIXELS COORDINATES TO ADR$ ///
FOR Y = 0 TO 11
FOR X = 0 TO 319
Z = POINT(X, Y)
IF Z <> 0 THEN
ADR$(X, Y) = &quot;1&quot;
END IF
NEXT X
NEXT Y

C = 11
XX = 3.9
XXX = 237
YY = 232

REM /// DRAWING THE REFLECTED WORD ///
FOR Y = 1 TO 11
FOR X = 0 TO 319
IF ADR$(X, Y) = &quot;1&quot; THEN
PSET ((X * XX) + XXX, YY), C
DRAW &quot;U1L2D2R3U2L1D1L2&quot;
END IF
NEXT X
C = C - 1
XX = XX - .1
XXX = XXX + 2
YY = YY - 3
NEXT Y

LOCATE 1, 1: PRINT &quot; &quot;
A$ = INPUT$(1)

END

REM /// FADING THE BLUE COLOR ///
COULEUR:
DD = 0
FOR D = 1 TO 15
DD = DD + 4
DDD = DD * 255
PALETTE D, DD * 65536
NEXT D
RETURN

He,He. Here again, simples codes and greats results.This is not perfect but I only wanted to expose you the main idea.
Hope that it have lighted a bulb!
[sig][/sig]

 

[Oak]

So, seem like I've made some better tips before.

So, I would like to have some comments about that. I doesn't really know if any of you are professionnals but I founded some newbies questions on this forum and I though that it may have got someone interest.

My tips aren't about giving you codes to fill in your programs (if it does, i'll be very happy of) but to give others my ways of figuring out Qbasic coding.

I think that Qbasic is a outdated language but I really like it. It was the first language that I tried and have a true meaning to myself. I tried Pearl and C++ Borlean and I just can't start the way that Qbasic does.

Long life to Qbasic! [sig][/sig]

 

[Alt255]

Those are some neat fading and perspective effects, Oak. My compliments!
[sig]<p> <br><a href=mailto: > </a><br><a href=

http://www.vorpalcom.com>A

plain black box</a><br>Don't sit down. It's time to dig another one.[/sig]

 

[Oak]

Thanks, alt255.

I didn't showed my work here to prove something exept the fact that with a little use of imagination and maths, we can get some goods results.

I've always made my own codes(often related on exemples and books)but I always make them. I think that it is the better way to truly understand all languages basical logic.

But thanks again [sig][/sig]