

! ------------- SETTINGS SHARED BY DEV. ENVT. AND ALL PLP APPLICATIONS ON MAC ----------
! 
! Format:
!
!	* Comment
!	Line-comment is started by the ! (exclamation mark)
!
!	* Default
!	<class>.<class-variable>: <value>
!
!	* Values
!	Values are in standard term-representation.  Chains may be written
!	as a Prolog list.  Values spanning multiple lines use \<NL> to continue
!	on the next line. Resist temptation to end with a period!
!
! To check for correct syntax of any defaults file: send(@pce, load_defaults, <filepathname>).
! ---------------------------------------------------------------------------------------


! 4.3.08
! Predefined font families and aliases created at XPCE startup time. 
! See display->load_fonts.
! See XPCE manual on display.font_families:  "For each family, there should be a 
! class-variable defining the members of this family." I define these class variables
! below -- basically, they are the defaults but with an XLFD 4th argument that
! ensures (?) the right font is created.
! For XLFD info see Wikipedia or ftp://ftp.xfree86.org/pub/XFree86/4.5.0/doc/xlfd.txt
! Also below is a redefinition for display.system_fonts, ie the predefined font aliases.
! 23.8.06
! The X11 font cache can be rebuilt by:
!          sudo /usr/x11/bin/fc-cache

display.font_families: [ screen_fonts, courier_fonts, helvetica_fonts, times_fonts, symbol_fonts ]



! 5.6.08
! A bug in which Helvetica bold fonts were misrendered so as to be illegible, and
! Helvetica normal fonts looked bold, mysteriously vanished after installing the OS 10.5.3 update
! (which contains X11 v2.2.1 -- this is while running SWI-Prolog 5.6.52).
!
! But it is still suspected that 10.5 Leopard doesn't select fonts correctly unless fonts are specified with
! 4th arguments that give XLFD descriptors specifying required weight (medium, bold, etc).
!
! To get XLFD descriptors below I used xfontsel -- select the required fields then click 'select' button
! then Edit/Copy from the X11 menubar then paste into this window, enclosing in double quotes).
! To check that your X11 system has font(s) matching any XLFD descriptor use
! xlsfonts(1) in bash, eg: xlsfonts -fn "-adobe-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"
! Eg try this from Prolog:
! :- get(@screen_roman_10, x_name, X).
! The result is:
! X = '-*-fixed-medium-r-*-*-10-*-*-*-*-*-*-*'
! - in Bash: xlsfonts -fn "-efont-fixed-medium-r-normal--10-*-*-*-*-*-iso10646-*"
! - gives matching fonts including: -jis-fixed-medium-r-normal--10-96-75-75-c-0-jisx0208.1983-0
! The 13-point font is defined because at least one IM example file uses it.

