6.7.3 Und wenn Sie es negativ wollen?

Um aus einem Bild das Negativbild zu bekommen, können Sie den gleichen Prozess benutzen, außer dass an Stelle den Durchschnitt der Zahlen R G B zu ermitteln, Sie die Zahl durch die ersetzen, die Sie bekommen wenn Sie sie von 255 subtrahieren. Z. B.: Wenn ein Bildelement die Farbe [2 100 200] hat, ersetzen Sie sie durch die Farbe [253 155 55].

Nur die Prozedur pixel muss zum folgenden Programm geändert werden:

  lerne grauwert2 :c
    wenn :y=-100 [stoppe]
    wenn :c=100 [setze "c 0 setze "y :y-1]
    setzestiftfarbe pixel2 findefarbe liste :c :y
    pixel2 liste :c :y
    grauwert2 :c+1
  Ende

Abbildung 6.6: XLogo täuscht vor GIMP zu sein... (anmaßend? :-))

  lerne transform2
    # Sie müssen den Pfad zu dem Bild transfo.png ändern
    # eg: setzeordner "c:\\my_images ladebild "transfo.png]
    versteckeigel löschebild setzeordner "/heim/loic 
    ladebild "transfo.png setze "y 0 grauwert2 0
  Ende
  
  lerne pixel2 :list
    setze "r erstes :list
    setze "list ohneerstes :list
    setze "g erstes :list
    setze "liste ohneerstes :list
    setze "b erstes :list
    rückgabe satz liste 255-:r 255-:g 255-:b
  Ende