Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/vector/font.page
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/appli/database.pli"
module "/pliant/storage/database.pli"
module "/pliant/protocol/http/style/draw.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/math/transform.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/admin/file.pli"
module "/pliant/util/encoding/http.pli"
module "font.pli"



if (options option "family" Str)<>""
  part select
    for (var Int lap) 0 6
      each c font_database:data:family:(options option "fami
        var Data:FontFile file :> font_database:data:font ke
        if file:attributes=(shunt lap=0 "regular" lap=1 "rom
          var Str image := "data:/pliant/graphic/font/"+file
          if (file_query image standard):datetime<>(file_que
            var Float dpi := 75
            var Float scale := 5
            var Float mm_x := 16*scale
            var Float mm_y := 1.5*scale
            var Link:ImagePixmap pixmap1 :> new ImagePixmap
            pixmap1 setup (image_prototype 0 0 mm_x mm_y (ca
            var uInt color := .not. 0
            for (var Int y) 0 pixmap1:size_y-1
              for (var Int x) 0 pixmap1:size_x-1
                memory_copy addressof:color (pixmap1 pixel x
            var Link:ImageAntiAliasing aa1 :> new ImageAntiA
            aa1 bind pixmap1 4 4
            var Link:Font f1 :> font_postscript file:file ""
            if exists:f1
              var uInt color := 0
module "/pliant/protocol/http/style/draw.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/math/transform.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/image/antialiasing.pli"
module "/pliant/graphic/filter/io.pli"
module "/pliant/admin/file.pli"
module "/pliant/util/encoding/http.pli"
module "font.pli"



if (options option "family" Str)<>""
  part select
    for (var Int lap) 0 6
      each c font_database:data:family:(options option "fami
        var Data:FontFile file :> font_database:data:font ke
        if file:attributes=(shunt lap=0 "regular" lap=1 "rom
          var Str image := "data:/pliant/graphic/font/"+file
          if (file_query image standard):datetime<>(file_que
            var Float dpi := 75
            var Float scale := 5
            var Float mm_x := 16*scale
            var Float mm_y := 1.5*scale
            var Link:ImagePixmap pixmap1 :> new ImagePixmap
            pixmap1 setup (image_prototype 0 0 mm_x mm_y (ca
            var uInt color := .not. 0
            for (var Int y) 0 pixmap1:size_y-1
              for (var Int x) 0 pixmap1:size_x-1
                memory_copy addressof:color (pixmap1 pixel x
            var Link:ImageAntiAliasing aa1 :> new ImageAntiA
            aa1 bind pixmap1 4 4
            var Link:Font f1 :> font_postscript file:file ""
            if exists:f1
              var uInt color := 0
              pixmap1 text "H鬨ne comette AVION" f1 null un
              pixmap1 text "H鬨ne comette AVION" f1 null (transform scale scale scale scale 0 0) addressof:color
              file_tree_create image
              aa1 save image "filter [dq].png[dq]"
              file_configure image "datetime "+(string (file
          if (file_query image standard)=defined
            reset_http_answer
            http_request send_static_file image "mime [dq]im
            return

[List of available fonts:] ; eol
table columns 4
  cell header [Family]
  cell header [Available attributes]
  cell header [Sample]
  cell void
  each family font_database:data:family
    cell
      text keyof:family
    cell
      each c family
        var Data:FontFile file :> font_database:data:font ke
        text file:attributes ; eol
    cell
      image "font.html?"+(http_encode "family "+(string keyo
    cell
      page button "display"
        title keyof:family+" fonts family"
        table columns 3
          cell header
            [Fullname[lf]]
            small [PostScript name[lf]File[lf]MD5]
          cell header [Attributes]
          cell header [Sample]
          each c family
             var Data:FontFile file :> font_database:data:fo
            cell
              text file:fullname ; eol
              small
                text file:psname ; eol
                text file:file ; eol
                text keyof:file
            cell
              text file:attributes
            cell
              var Float dpi := 75
              var Float scale := 10
              var Float mm_x := 16*scale
              var Float mm_y := 1.5*scale
              var Link:ImagePixmap pixmap :> new ImagePixmap
              pixmap setup (image_prototype 0 0 mm_x mm_y (c
              var uInt color := .not. 0
              for (var Int y) 0 pixmap:size_y-1
                for (var Int x) 0 pixmap:size_x-1
                  memory_copy addressof:color (pixmap pixel 
              var Link:ImageAntiAliasing aa :> new ImageAnti
              aa bind pixmap 4 4
              var Link:Font f :> font_postscript file:file "
              if exists:f
                var uInt color := 0
              file_tree_create image
              aa1 save image "filter [dq].png[dq]"
              file_configure image "datetime "+(string (file
          if (file_query image standard)=defined
            reset_http_answer
            http_request send_static_file image "mime [dq]im
            return

[List of available fonts:] ; eol
table columns 4
  cell header [Family]
  cell header [Available attributes]
  cell header [Sample]
  cell void
  each family font_database:data:family
    cell
      text keyof:family
    cell
      each c family
        var Data:FontFile file :> font_database:data:font ke
        text file:attributes ; eol
    cell
      image "font.html?"+(http_encode "family "+(string keyo
    cell
      page button "display"
        title keyof:family+" fonts family"
        table columns 3
          cell header
            [Fullname[lf]]
            small [PostScript name[lf]File[lf]MD5]
          cell header [Attributes]
          cell header [Sample]
          each c family
             var Data:FontFile file :> font_database:data:fo
            cell
              text file:fullname ; eol
              small
                text file:psname ; eol
                text file:file ; eol
                text keyof:file
            cell
              text file:attributes
            cell
              var Float dpi := 75
              var Float scale := 10
              var Float mm_x := 16*scale
              var Float mm_y := 1.5*scale
              var Link:ImagePixmap pixmap :> new ImagePixmap
              pixmap setup (image_prototype 0 0 mm_x mm_y (c
              var uInt color := .not. 0
              for (var Int y) 0 pixmap:size_y-1
                for (var Int x) 0 pixmap:size_x-1
                  memory_copy addressof:color (pixmap pixel 
              var Link:ImageAntiAliasing aa :> new ImageAnti
              aa bind pixmap 4 4
              var Link:Font f :> font_postscript file:file "
              if exists:f
                var uInt color := 0
                pixmap text "H鬨ne comette AVION" f null un
                pixmap text "H鬨ne comette AVION" f null (transform scale scale scale scale 0 0) addressof:color
                draw aa


if allowed:"administrator"
  para
    var Str path := "embedded:/usr/"
    input "Path: " path noeol
    button "scan for fonts"
      font_scan path
      reload_page
                draw aa


if allowed:"administrator"
  para
    var Str path := "embedded:/usr/"
    input "Path: " path noeol
    button "scan for fonts"
      font_scan path
      reload_page