Hello World - Contest

[WPShadow]

Should we raise the deadline? 15.04.? Or longer?

[SnooPI]

If it's too long, it'll be boring.
Small contest, small deadline 

[WPShadow]

Ok, small contest, small deadline...

I'll raise the deadline to 07.04., so there should be enough time to code and vote... 

[Schranz0r]

Still working on my version of Hello World.... it's to complicated, so i win? 

[dreamerman]

hm.. nice ideas, read from DATA, webpage, encoded string, RND numbers, what more can be done? Curious what You will do Schranz0r to beat them

[Hemlos]

i have a guess, the code will procrastinate 

[WPShadow]

Schranz0r, you should code faster...

The contest ends this weekend...   

[Schranz0r]

I never start, it was a joke ....
Maybe today, you will see, or not  ^^

[MrPlow]

My Entry!

I went another route initially but scrapped that and went with this version ...

Code: (glbasic) [Select]

SETSCREEN 800,600,FALSE
SMOOTHSHADING TRUE

CLEARSCREEN
GLOBAL string$="Hello World"
GLOBAL nn=0
GLOBAL bin$=""

TYPE udg
binary$=""
ENDTYPE
GLOBAL udgs[] AS udg


PRINT string$,100,100,1
WHILE 1=1

LOCAL countbin = 0
FOR s = 0 TO LEN(string$)*8 STEP 8
FOR m = 0 TO 7 // 1 to 10

FOR n = s+0 TO s+8

IF GETPIXEL(100+n,100+m)>RGB(254,254,254)
bin$=bin$+"1"
SETPIXEL 100+n,100+m,0x000000
ELSE
bin$=bin$+"0"
ENDIF
nn=n
IF LEN(bin$)=9
countbin=0
LOCAL u AS udg
u.binary$=bin$
DIMPUSH udgs[],u
bin$=""
ENDIF
NEXT

NEXT
NEXT

LOCAL cnt%=0
LOCAL space%=0
FOREACH uu IN udgs[]
INC cnt,8
IF cnt = 64
INC space,64
cnt = 0
ENDIF

FOR pp = 0 TO 7
IF MID$(uu.binary$,pp,1)=0 THEN ALPHAMODE -.1
PRINT ".",30+(pp*8/1.8)+space,200+cnt/1.8
ALPHAMODE -.99
NEXT
NEXT
SHOWSCREEN
WEND


[WPShadow]

Nice one! 

Everything is prepared for the next competition... We will see in the poll on sunday who's the winner! 

[SnooPI]

Finally, I really voted for Hemlos (I was not going to vote for me ).
But frankly, all the codes are good because they are all different, well done guys! 

[dreamerman]

ah.. can't decide, all entries have something interesting.. btw. WPShadow You forgot to include yourself in poll

[WPShadow]

I'm only the "promoter" of the contest, so my code will only be some kind of example...

I've a great idea for the next contest and will set it up this week, if somebody would like to join it 

[Hemlos]

 
The string object lib i used, is up-to-date and ready to rock and roll.
Feel free to use it if you find handy, enjoy.

[WPShadow]

Thank you!