Qbasicnews.com

Full Version: Serious challenge: Graphics demo within 25 LINES OR FEWER!
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3
Dearest, **DEAREST** all splendid QB45/QB71 programmers,

Hello and God’s most ever-ravishing blessing to you all!!! Big Grin ! As some of you may have already known, the QuickBASIC Caliber Programming Compo (Summer and Autumn 2003) has just begun, with **ALL-NEW** categories (with some of them even customized and selected by you, the QB45/QB71 community! Wink ), and LOADS more excitement and mind-blowing fun than ever before!!! Now, the QB programming challenge that I am ON-PURPOSE posting on this very portion of the QbasicNews.com forums is this:

Graphics Demo within 25 LINES OR FEWER!

..........which is the challenge that was already set recently in one of my three (3) original categories of my new compo. Can you find it? It all starts right here at:

http://polacka.xepher.net/qbcpc.html

There, it will zoom you right to the front doors of my compo, with which you will soon be automatically directed to the OFFICIAL QuickBASIC Caliber Programming Compo (Summer and Autumn 2003) page! Once you are there, scroll down until you see the graphical text saying “Original Category #1”, “Original Category #2”, and “Original Category #3”. And as you are clicking on one or more of my three categories, we are looking for the words, “Graphics Demo within 25 LINES OR FEWER!”. If you *do* find it, the detailed requirements will soon follow so *please* read them _VERY_ carefully (and be sure to read and agree to all of my Official Rules of the new compo before you enter, too!)! Wink

Thank you so much and ***BEST OF RATHER SO EXCELLENT GOOD FORTUNE TO YOU ALL***, even upon entering my compo, too!!! Big Grin Wink !!



READYING YOU ALL FOR THE **ULTIMATE** QB CHALLENGE THAT YOU WILL NEVER FORGET,

[Image: AAPMini.gif]
Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Webmaster of the AAP Official Homepage
Official Founder of the “QuickBASIC Caliber Programming Compo”



P.S. The only question that remains is this:
Are you all set and geared up to go? :bounce:
am i all set and ready to go, well let's see... no... and btw we've already had a challenge very similar to this, it was a graphics demo in 9 lines, 25 lines would be extremely easy..
Not that easy, binaryShock. In 25 lines you are expected to do something way cooler... Why not give it a try?...

I think I will give it a try...

BRB!!!
Well i spose you might be right nathan, but all the good effects have been mainly done in the 9 liners Tongue heh besides the 9 line contest got me sick of doing them anyway. :barf: Besides rel will just make us all look bad again :-?
To Na_th_an,

Right up front fair and square, I so *thank* you for that rather bit of encouragement and that you are potentially deciding to give the “Graphics Demo within 25 lines or fewer” thing a go! I mean, to be truly brutally honest, THAT IS THE KIND OF STUFF THAT I *PLAIN* WANT TO SEE!! ;*D !! All it takes from you is a sign-up (please see rule #16 of the Official Rules for more details on that) and you are _well_ on your way to getting started on something *real* original for QB (and of course, ALL of the QB45/QB71 community — like Richard Eric M. Lope, BinaryShock, Toonski, and dearest Lachie as well — all have a STRONG, equal shot at it, too!!) Wink !

Splendid good fortune and a ***MOST BLESSED*** God-inspired 4th of July weekend also to you, BinaryShock, Toonski, Lachie, and to ALL of the entire QB45/QB71 community!!! ;*) !!!



FANNING THE FLAME OF SHEER ENCOURAGEMENT AS **WIDELY** AS EVER,

[Image: AAPMini.gif]
Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Webmaster of the AAP Official Homepage
Official Founder of the “QuickBASIC Caliber Programming Compo”
Dunno but I'll try to cook something up. ;*)

