#!/bin/tcsh
#
#   Convertejpg 
#
#   script que converte uma serie de imagens num diretorio para um mesmo tamanho 
#   e para um qualidade especificados. Coloca a maior dimensao da imagem neste 
#   tamanho
#
#              Fabricio Ferrari, nov 2004



    ##convert -quality 50 -geometry 800 foto002.JPG teste.jpg


    #extensao dos arquivos
    set ext       = "jpg"
    set qualidade = 85
    set tamanho   = 800
    set diretorio = "pequenas" 


    # cria diretorio para colocar as imagens reduzidas
    if ( `test -d ${diretorio}` != 0 ) mkdir ${diretorio}

    # muda o nome dos arquivos JPG -> jpg
    if ( `ls *JPG` != "") then 
    	foreach JJ ( *JPG )
    		set nome = `basename ${JJ} .JPG`
    		echo "mv: ${nome}.JPG -> ${nome}.jpg "
    		mv -i ${nome}.JPG ${nome}.jpg
    	end
    endif
    
    
    
    foreach FF ( *${ext} )

	set nome = `basename $FF .${ext}`


	# DESCOBRE qual e' maior: largura ou altura
	set largura = `identify -format "%w" ${FF}`
	set altura  = `identify -format "%h" ${FF}`

	# se altura maior
	set prefixo = ''
	test ${altura} -ge ${largura}
	if ( $status == 0 ) then 
	    # coloca o prefixo para "-geometry x800" do convert
	    set prefixo = 'x'
	endif


	echo "Convertendo ${FF}: qualidade=${qualidade} tamanho=${tamanho}"
	convert -quality ${qualidade} \
		-geometry ${prefixo}${tamanho} \
		${nome}.${ext}   ${diretorio}/${nome}-peq.${ext}
    end
