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 »

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 »

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

Image
Millä? Mihin?
regalis
Advanced Member
Posts: 268
Joined: Mon Aug 27, 2007 9:44 pm

Re: Peilikuva

Post by regalis »

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

Re: Peilikuva

Post by Henkru »

Paint, GIMP, Photosop etc. Peilaustoiminto.
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Peilikuva

Post by temu92 »

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 11:17 am
Location: Espoo

Re: Peilikuva

Post by MetalRain »

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
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Peilikuva

Post by Koodiapina »

Jos taustan ei tarvitse muuttua, ehdotan moninkertaisesti nopeampaa tapaa:

Code: Select all

mirrorimg = CloneImage(img)
ResizeImage mirrorimg,ImageWidth(img),-ImageHeight(img)
Walty
Newcomer
Posts: 12
Joined: Wed Sep 15, 2010 8:29 pm
Location: Vaasa

Re: Peilikuva

Post by Walty »

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

Re: Peilikuva

Post by Akuji »

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. :)
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Peilikuva

Post by MaGetzUb »

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