Wife just came back from vacation and you know them, they hate coding husbands. ;*)
Hmmm, I've written something but I can't stretch it in less than 45 lines... Can I post it anyways, just to show it? I don't care if it doesn't enter the "compo" Smile
I don't care about anyone else, but I'd love to see it.
Okay, I'll post it tomorrow at night (it is in my other comp). It consists on a banner which goes from bottom to top of the screen, but it twists around itself in fake-3D. Nice and neat Big Grin
Bah, double post. Needed. Here:

Code:
message$ = "        I think I have something to tell you right now... But it is this twisted life that makes it difficult... Oh, man, you got me puzzled. ­­­BYE!!!        "
SCREEN 13: post% = 1: DIM banner%(224, 32): DEF SEG = &HFFA6
OUT &H3C8, 16: FOR i% = 0 TO 15: OUT &H3C9, i% * 4: OUT &H3C9, 30: OUT &H3C9, 30: NEXT: FOR i% = 0 TO 15: OUT &H3C9, i% * 2: OUT &H3C9, i% * 2: OUT &H3C9, i% * 2: NEXT
DO
   IF cont% = 0 THEN
      c$ = MID$(message$, post%, 1)
      post% = (post% + 1) MOD LEN(message$)
      FOR y% = 0 TO 7: byte% = PEEK(ASC(c$) * 8 + y% + 14): FOR x% = 0 TO 7
         bit% = byte% AND 1: byte% = byte% \ 2
         FOR i% = 0 TO 2: FOR j% = 0 TO 2
            IF bit% = 1 THEN banner%(200 + y% * 3 + i%, (7 - x%) * 3 + j%) = 1 ELSE banner%(200 + y% * 3 + i%, (7 - x%) * 3 + j%) = 0
      NEXT j%, i%, x%, y%
   END IF
   FOR i% = 1 TO 223: FOR j% = 0 TO 23: banner%(i% - 1, j%) = banner%(i%, j%): NEXT j%, i%
   cont% = (cont% + 1) MOD 24
   angulo! = angulo! + .1: IF angulo! > 3.141592653589793# THEN angulo! = 0!
   angulo2! = angulo2! + .05: IF angulo2! > 2 * 3.141592653589793# THEN angulo2! = 0!
   FOR i% = 0 TO 199
      d% = 5 * SIN(4 * 3.141592653589793# * i% / 200 + angulo2!)
      SELECT CASE INT((i% + ((angulo! * 50) / (3.141592653589793# / 2))) / 50)
         CASE 0, 2, 4, 6: amplitud! = ABS(32 * SIN(angulo! + i% * 2 * 3.141592653589793# / 200))
         CASE 1, 3, 5: amplitud! = ABS(32 * COS(angulo! + i% * 2 * 3.141592653589793# / 200))
      END SELECT
      FOR j% = 0 TO amplitud! - 1
         IF banner%(i%, 32! * j% / amplitud!) = 0 THEN mcolor% = 32 + amplitud! / 4! + (16 - amplitud! / 2!) * j% / amplitud! ELSE mcolor% = 16 + amplitud! / 4! + (16 - amplitud! / 2!) * j% / amplitud!
         PSET (d% + j% + 144 + 12 - 16, i%), mcolor%
      NEXT j%
      FOR j% = amplitud! + 1 TO 31
         IF banner%(i%, ((j% - amplitud!) * 32!) / (32 - amplitud!)) = 0 THEN mcolor% = 48 - (32 - amplitud!) / 4 - (16 - (32 - amplitud!) / 2) * (j% - amplitud!) / (32 - amplitud!) ELSE mcolor% = 33 - (32 - amplitud!) / 4 - (16 - (32 - amplitud!) / _
2) * (j% - amplitud!) / (32 - amplitud!)
         PSET (d% + 144 + 12 - 16 + j% - 1, i%), mcolor%
      NEXT j%
      FOR j% = 32 TO 33
         PSET (d% + 144 + 12 - 16 + j% - 1, i%), 0
      NEXT j%
      FOR j% = -4 TO d%
         PSET (139 + j%, i%), 0
      NEXT j%, i%
LOOP WHILE INKEY$ = ""
Pages: 1 2 3