Script Library: 1223 scripts
 

font-styles.r

REBOL [ Title: "Local Font Mapping" Date: 4-Jun-2000 Version: 1.0.3 File: %font-styles.r Author: "Allen Kamp" Purpose: {Shows which fonts are being mapped to the system independent font styles on your system} Email: %allenk--powerup--com--au library: [ level: 'intermediate platform: none type: none domain: [GUI] tested-under: none support: none license: none see-also: none ] ] example: stylize [ fixed text [font: [name: font-fixed]] fixed24 fixed [font: [size: 24]] sans-serif text [font: [name: font-sans-serif]] sans-serif24 sans-serif [font: [size: 24]] serif text [font: [name: font-serif]] serif24 serif [font: [size: 24]] ] view layout [ styles example size 500x300 backdrop 0.0.0 title "Rebol Font Styles" space 0x10 text {Shows which fonts are being mapped to the system independent font styles on your system} 240.240.204 220 space 0x10 text white font [name: font-fixed size: 24] (join "font-fixed:" mold font-fixed) text white font [name: font-sans-serif size: 24] (join "font-sans-serif: " mold font-sans-serif) text white font [name: font-serif size: 24] (join "font-serif: " mold font-serif) ]
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (allenk:powerup:com:au)