#!/usr/bin/tclsh
package require Tk
package require Img

# Basis-Icons laden
image create photo basis   -file [file join icons emblem-people.png]
image create photo dreieck -file [file join icons dreieck.png]

# Zusammenfügen durch Addieren
image create photo kombi
kombi copy basis   -to  0  0
kombi copy dreieck -to 15 15

# Zusammenfügen durch Überschreiben
image create photo kombi2
kombi2 copy basis   -to  0  0
kombi2 copy dreieck -to 15 15 -compositingrule set

# Statusanzeige 
image create photo status
status put  red   -to 0 0 15 15
status copy basis -to 4 4

# Darstellung 
label .dreieck -image dreieck -text "Dreieck"  -compound top
label .basis   -image basis   -text "Basis"    -compound top
label .kombi   -image kombi   -text "Zusammen" -compound top
label .kombi2  -image kombi2  -text "Zusammen mit set" -compound top
label .status  -image status  -text "Statusanzeige" -compound top
grid .dreieck .basis .kombi .kombi2 .status -padx 10 -sticky s