Hello World - Contest

Previous topic - Next topic

WPShadow

#15
Should we raise the deadline? 15.04.? Or longer?
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

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...  :booze:
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

Schranz0r

Still working on my version of Hello World.... it's to complicated, so i win?  :-[ :-[ :-[
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

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 ;)
Check my source code editor for GLBasic - link Update: 20.04.2020

Hemlos

i have a guess, the code will procrastinate  :good:
Bing ChatGpt is pretty smart :O

WPShadow

Schranz0r, you should code faster...

The contest ends this weekend...   :good:
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

Schranz0r

#22
I never start, it was a joke :D....
Maybe today, you will see, or not  ^^
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

MrPlow

#23
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
Comp:
Speccy-48k, Speccy-128k, Amigas, PCs

WPShadow

Nice one!  :good:

Everything is prepared for the next competition... We will see in the poll on sunday who's the winner!  :booze:
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

SnooPI

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

dreamerman

ah.. can't decide, all entries have something interesting.. btw. WPShadow You forgot to include yourself in poll :D
Check my source code editor for GLBasic - link Update: 20.04.2020

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  =D
AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est

Hemlos

 :good:
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.
Bing ChatGpt is pretty smart :O

WPShadow

AMD X2 4600, 2 GB Ram, ATI X1950 XTX, XP PRO SP2: GLB Premium 10.beta_dingsi, <(´.´<) Kirby Dance (>`.`)>
http://lostrevenant.blogspot.com
alea iacta est