You are here

Glyphs 1.0.1

admin의 아바타

홈페이지: http://wiki.tcl.tk/37854
데모 홈페이지: http://wiki.tcl.tk/37842

Glyphs is a pure-tcl library for digging into TrueType font-files.
Glyphs is able to extract the vectorial paths of each glyph - points, lines, curves.

아래는 폰트 패스 정보를 canvas의 아이템으로 변경시키는 함수 입니다.

...
set L [$g103 get paths]
{{M 99 714} {Q 99 1079 295.0 1285.5} ...}
{{M 299 711} {Q 299 446 441.5 293.5} ... }
{{M 516 1556} {L 516 1761} ... }
{{M 889 1556} {L 889 1761} ...}
...

proc Paths2Canvas { cvs paths } {
    foreach path $paths {
         # first command should be M (MOVETO)

        foreach pCmd $path {
            set points [lassign $pCmd cmd]
            switch -- $cmd {
                M {
                    ;
                }
                L {
                        $cvs create line $lastX $lastY {*}$points
                }
                Q {
                    $cvs create line $lastX $lastY {*}$points -smooth true
                }
                default { error "unrecognized path command \"$cmd\"" }            
            }
            set lastX [lindex $points end-1]
            set lastY [lindex $points end]            
        }
    }
}

첨부 파일파일 크기
Package icon Glyphs-1.0.1.zip262.57 KB
Package icon Glyphs-demo-1.0.1.zip525.35 KB