CoolBasic Forums

Posted: **Tue Jul 29, 2008 1:15 am**

Tässä on oma elvistelyn aiheeni.

No tuas äskeen kun kävin cbkk:ssa näin sielä sami345:en tekemän funktion. Noh päätinpä tehdä sitten oman...

Itse isometrinen teksti piirretään kuvaan, eli sitä ei voi muokata lennossa. Epäilen jos sellainen tuo olisi niin se voisi olla toodella hidas.

Tämä ei ole samanlainen kuin muut isometriset teksti funktiot. Koodi voi olla sekavaa, ja kommentteja on vähän, mutta sisennykset löytyy.

...Ja tässä on lopputulos:

Code: Select all


     fontti = LoadFont("Arial",22,1) //Fontti joka ladataan...
     
     SetFont fontti //Asetetaan fontti käyttö kuntoon.
     Color 0,200,255 //Asettaa vaalean sinisen väriksi
    
    isotext1 = ISOmetricText2("CoolBasic Rulez!",20) //Nyt käytetään alenpana luotua  funkkaria.

Repeat 
   
   DrawImage isotext1,0,0 //Piirtää funktiolla luodun tekstin 0,0 koordinaatteihin

DrawScreen
Forever 








//Luodaan funktio
Function ISOmetricText2(Txt$,W)

   img = MakeImage(TextWidth(txt),TextHeight("|")) //Tehdään päällis kuva
   img2 = MakeImage(TextWidth(txt),TextHeight("|")) // Tehdään Syvyys vaikutelma kuva
   img3 = MakeImage(TextWidth(txt)+w,TextWidth(txt)/2+w) // Tehdään lopputuloskuva

DrawToImage img //Piirretään päällys tekstiin.

     Text 0,0,txt$ //Piirretään teksti kuvaan.

DrawToImage img2 //Piirretään syvyys vaikutelma tekstiin

      If getRGB(RED) > 80 Then R = getRGB(RED)-40 //Jos punaisen värin arvo on enenmän kuin 80 niin vähennetään arvosta 40 ja tehdään siitä oma muuttuja.
      If getRGB(GREEN) > 80 Then G = getRGB(GREEN)-40//Sama vihreälle komponentille 
      If getRGB(BLUE) > 80 Then B = getRGB(BLUE)-40//Kuin siniselle.
  
      Color R,G,B //Asettaa ns. luodut rgb komponentit väriksi
      Text 0,0,txt$ //Piirtää tekstin kuvaan

DrawToImage  img3 //Piirretään img3:een

   For iw = 1 To w // ns. syvyydelle tarkoitettu muuttuja
   For i = 1 To ImageWidth(img) //Mennään img pikselit läpitse, img2 ei tarvitse erikseen, koska ne on kummatkin sama kuva img3 vain vähän tummempi
            DrawImageBox img2,i+iw,iw-w+ImageHeight(img3)-ImageHeight(img)-Sin(22.5)*i,i,0,1,ImageHeight(img) //Piirretään Ensinmäisenä 'syvyys'
            DrawImageBox img,w+i,ImageHeight(img3)-ImageHeight(img)-Sin(22.5)*i,i,0,1,ImageHeight(img)//Sitten pääteksti
   
   Next i
   Next iw
   
DrawToScreen

Return img3 //Palauttaa lopputulos kuvan

        DeleteImage img //Tuhoaa päällis kuvan muistista
        DeleteImage img2 //Sama img2:elle
        DeleteImage img3 //Se myös funnktiossa luodulle lopputulos kuvalle, tätäkään ei enää tarvita, kun se menee toiseen muuttujaan pää ohjelmassa.
EndFunction

Kommentoikaa ihmeessä, haluan tietää mitä olette mieltä.

Posted: **Tue Jul 29, 2008 9:59 am**

Eikös isometrisessä mennä kaksi vaakasuunnassa ja yksi pystysuunnassa? Itse efekti on kuitenkin ihan OK, vaikka samanlainen on tehty aikaisemminkin nimellä 3DText (Joka ei tosin ollut 3D:tä).

EDIT: Uuden servun takia linkki ei toimi.

Posted: **Tue Jul 29, 2008 11:57 pm**

No ainakin turhaan yrität poistaa DeleteImagella kuvat muistista return komennon jälkeen... ei niitä enää suoriteta.

Posted: **Wed Jul 30, 2008 11:05 am**

AI? Minä luulin että funkitot suoritetaan loppuun asti. No pitääpä tuokin epäselvyys korjata...

EDIT:

Ja kyllä Grandi, tämä on isometristä...
http://www.isopics.com/images/isopics_text.gif < Tossa on googlettamani isometrisen tekstin kuvahaku ja siinä vielä tarkennettuna kuva..

Posted: **Fri Aug 01, 2008 2:17 am**

Vielä kun koodaat tuohon varjostukset (siis kirjaimiin, ei "maahan"), niin voin olla kanssasi samaa mieltä isometrisyydestä.

Posted: **Fri Aug 01, 2008 10:16 am**

Tuossa linkittämässäsi kuvassa menee kaksi vaakasuunnassa ja yksi pystysuunnassa, ja omassa versiossasi menee yksi vaakasuunnassa ja yksi pystysuunnassa. Ei ole minun mielestäni täysin 100%.

Posted: **Fri Aug 01, 2008 11:04 am**

Ai grandi, tarkoitat siis että se kulma on liian tylppä, no korjaa se itsellesi sopivaksi koodissa...
Ja misthema, se varjostus on vielä pikkuisen hankala asia..

EDIT:

