Kirjoittaja Aihe: Ravintojen lisäaineet l. E-koodit vihoksi.  (Luettu 1746 kertaa)

peran

  • Vieras
Ravintojen lisäaineet l. E-koodit vihoksi.
« : 25.02.07 - klo:14.52 »
Julkaisempas tässä nyt skriptin, jonka avulla voi tehdä Eviran (ent. Elintarvikevirasto) sivuilta löytyvästä E-koodi pdf:stä kunnollisen vihon.
Itse asiassa se onkin vihoksi tehty, mutta sivut alkuperäisessä on huonosti, ettei siitä suoraan saa tehdyksi vihkoa.
Tämän yksipuoleisen tulostimen toimivuutta en ole testannut, mutta lieneen toimii.

Koodi on kaikkea muuta kuin esimerkillinen, mutta se toimii.

Ohjelma tarvitsee ohjelmia psmerge ja convert, jotka löytyvät paketeista psutils ja imagemagick Ubuntun perusasetusten lisäksi.

Koodia: [Valitse]
#!/bin/bash
wget http://www.evira.fi/attachments/elintarvikkeet/elintarviketietoa/lisaaineet/e_koodiavain.pdf
convert -density 300 e_koodiavain.pdf e_koodiavain%d.png
j=0
convert -size 1749x1005 xc:white -compose over -composite -depth 8 "kukku.png"
convert -size 2010x1749 xc:white -compose over -composite -depth 8 "book.png"
convert -size 2479x3508 xc:white -compose over -composite -depth 8 "a4.png"
for i in 0 1 2 3 4 5 6 7
   do
   convert e_koodiavain$i.png -shave 365x749 trimmed$i.png
   convert -size 1749x1005 xc:white "trimmed$i.png" -compose over -composite -depth 8 "crop$i-a.png"
   convert -draw "image Over 0,-1005 1749,1005 trimmed$i.png" kukku.png "crop$i-b.png"
   convert -rotate -90 crop$i-a.png apage$i.png
   convert -rotate -90 crop$i-b.png bpage$i.png
   cp apage$i.png crop$i-a.png
   cp bpage$i.png crop$i-b.png
   done
   convert -rotate -90 trimmed0.png book0.png

   convert -draw "image Over 0,0 1005 1749 crop1-a.png" book.png 1b.png
   convert -draw "image Over 1006,0 1005 1749 crop7-b.png" 1b.png book1-7.png

   convert -draw "image Over 1006,0 1005 1749 crop1-b.png" book.png 1b.png
   convert -draw "image Over 0,0 1005 1749 crop7-a.png" 1b.png book7-1.png

   convert -draw "image Over 0,0 1005 1749 crop2-a.png" book.png 1b.png
   convert -draw "image Over 1006,0 1005 1749 crop6-b.png" 1b.png book2-6.png

   convert -draw "image Over 1006,0 1005 1749 crop2-b.png" book.png 1b.png
   convert -draw "image Over 0,0 1005 1749 crop6-a.png" 1b.png book6-2.png

   convert -draw "image Over 0,0 1005 1749 crop3-a.png" book.png 1b.png
   convert -draw "image Over 1006,0 1005 1749 crop5-b.png" 1b.png book3-5.png

   convert -draw "image Over 1006,0 1005 1749 crop3-b.png" book.png 1b.png
   convert -draw "image Over 0,0 1005 1749 crop5-a.png" 1b.png book5-3.png

   convert -draw "image Over 0,0 1005 1749 crop4-a.png" book.png 1b.png
   convert -draw "image Over 1006,0 1005 1749 crop4-b.png" 1b.png book4-4.png

   convert -density 300 -draw "image Over 234,100 2010 1749 book0.png" a4.png -density 300 1a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book1-7.png" a4.png -density 300 2a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book7-1.png" a4.png -density 300 3a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book2-6.png" a4.png -density 300 4a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book6-2.png" a4.png -density 300 5a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book3-5.png" a4.png -density 300 6a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book5-3.png" a4.png -density 300 7a4.ps
   convert -density 300 -draw "image Over 234,100 2010 1749 book4-4.png" a4.png -density 300 8a4.ps

   psmerge -opg1.ps 1a4.ps 3a4.ps
   psmerge -opg2.ps pg1.ps 5a4.ps
   psmerge -opg1.ps pg2.ps 7a4.ps

   psmerge -opg2.ps 2a4.ps 4a4.ps
   psmerge -opg3.ps pg2.ps 6a4.ps
   psmerge -opg2.ps pg3.ps 8a4.ps

for i in 2 3 4 5 6 7 8
   do
psmerge -opages.ps 1a4.ps ${i}a4.ps
cp pages.ps 1a4.ps
   done

echo "Toiset puolet tulostetaan pitkän sivun mukaan käännettynä:"
echo "Jos kaksipuoleinen tulostin aja:lpr pages.ps"
echo ""
echo "Jos yksipuoleisia tulostava malli aja ensin:lpr pg1.ps"
echo ", aseta paperit tulostumaan toisille puolille ja aja sitten:lpr pg2.ps"

Sivut kannattaa leikata kaikki yhdellä kertaa käyttäen kantta mittana kantta.

Kotibiokemistiä nyt e-koodit ainakin kiinnostavat.  :)

Edit - skripti kannattaa ajaa omassa kansiossaan ja syö muistia ihan sikana. Scriptin ajo kesti mulla n. 15 min 1.6GHz ja 1.25 Gt -koneella.
« Viimeksi muokattu: 25.02.07 - klo:14.59 kirjoittanut peran »