display.screen_fonts: 									\
    [	font(screen, roman, 10, 	"-*-fixed-medium-r-*-*-10-*-*-*-*-*-*-*" ),  	\
 	font(screen, roman, 12, 	"-*-fixed-medium-r-*-*-12-*-*-*-*-*-*-*" ),	\
	font(screen, roman, 13, 	"-*-fixed-medium-r-*-*-13-*-*-*-*-*-*-*" ),	\
	font(screen, roman, 14, 	"-*-fixed-medium-r-*-*-14-*-*-*-*-*-*-*" ),	\
	font(screen, roman, 18, 	"-*-fixed-medium-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(screen, roman, 20, 	"-*-fixed-medium-r-*-*-24-*-*-*-*-*-*-*" ),  	\
	font(screen, bold, 10, 		"-*-fixed-bold-r-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(screen, bold, 12, 		"-*-fixed-bold-r-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(screen, bold, 14, 		"-*-fixed-bold-r-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(screen, bold, 18, 		"-*-fixed-bold-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(screen, bold, 20, 		"-*-fixed-bold-r-*-*-24-*-*-*-*-*-*-*" ) 	\
 	]



display.courier_fonts: 										\
    [	font(courier, roman, 10, 	"-adobe-courier-medium-r-*-*-10-*-*-*-*-*-*-*" ),  	\
 	font(courier, roman, 12, 	"-adobe-courier-medium-r-*-*-12-*-*-*-*-*-*-*" ),	\
	font(courier, roman, 14, 	"-adobe-courier-medium-r-*-*-14-*-*-*-*-*-*-*" ),	\
	font(courier, roman, 18, 	"-adobe-courier-medium-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(courier, roman, 24, 	"-adobe-courier-medium-r-*-*-24-*-*-*-*-*-*-*" ),  	\
	font(courier, bold, 10, 	"-adobe-courier-bold-r-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(courier, bold, 12, 	"-adobe-courier-bold-r-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(courier, bold, 14, 	"-adobe-courier-bold-r-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(courier, bold, 18, 	"-adobe-courier-bold-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(courier, bold, 24, 	"-adobe-courier-bold-r-*-*-24-*-*-*-*-*-*-*" ),  	\
	font(courier, oblique, 10, 	"-adobe-courier-medium-o-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(courier, oblique, 12, 	"-adobe-courier-medium-o-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(courier, oblique, 14, 	"-adobe-courier-medium-o-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(courier, oblique, 18, 	"-adobe-courier-medium-o-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(courier, oblique, 24, 	"-adobe-courier-medium-o-*-*-24-*-*-*-*-*-*-*" )	\
	]


display.helvetica_fonts: 									\
    [	font(helvetica, roman, 10, 	"-adobe-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*" ),  	\
 	font(helvetica, roman, 12, 	"-adobe-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"),	\
	font(helvetica, roman, 14, 	"-adobe-helvetica-medium-r-*-*-14-*-*-*-*-*-*-*" ),	\
	font(helvetica, roman, 18, 	"-adobe-helvetica-medium-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(helvetica, roman, 24, 	"-adobe-helvetica-medium-r-*-*-24-*-*-*-*-*-*-*" ),  	\
	font(helvetica, bold, 10, 	"-adobe-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(helvetica, bold, 12, 	"-adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(helvetica, bold, 14, 	"-adobe-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(helvetica, bold, 18, 	"-adobe-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(helvetica, bold, 24, 	"-adobe-helvetica-bold-r-*-*-24-*-*-*-*-*-*-*" ),  	\
	font(helvetica, oblique, 10, 	"-adobe-helvetica-medium-o-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(helvetica, oblique, 12, 	"-adobe-helvetica-medium-o-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(helvetica, oblique, 14, 	"-adobe-helvetica-medium-o-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(helvetica, oblique, 18, 	"-adobe-helvetica-medium-o-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(helvetica, oblique, 24, 	"-adobe-helvetica-medium-o-*-*-24-*-*-*-*-*-*-*" )	\
	]



display.times_fonts: 										\
    [	font(times, roman, 10, 	"-adobe-times-medium-r-*-*-10-*-*-*-*-*-*-*" ),  		\
 	font(times, roman, 12, 	"-adobe-times-medium-r-*-*-12-*-*-*-*-*-*-*" ),			\
	font(times, roman, 14, 	"-adobe-times-medium-r-*-*-14-*-*-*-*-*-*-*" ),			\
	font(times, roman, 18, 	"-adobe-times-medium-r-*-*-18-*-*-*-*-*-*-*" ),  		\
	font(times, roman, 24, 	"-adobe-times-medium-r-*-*-24-*-*-*-*-*-*-*" ),  		\
	font(times, bold, 10, 	"-adobe-times-bold-r-*-*-10-*-*-*-*-*-*-*" ), 		 	\
	font(times, bold, 12, 	"-adobe-times-bold-r-*-*-12-*-*-*-*-*-*-*" ), 		 	\
	font(times, bold, 14, 	"-adobe-times-bold-r-*-*-14-*-*-*-*-*-*-*" ),  			\
	font(times, bold, 18, 	"-adobe-times-bold-r-*-*-18-*-*-*-*-*-*-*" ), 		 	\
	font(times, bold, 24, 	"-adobe-times-bold-r-*-*-24-*-*-*-*-*-*-*" ), 		 	\
	font(times, oblique, 10, 	"-adobe-times-medium-i-*-*-10-*-*-*-*-*-*-*" ),  	\
	font(times, oblique, 12, 	"-adobe-times-medium-i-*-*-12-*-*-*-*-*-*-*" ),  	\
	font(times, oblique, 14, 	"-adobe-times-medium-i-*-*-14-*-*-*-*-*-*-*" ),  	\
	font(times, oblique, 18, 	"-adobe-times-medium-i-*-*-18-*-*-*-*-*-*-*" ),  	\
	font(times, oblique, 24, 	"-adobe-times-medium-i-*-*-24-*-*-*-*-*-*-*" )		\
	]


! 05.03.08 XPCE seemed unable to handle the 'symbol' font(s) that are displayed in xfontsel etc
! but this should do instead.

display.symbol_fonts: 									\
  [     font(symbol, roman, 13, 	"-*-wingdings-medium-r-*-*-13-*-*-*-*-*-*-*" )	\
	]



! 27.02.08
! Binding for the logical (alias) font-names.  If a change is made, propogate it to the other Shared_defaults_*.txt
! file. 
! No need here for 4th (XLFD) arguments for font aliases since they are created from the display_font_families defined above
! - BUT ensure that the font/3 terms really are present in the above lists!
! A nice way to test that these appear ok is dialogs/font_chooser_test.pl

display.system_fonts:					\
   [    normal    := font(helvetica, roman, 12), 	\
 	bold      := font(helvetica, bold,  12), 	\
 	boldlarge := font(helvetica, bold, 14),	 	\
  	boldhuge  := font(helvetica, bold, 18),		\
   	italic    := font(helvetica, oblique, 12), 	\
 	small     := font(helvetica, roman,  10),   	\
	tiny      := font(times, roman, 10), 	 	\
	large     := font(helvetica, roman, 14), 	\
 	huge      := font(helvetica, roman, 18), 	\
  	fixed2    := font(courier,roman, 12),		\
  	symbol    := font(symbol, roman, 13),	 	\
	fixed     := font(screen, roman, 12), 		\
	screen13  := font(screen, roman, 14), 		\
	tt        := font(screen, roman, 12), 		\
	boldtt    := font(screen, bold,  12)		\
   ]




