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
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:
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
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:
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ä.
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
:
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
)
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
:
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