notgne2/tuxpaint-pencil-sharpener
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

upgrade to Tuxpaint 0.9.16-rc4

Browse source
This commit is contained in:
Song Huang 2006-10-15 13:43:32 +00:00
parent 07526a4ed5
commit 020b754a11
1 changed files with 65 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

131
fonts/locale/zh_tw_docs/tuxpaintsubset.pe
View file

@ -1,66 +1,65 @@
#!/usr/bin/env fontforge #!/usr/bin/env fontforge
# >> The script first draft by Edward Lee<Edward.bbs@bbs.sayya.org>. << # <% The script first draft by Edward Lee<Edward.bbs@bbs.sayya.org>. %>
# Copyright: Song Huang <song@song.idv.tw> # Copyright: Song Huang <song@song.tw>
# License: GUN GPL # License: GUN GPL
# 2004/10/26 # create: 2004/10/26
# modify: 2006/10/15
if ($argc < 4)
Print("usage: ", $0, " orig.ttf generate.ttf char_num [char_num ...]") copyright="Song Huang <song@song.tw>"
Quit(1) ver="0.2"
endif
if ($argc < 4)
Print("Loading ", $1, "...") Print("usage: ", $0, " orig.ttf generate.ttf char_nu [char_num ...]")
Open($1) Quit(1)
endif
a=Array(($argc - 3))
Print("argc = " + $argc) Print("Loading ", $1, "...")
i=3 Open($1)
while ( i < $argc )
a[(i-3)]=Strtol($argv[i]) a=Array(($argc - 3))
# Print(">> " + $argv[i]) Print("argc = " + $argc)
i++ i=3
endloop while ( i < $argc )
a[(i-3)]=Strtol($argv[i])
i=$argc - 4 # Print(">> " + $argv[i])
while ( i >= 0 ) i++
SelectMore(a[i]) endloop
i--
endloop i=$argc - 4
Copy() while ( i >= 0 )
SelectMore(a[i])
fontName=GetTTFName(0x404, 6) + "[Subset for TuxPaint] " i--
fontCopyRight=GetTTFName(0x404, 0) endloop
fontVersion=GetTTFName(0x404, 5) + "[Subset for TuxPaint] "
fontMaker="TuxPaint's Font Subset Maker" SelectInvert()
fontSample="TuxPaint Font Subset." Clear()
Close() fontName=GetTTFName(0x404, 6) + "[Subset for TuxPaint] "
fontCopyRight=GetTTFName(0x404, 0)
New() fontVersion=GetTTFName(0x404, 5) + "[Subset for TuxPaint] "
Reencode("unicode") fontMaker="TuxPaint's Font Subset Maker"
ScaleToEm(1024) fontSample="TuxPaint Font Subset."
# nameid=1 Font Family Name
SetTTFName(0x404,1,fontName) # nameid=1 Font Family Name
# nameid=4 Full Font Name SetTTFName(0x404,1,fontName)
SetTTFName(0x404,4,fontName) # nameid=4 Full Font Name
# nameid=5 Version string SetTTFName(0x404,4,fontName)
SetTTFName(0x404,5,fontVersion) # nameid=5 Version string
# nameid=6 Postscript name for the font SetTTFName(0x404,5,fontVersion)
SetTTFName(0x404,6,fontName) # nameid=6 Postscript name for the font
# nameid=8 Manufacturer Name SetTTFName(0x404,6,fontName)
SetTTFName(0x404,8,fontMaker) # nameid=8 Manufacturer Name
# nameid=19 Sample text SetTTFName(0x404,8,fontMaker)
SetTTFName(0x404,4,fontName) # nameid=19 Sample text
SetTTFName(0x404,4,fontName)
i=$argc - 4
while ( i >= 0 ) # Set font name
SelectMore(a[i]) SetFontNames("SubsetForTuxPaint","SubsetForTuxPaint","SubsetForTuxPaint","Book",copyright,ver)
i--
endloop AutoCounter()
Paste()
Print("Generating fonts...")
Print("Generating fonts...") Generate($2)
Generate($2) Close()
Close()
Quit(0)
Quit(0)