Page 1 of 1

Koodaa avatar kilpailu

Posted: Mon Oct 01, 2007 8:01 pm
by Arska
Koodaa Avatar Kilpailu

Säännöt:
-Järjestäjät eivät saa osallistua.
-Ei kuvia.
-Rivi rajoitus 50.
-Koodissa ei saa käyttää : merkkejä.
-Kuvassa on oltava tekijän nimi.
-Text, Print, write tai addtextia ei saa käyttää
-Rand funktiota ei saa käyttää.
-Avatarin koko Leveys: 100 pix Korkeus: 100 pix

Palkinto:
-Mainetta ja Kunniaa!
-Banneri (koko: 100x37 pix)

Töiden palautus 12.10 kello 00:00 mennessä.
Töiden äänestys topic avataan 12.10 kello 00.00, joka loppuu 15.10 kello 21:00

Onnea kilpailuun!

Järjestäjät:
Arska
Leonarven

Jos on jotain kysyttävää, kysykää tässä!
EDIT:

Palkintoihin on lisätty Banneri voittajalle.

EDIT:

Sääntö muutos! Min ja max ovat sallittuja!


Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 12:11 am
by koodaaja
Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

file = OpenToRead( "kuva.txt" )
For x = 0 To 100
   For y = 0 To 100
       Color ReadInt(file), ReadInt(file), ReadInt(file)
       Dot x,y
   Next y
Next x
DrawScreen
WaitKey
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

kuvatus = LoadImage("kuva.bmp")
file = OpenToWrite("kuva.txt")
For x = 0 To 100
   For y = 0 To 100
       PickImageColor kuvatus,x,y
       WriteInt file, getRGB(RED)
       WriteInt file, getRGB(GREEN)
       WriteInt file, getRGB(BLUE)
   Next y
Next x
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.

Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 4:24 pm
by Arska
koodaaja wrote:Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

Koodia...
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

Koodia...
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.
Rikoit sääntöä:
-Ei kuvia.

Ohjelmassa käytetään apuna kuvaa ja säännöt kieltävät kuvien käytön. Voit vielä tehdä uuden työn.

Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 4:26 pm
by koodaaja
Arska wrote:
koodaaja wrote:Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

Koodia...
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

Koodia...
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.
Rikoit sääntöä:
-Ei kuvia.

Ohjelmassa käytetään apuna kuvaa ja säännöt kieltävät kuvien käytön. Voit vielä tehdä uuden työn.
Aimut, tuohan on tiedosto! .txt -sellainen. Ei mikään kuva. Toki tuo muunnin niitä käyttää, mutta siitä ei mainittu mitään. Se ei liity muuten varsinaiseen kilpailutyöhön, mutta foorumi ei hyväksy .txt -liitteitä.

Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 5:18 pm
by Ilmuri
Txt-tiedosto on kuva, jos varastoit sen sisään kuvan. Miten luulet vaikkapa digikameroiden tallentamien raakakuvatiedostojen toimivan? :/
EDIT:

Ja niin joo, miksi perkeleessä min ja max on kielletty?


Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 5:38 pm
by Arska
Ilmuri wrote:
EDIT:

Ja niin joo, miksi perkeleessä min ja max on kielletty?

Ihan vain Haasteen vuoksi laitoimme sen Leonarvenin kanssa.

Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 6:27 pm
by atomimalli
En vielä tiedä, että osallistunko, mutta minulta minin ja maxin puuttuminen veisi koko ilon. se on yksi tärkeimmistä rivioptimoinnin elementeistä grafiikan parissa ja tässähän oli tarkoitus puristaa työ mahdollisimman pieneen kokoon.
<3 max and min :(

Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 6:42 pm
by Arska
Voin kyllä ottaa säännön pois jos liittyminen riippuu siitä.
EDIT:

Sääntö poistettu


Re: Koodaa avatar kilpailu

Posted: Tue Oct 02, 2007 8:27 pm
by Quru
Jos tiedosto sisää kuvadataa, se on kuva, oli päätteenä sitten .txt .bmp tai vaikka .rotflmao

Re: Koodaa avatar kilpailu

Posted: Sun Oct 07, 2007 5:28 pm
by elmo123
Oma rehellinen tekeleeni :D :

Code: Select all

imgUkko= MakeImage(64,64)
DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
    
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
    
    For angle = 160 To 20 Step -1
    
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
    
    Next angle

DrawToScreen 
Elikkä esittää surunaamaa (voihan tuon muuttaa hymynaamaks :) )
EDIT:

drawtoimage failed.
Joku pikku häiriö varmaan copypastessa. Editoin tuon MakeImagen mukaan[/edit]

Re: Koodaa avatar kilpailu

Posted: Sun Oct 07, 2007 8:29 pm
by -Z-
elmo123 wrote:Oma rehellinen tekeleeni :D :

Code: Select all

DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
    
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
    
    For angle = 160 To 20 Step -1
    
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
    
    Next angle

DrawToScreen 
Elikkä esittää surunaamaa (voihan tuon muuttaa hymynaamaks :) )
Drawtoimage failed.

Re: Koodaa avatar kilpailu

Posted: Mon Oct 08, 2007 5:43 pm
by TheDuck
Elmon koodi toimii näin:

Code: Select all

imgUkko= MakeImage(64,64)
DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
   
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
   
    For angle = 160 To 20 Step -1
   
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
   
    Next angle

DrawToScreen
Repeat
DrawImage imgUkko,10,10
DrawScreen
Forever 
Lisäsin loopin ja kuvan piirron.

Re: Koodaa avatar kilpailu

Posted: Fri Oct 12, 2007 11:55 pm
by leonarven
Noniin. Kilpailuaika on päättynyt.
Tämän viestiin jälkeen lähetettyjä teoksia ei hyväksytä.

Arskan pyynnöstä minä, toisena järjestäjänä, pistän pystyyn äänestystopikin sekä lopetan tämän vanhan.

Joten, lyhemmittä puheitta, Kiitämme Arskan kanssa kaikkia osallistuja ja
kehoitamme kaikkia ihmisiä, kautta maan, äänestämään parasta koodattua avataria.

Sir Napi Von Leonarven