기타 이미지 처리 Img_Rotate, Anigif

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

그밖에

• Image 1.2: Tcl+Image로 이미지 처리를 할 수 있습니다. Tk는 필요하지 않습니다.
• XBit: Tcl/Tk+XBit으로 이미지 처리를 할 수 있습니다. 이미지에 관련된 수많은 Tcl 패키지를 제공하며 한 번쯤 둘러보는 것도 좋을 것입니다.