Tcl/Tk의 기타 이미지 처리를 위한 확장 패키지를 소개합니다.
Img_Rotate
http://cardtable.sourceforge.net/tcltk/
Img_Rotate는 이미지를 회전시켜 주는 패키지이며, 순수 Tcl로 쓰였습니다.
package require img_rotate
pack [canvas .can -width 100 -height 100]
image create photo foo -file ca03.gif
.can create image 0 0 -image foo -anchor nw
# 90도 회전
::img_rotate::img_rotate foo R
# 왼쪽으로 90 회전
::img_rotate::img_rotate foo L
# 180도 회전
::img_rotate::img_rotate foo U
Anigif
http://cardtable.sourceforge.net/tcltk
애니메이션 GIF를 포맷을 출력해 주며, 순수 Tcl로 쓰였습니다.
package require anigif
pack [label .l]
# 애니메이션 GIF의 start
::anigif::anigif ani-016.gif .l
after 2000
# 애니메이션 GIF의 stop
::anigif::stop .l
after 2000
# 애니메이션 GIF의 restart
::anigif::restart .l
after 3000
# 애니메이션 GIF의 파괴
::anigif::destroy .l