Riippuu vähän isometrisestä pelistä, miten se isometrinen laatikko piirretään.

Posted: **Fri Aug 01, 2008 11:10 am**

Eihän tuo ole 100% isometristä tekstiä....Hiano kuitenkin.
Tuolta kun luet ton niin selviää sinullekkin.

Posted: **Fri Aug 01, 2008 4:57 pm**

Tein avatarin tuolla.

Posted: **Fri Aug 01, 2008 8:44 pm**

Offtopicckina vaa:

MikkoK141 wrote:Tein avatarin tuolla.

Katsoinkin sitä pikkuisen..

Mutta minun mielestäni tämä on isometristä, laittakaa vaikka isometrinen ns. <> <- laatikko sinne alle tuohon tyyliin..

Posted: **Sat Aug 02, 2008 6:48 pm**

Kun se ei ole mielipidekysymys, ei sitten ollenkaan. Isometrisessä piirroksessa viivat kulkevat 0, 30, 45, 60, 90 ja niin edelleen asteen kulmissa, tietysti pyöreitä muotoja lukuun ottamatta. Tosin tietokonegrafiikassa hyväksytään 29,x (vai oliko 28,x) koska se näyttää niin paljon paremmalta. Tuo ei siis ole edes lähellä isometristä, joten otsikko hämää aika pahasti.

Muuten hiano funkkari.

Posted: **Wed Sep 03, 2008 4:10 pm**

Hm? mielestäni tätä kutsutaan aksonometriseksi, muistelisin vain..

Posted: **Wed Sep 03, 2008 4:27 pm**

Kehtaisin väittää että olet oikeassa, vaikka tukenani on vain pikainen Googletus. Tai no ei sillä nimityksellä ole mitään väliä, kunhan kaikki ovat yhteisymmärryksessä, että se ei ole ainakaan isometristä :D

Posted: **Wed Sep 03, 2008 5:35 pm**

Tuon tekstin etuosa ilman pidennytä kyllä menee isometrisesti mutta jatko-osa menee joko sääntöjen vastaisesti tai sitten sen on tarkoitus olla ilmassa sen toisen pään. Mikäli sen ei ole tarkoitus nousta ilmaan niin tässä on oikea koodi:

Code: Select all

     fontti = LoadFont("Arial",22,1) //Fontti joka ladataan...
     
     SetFont fontti //Asetetaan fontti käyttö kuntoon.
     Color 0,200,255 //Asettaa vaalean sinisen väriksi
    
    isotext1 = ISOmetricText2("CoolBasic Rulez!",20) //Nyt käytetään alenpana luotua  funkkaria.

Repeat 
   
   DrawImage isotext1,0,0 //Piirtää funktiolla luodun tekstin 0,0 koordinaatteihin

DrawScreen
Forever 








//Luodaan funktio
Function ISOmetricText2(Txt$,W)

   img = MakeImage(TextWidth(txt),TextHeight("|")) //Tehdään päällis kuva
   img2 = MakeImage(TextWidth(txt),TextHeight("|")) // Tehdään Syvyys vaikutelma kuva
   img3 = MakeImage(TextWidth(txt)+w,TextWidth(txt)/2+w) // Tehdään lopputuloskuva

DrawToImage img //Piirretään päällys tekstiin.

     Text 0,0,txt$ //Piirretään teksti kuvaan.

DrawToImage img2 //Piirretään syvyys vaikutelma tekstiin

      If getRGB(RED) > 80 Then R = getRGB(RED)-40 //Jos punaisen värin arvo on enenmän kuin 80 niin vähennetään arvosta 40 ja tehdään siitä oma muuttuja.
      If getRGB(GREEN) > 80 Then G = getRGB(GREEN)-40//Sama vihreälle komponentille 
      If getRGB(BLUE) > 80 Then B = getRGB(BLUE)-40//Kuin siniselle.
  
      Color R,G,B //Asettaa ns. luodut rgb komponentit väriksi
      Text 0,0,txt$ //Piirtää tekstin kuvaan

DrawToImage  img3 //Piirretään img3:een

   For iw = 1 To w // ns. syvyydelle tarkoitettu muuttuja
   For i = 1 To ImageWidth(img) //Mennään img pikselit läpitse, img2 ei tarvitse erikseen, koska ne on kummatkin sama kuva img3 vain vähän tummempi
            DrawImageBox img2,i+iw,iw/2-w/2+ImageHeight(img3)-ImageHeight(img)-Sin(22.5)*i,i,0,1,ImageHeight(img) //Piirretään Ensinmäisenä 'syvyys'
            DrawImageBox img,w+i,ImageHeight(img3)-ImageHeight(img)-Sin(22.5)*i,i,0,1,ImageHeight(img)//Sitten pääteksti
   
   Next i
   Next iw
   
DrawToScreen

Return img3 //Palauttaa lopputulos kuvan

        DeleteImage img //Tuhoaa päällis kuvan muistista
        DeleteImage img2 //Sama img2:elle
        DeleteImage img3 //Se myös funnktiossa luodulle lopputulos kuvalle, tätäkään ei enää tarvita, kun se menee toiseen muuttujaan pää ohjelmassa.
EndFunction

Posted: **Wed Sep 03, 2008 8:48 pm**

Juuri tuollaisen sain itsekkin joskus tässä viikko pari sitten tehtyä, mutta enpä lähettäny sitä tänne foorumille.

Mutta tällainen on justiin eikä melkeen isometristä.

CoolBasic Forums

IsometricText2 - Piirtää Tekstin 100% isometrisesti

IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti

Re: IsometricText2 - Piirtää Tekstin 100% isometrisesti