Author Topic: Hello World - Contest  (Read 2339 times)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #15 on: 2019-Mar-25 »
Should we raise the deadline? 15.04.? Or longer?
« Last Edit: 2019-Mar-25 by 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

Offline Snoopy

  • Dr. Type
  • ****
  • Posts: 290
    • View Profile
Re: Hello World - Contest
« Reply #16 on: 2019-Mar-25 »
If it's too long, it'll be boring.
Small contest, small deadline  :)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #17 on: 2019-Mar-26 »
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

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5024
  • O Rly?
    • View Profile
Re: Hello World - Contest
« Reply #18 on: 2019-Mar-29 »
Still working on my version of Hello World.... it's to complicated, so i win?  :-[ :-[ :-[
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline dreamerman

  • Global Moderator
  • Dr. Type
  • *******
  • Posts: 288
    • View Profile
    • my personal website
Re: Hello World - Contest
« Reply #19 on: 2019-Mar-29 »
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

Offline Hemlos

  • To boldy go where no pixel has gone before!
  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 1635
  • Particle Hawk
    • View Profile
Re: Hello World - Contest
« Reply #20 on: 2019-Mar-29 »
i have a guess, the code will procrastinate  :good:
Volume_of_Earth(km^3) = 4/3*3.14*POW(6371.392896,3)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #21 on: 2019-Apr-01 »
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

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5024
  • O Rly?
    • View Profile
Re: Hello World - Contest
« Reply #22 on: 2019-Apr-01 »
I never start, it was a joke :D....
Maybe today, you will see, or not  ^^
« Last Edit: 2019-Apr-01 by Schranz0r »
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline MrPlow

  • Prof. Inline
  • *****
  • Posts: 1545
    • View Profile
Re: Hello World - Contest
« Reply #23 on: 2019-Apr-01 »
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
 
« Last Edit: 2019-Apr-01 by MrPlow »
Comp:
Speccy-48k, Speccy-128k, Amigas, PCs

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #24 on: 2019-Apr-02 »
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

Offline Snoopy

  • Dr. Type
  • ****
  • Posts: 290
    • View Profile
Re: Hello World - Contest
« Reply #25 on: 2019-Apr-03 »
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:

Offline dreamerman

  • Global Moderator
  • Dr. Type
  • *******
  • Posts: 288
    • View Profile
    • my personal website
Re: Hello World - Contest
« Reply #26 on: 2019-Apr-06 »
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

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #27 on: 2019-Apr-08 »
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

Offline Hemlos

  • To boldy go where no pixel has gone before!
  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 1635
  • Particle Hawk
    • View Profile
Re: Hello World - Contest
« Reply #28 on: 2019-Apr-09 »
 :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.
Volume_of_Earth(km^3) = 4/3*3.14*POW(6371.392896,3)

Offline WPShadow

  • Administrator
  • Prof. Inline
  • *******
  • Posts: 1667
    • View Profile
    • http://lostrevenant.blogspot.com
Re: Hello World - Contest
« Reply #29 on: 2019-Apr-09 »
Thank you!
 :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