[OpenVerse] Linux additional font plugin.

[Cruise <cruise@openverse.org>]

Hello,

This plugin adds additional fonts to your OpenVerse client. You must be running
the CVS version of OpenVerse to use this, or just hold on to it untill the next
release, i'll post it on the web eventually.

to install, make a directory in ~/.OpenVerse/plugins/ named LinuxFonts
create a text file and put the stuff below into that file. The file should be
named PlugInit.tcl

#--------- cut here ---------------
#
# This plugin adds many more fonts to the OpenVerse lineup.
#
incr MV(font_max)
set idx $MV(font_max)
# new century schoolbook
set MV(font.balloon.$idx.name) "new century schoolbook"
set MV(font.balloon.$idx.normal) "-family \"new century schoolbook\""
set MV(font.balloon.$idx.bold) "-family \"new century schoolbook\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"new century schoolbook\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"new century schoolbook\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# utopia
set MV(font.balloon.$idx.name) utopia
set MV(font.balloon.$idx.normal) "-family \"utopia\""
set MV(font.balloon.$idx.bold) "-family \"utopia\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"utopia\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"utopia\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# lucida
set MV(font.balloon.$idx.name) "lucida"
set MV(font.balloon.$idx.normal) "-family \"lucida\""
set MV(font.balloon.$idx.bold) "-family \"lucida\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"lucida\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"lucida\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# lucidabright
set MV(font.balloon.$idx.name) "lucidabright"
set MV(font.balloon.$idx.normal) "-family \"lucidabright\""
set MV(font.balloon.$idx.bold) "-family \"lucidabright\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"lucidabright\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"lucidabright\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# lucidasans
set MV(font.balloon.$idx.name) "lucidasans"
set MV(font.balloon.$idx.normal) "-family \"lucidasans\""
set MV(font.balloon.$idx.bold) "-family \"lucidasans\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"lucidasans\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"lucidasans\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# lucidatypewriter
set MV(font.balloon.$idx.name) "lucidatypewriter"
set MV(font.balloon.$idx.normal) "-family \"lucidatypewriter\""
set MV(font.balloon.$idx.bold) "-family \"lucidatypewriter\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"lucidatypewriter\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"lucidatypewriter\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# charter
set MV(font.balloon.$idx.name) "charter"
set MV(font.balloon.$idx.normal) "-family \"charter\""
set MV(font.balloon.$idx.bold) "-family \"charter\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"charter\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"charter\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# terminal
set MV(font.balloon.$idx.name) "terminal"
set MV(font.balloon.$idx.normal) "-family \"terminal\""
set MV(font.balloon.$idx.bold) "-family \"terminal\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"terminal\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"terminal\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# fixed
set MV(font.balloon.$idx.name) "fixed"
set MV(font.balloon.$idx.normal) "-family \"fixed\""
set MV(font.balloon.$idx.bold) "-family \"fixed\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"fixed\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"fixed\" -slant italic -weight bold"
incr idx
incr MV(font_max)
# clean
set MV(font.balloon.$idx.name) "clean"
set MV(font.balloon.$idx.normal) "-family \"clean\""
set MV(font.balloon.$idx.bold) "-family \"clean\" -weight bold"
set MV(font.balloon.$idx.italic) "-family \"clean\" -slant italic"
set MV(font.balloon.$idx.bold_italic) "-family \"clean\" -slant italic -weight bold"
#--------- cut here ---------------

-- 
Cruise - 
OpenVerse Visual Chat - http://openverse.org/
-------------------------------------------------------

-- 
Cruise - 
OpenVerse Visual Chat - http://openverse.org/
-----------------------------------------------------------------
To unsubscribe to the OpenVerse mailing list send a message
to openverse-request@openverse.org with the following word
in the BODY of the message.

UNSUBSCRIBE

If you need assistance from a human, email cruise@openverse.org
-----------------------------------------------------------------