Peilikuva

Muu yhteisön välinen keskustelu.
Post Reply
Walty
Newcomer
Posts: 12
Joined: Wed Sep 15, 2010 8:29 pm
Location: Vaasa

Peilikuva

Post by Walty » Sat Sep 18, 2010 8:48 pm

Elikkä jos joku osaa sanoa, millä ohjelmalla ja miten voisin tehdä johonkin esim. tekstiin peilikuvan tähän tyyliin:

Image
Aloittelia.

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Peilikuva

Post by esa94 » Sat Sep 18, 2010 8:50 pm

Walty wrote:Elikkä jos joku osaa sanoa, millä ohjelmalla ja miten voisin tehdä johonkin esim. tekstiin peilikuvan tähän tyyliin:

Image
Millä? Mihin?

User avatar
regalis
Advanced Member
Posts: 268
Joined: Mon Aug 27, 2007 9:44 pm

Re: Peilikuva

Post by regalis » Sat Sep 18, 2010 8:57 pm

Paint?

Henkru
Advanced Member
Posts: 359
Joined: Sun Aug 26, 2007 2:46 pm

Re: Peilikuva

Post by Henkru » Sat Sep 18, 2010 9:01 pm

Paint, GIMP, Photosop etc. Peilaustoiminto.

User avatar
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Peilikuva

Post by temu92 » Sat Sep 18, 2010 9:38 pm

Peilikuvan saa tehtyä niin helposti millä tahansa ohjelmalla että käännät vain kuvan ylösalaisin kun olet skaalaamassa sitä.

User avatar
MetalRain
Active Member
Posts: 188
Joined: Sun Mar 21, 2010 12:17 pm
Location: Espoo

Re: Peilikuva

Post by MetalRain » Sat Sep 18, 2010 10:59 pm

Nyt kun kuitenkin ollaan CoolBasic foorumeilla niin täytyy ehdottaa CoolBasicin käyttöä esimerkiksi seuraavan koodin avustuksella:

Code: Select all

img = MakeImage(400,150)
mirrorimg = MakeImage(400,150)

f=LoadFont("impact",180)

//luodaan alkuperäinen kuva
DrawToImage img
For i=0 To 149
Color i*1.5,106+i,255
Line 0,i,400,i
Next i
SetFont f
Color 0,80,255
Text 5,15,"LOREM"
DrawToScreen 


//tässä tapahtuu kuvan kääntäminen

DrawToImage mirrorimg

//piirretään sininen pohja
Box 0,0,400,150,1

//käydään alkuperäisen kuvan pikselit läpi
For x=0 To 400
    For y=0 To 149
    
        //etitään kuvasta tekstinvärisiä pikseleitä
        PickImageColor img,x,y 
        If getRGB(RED)=0 And getRGB(GREEN)=80 And getRGB(BLUE)=255 Then 
        
            //piirretään ne valkoisina ja kääntäen pystysuunnassa
            Color cbwhite
            Dot x,149-y
        EndIf 
    Next y
Next x

DrawToScreen

Repeat

DrawImage img,0,0
DrawImage mirrorimg,0,150

DrawScreen 

Forever

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Peilikuva

Post by Koodiapina » Sun Sep 19, 2010 12:38 am

Jos taustan ei tarvitse muuttua, ehdotan moninkertaisesti nopeampaa tapaa:

Code: Select all

mirrorimg = CloneImage(img)
ResizeImage mirrorimg,ImageWidth(img),-ImageHeight(img)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

Walty
Newcomer
Posts: 12
Joined: Wed Sep 15, 2010 8:29 pm
Location: Vaasa

Re: Peilikuva

Post by Walty » Sun Sep 19, 2010 10:30 pm

Yritän koittaa tehdä jotai cbllä, mutta miten tekisin sen paintlla?
Aloittelia.

User avatar
Akuji
Member
Posts: 60
Joined: Fri Oct 08, 2010 5:59 pm
Location: Turku
Contact:

Re: Peilikuva

Post by Akuji » Tue Oct 12, 2010 10:22 pm

Itse tein peilikuvan Paintilla tähän tapaan:

-Ensiksi rajaat kuvan valintatyökalulla.
-Sitten kopioit kuvan alkuperäisen alapuolelle.
-Sen jälkeen valitset käännä tai kierrä -kohdasta "käännä pystysuunnassa" -toiminto.

Ja nyt saat aikaan peilatun kuvan. :)

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Peilikuva

Post by MaGetzUb » Wed Oct 13, 2010 1:03 am

Paintilla:
Valitse alue(rajaustyökalu) -> Control C(kopioit kohdan) -> Control V(Liitä kohta kopiointikohdan alapuolelle) -> Control + R -> valitse käännä pystysuunnassa -> Hienosäädä liitetyn kuvan paikkaa.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

Post Reply