Smart questions
Smart people
 Find A ForumFind An Expert
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Remember Me

Are you a
Computer / IT professional?
Join Tek-Tips now!
• Talk With Other Members
• Be Notified Of Responses
• Keyword Search
Favorite Forums
• Automated Signatures
• Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Just copy and paste the

#### Feedback

"...What you have done for people like me is immeasurably helpful."

#### Geography

Where in the world do Tek-Tips members come from?

# A simple word.

 Forum Search FAQs Links Jobs Whitepapers MVPs
 Oak (Programmer) 9 Sep 00 5:18
 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 12GOSUB COULEURPRINT "WORD"REM /// PEEK PIXEL FROM THE WORD AND DRAWING IT 2*SIZE ///FOR Y = 0 TO 11Y2 = Y * 3A = 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 "U1L1D2R2U2"    END IF  NEXT XNEXT 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) = "1"     END IF  NEXT XNEXT YC = 11XX = 3.9XXX = 237YY = 232REM /// DRAWING THE REFLECTED WORD ///FOR Y = 1 TO 11  FOR X = 0 TO 319    IF ADR\$(X, Y) = "1" THEN    PSET ((X * XX) + XXX, YY), C    DRAW "U1L2D2R3U2L1D1L2"    END IF  NEXT X  C = C - 1  XX = XX - .1  XXX = XXX + 2  YY = YY - 3NEXT YLOCATE 1, 1: PRINT "    "A\$ = INPUT\$(1)ENDREM /// FADING THE BLUE COLOR ///COULEUR:DD = 0FOR D = 1 TO 15DD = DD + 4DDD = DD * 255PALETTE D, DD * 65536NEXT DRETURNHe,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!
 Oak (Programmer) 12 Sep 00 4:01
 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!
 Alt255 (Programmer) 12 Sep 00 5:32
 Those are some neat fading and perspective effects, Oak. My compliments! A plain black boxDon't sit down. It's time to dig another one.
 Oak (Programmer) 12 Sep 00 12:48
 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 :)

Close Box

# Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More...

Register now while it's still free!