LRIPhoto

LRIPhoto est un paquet pour Tk écrit avec critcl par La Rochelle Innovation pour la manipulation rapide d'images Tk.

Après chargement, (avec package require LRIPhoto) la version actuelle (1.0) fournit deux commandes :

 ::LRI::imgtransform imgTk ?-rotate angle? ?-scale echelle? ?-gray booléen? ?-bw booléen?

 ::LRI::imgcopy imgTkSrc imgTkDest ?-rotate angle? ?-scale echelle? ?-gray booléen? ?-bw booléen?

Les manipulations sont identiques pour les deux commandes, sauf que imgtransform modifie une image alors qu'imgcopy modifie imgTkDest sans toucher à l'image source imgTkSrc.

Dans tous les cas, les images doivent exister avant d'invoquer les commandes.

Effets des commandes :

-rotate angle: tourne l'image de $angle degrés (0, 90, 180 ou 270° seulement).
-scale echelle: ajuste la taille de l'image à $echelle % de sa taille nominale (echelle doit être un entier).
-scalex echelle: ajuste la largeur de l'image à $echelle % de sa taille nominale (echelle doit être un entier).
-scaley echelle: ajuste la hauteur de l'image à $echelle % de sa taille nominale (echelle doit être un entier).
-gray booléen: passe l'image en niveaux de gris (accepte 0, 1, true ou false).
-bw booléen: passe l'image en noir et blanc tramé (accepte 0, 1, true ou false).

A noter :

 ::LRI::imgcopy imgTkSrc imgTkDest

Utilisée sans option, imgcopy se contente de copier l'image imgTkSrc dans imgTkDest

Téléchargement :

Version critcl originale :

 http://wfr.tcl.tk/fichiers/pub/LRIPhoto.kit

Version modifiée pour odyce :

 http://wfr.tcl.tk/fichiers/pub/LRIPhoto_critcl.zip

Le starkit comprend les binaires pour linux, windows et Mac OSX ; les sources sont également incluses. Si vous sourcez ce starkit, le package sera disponible, tandis que si vous l'exécutez, la démo décrite ci-dessous sera exécutée.

Toute contribution (améliorations, nouvelles fonctions, ou binaires pour d'autres plate-formes) seront les bienvenues.

Licence :

Cette extension est placée sous licence OLL.

Voici un programme pour tester les effets des commandes :

  package require Tk
  catch {package require Img} ; # Without you can only works with GIF.
  package require LRIPhoto

  # var
  variable ::imgN none
  variable ::angle 0
  variable ::gray 0
  variable ::bw 0
  variable ::scale 100
  image create photo imgTkDest

  # Procs
  proc openImage {} {
    set ext {
      {{Images} {*.gif *.bmp *.tif *.jpg *.png}}
    }
    set title "Choose a bitmap"
    catch "image delete imgTkSrc"
    set baseimg [tk_getOpenFile -filetypes $ext -title $title -parent .]
    if {[file exists $baseimg] && ![catch {image create photo imgTkSrc -file $baseimg}]} {
      set ::imgN [file tail $baseimg]
      .do configure -state normal
      update
    } else {
      set ::imgN none
      .do configure -state disabled
      update
    }
  }
  proc DoIt {} {
    catch "::LRI::imgcopy imgTkSrc imgTkDest -rotate $::angle \
        -scale $::scale -gray $::gray -bw $::bw"
  }

  # Gui
  wm title . "LRIPhoto demo"
  grid [frame .f1] -sticky w
  button .f1.b -text image -command openImage
  label .f1.i -textvariable ::imgN
  grid .f1.b .f1.i -sticky w
  grid [frame .f2] -sticky w
  label .f2.l -text "Angle :"
  radiobutton .f2.a0 -text 0° -value 0 -variable ::angle
  radiobutton .f2.a90 -text 90° -value 90 -variable ::angle
  radiobutton .f2.a180 -text 180° -value 180 -variable ::angle
  radiobutton .f2.a270 -text 270° -value 270 -variable ::angle
  grid .f2.l .f2.a0 .f2.a90 .f2.a180 .f2.a270 -sticky w
  scale .s -label "scale (%)" -from 1 -to 200 -showvalue 1 -variable ::scale \
      -orient horizontal -relief raised
  grid .s -sticky ew
  grid [frame .f3] -sticky w
  label .f3.l -text "Convert to :"
  checkbutton .f3.g -text Gray -variable ::gray
  checkbutton .f3.b -text B&W -variable ::bw
  grid .f3.l .f3.g .f3.b -sticky w
  grid [button .do -text Process -command DoIt -state disabled] -sticky we
  grid [label .l -image imgTkDest]

Applications qui utilisent LRIPhoto :

Voir également : Pixane.

Catégorie Paquet