fta/slideshow/private/fratpac.ss
(module fratpac mzscheme
  
  (require (rename (lib "frtime.ss" "fta" "slideshow" "private" "frtime") frp:provide provide)
           (rename (lib "frtime.ss" "fta" "slideshow" "private" "frtime") lift-strict lift-strict))
  
  
  (require (lib "mrpict.ss" "texpict")
           (lib "utils.ss" "texpict")
           (lib "class.ss")
           (lib "list.ss" "fta" "slideshow" "private" "frtime")
           (lib "etc.ss")
           (all-except (lib "mred.ss" "mred") send-event)
           (lib "face.ss" "texpict")
           (lib "balloon.ss" "texpict")
           (lib "code.ss" "texpict")
           (lib "symbol.ss" "texpict")
           (lib "pict-value-snip.ss" "texpict")
   )
   
  
  
  (define ft-vl-append
    (lambda args
      (apply lift-strict vl-append args)))
  
  (define ft-vc-append
    (lambda args
      (apply lift-strict vc-append args)))
  
  (define ft-vr-append
    (lambda args
      (apply lift-strict vr-append args)))
  
  (define ft-hc-append
    (lambda args
      (apply lift-strict hc-append args)))
  
  (define ft-hb-append
    (lambda args
      (apply lift-strict hb-append args)))
  
  (define ft-ht-append
    (lambda args
      (apply lift-strict ht-append args)))
  
  (define ft-htl-append
    (lambda args
      (apply lift-strict htl-append args)))
  
  (define ft-hbl-append
    (lambda args
      (apply lift-strict hbl-append args)))
  
  
  
  (define ft-lt-superimpose
    (lambda args
      (apply lift-strict lt-superimpose args)))
  
  (define ft-lb-superimpose
    (lambda args
      (apply lift-strict lb-superimpose args)))
  
  (define ft-lc-superimpose
    (lambda args
      (apply lift-strict lc-superimpose args)))
  
  (define ft-ltl-superimpose
    (lambda args
      (apply lift-strict ltl-superimpose args)))
  
  (define ft-lbl-superimpose
    (lambda args
      (apply lift-strict lbl-superimpose args)))
  
  (define ft-rt-superimpose
    (lambda args
      (apply lift-strict rt-superimpose args)))
  
  (define ft-rb-superimpose
    (lambda args
      (apply lift-strict rb-superimpose args)))
  
  (define ft-rc-superimpose
    (lambda args
      (apply lift-strict rc-superimpose args)))
  
  (define ft-rtl-superimpose
    (lambda args
      (apply lift-strict rtl-superimpose args)))
  
  (define ft-rbl-superimpose
    (lambda args
      (apply lift-strict rbl-superimpose args)))
  
  (define ft-ct-superimpose
    (lambda args
      (apply lift-strict ct-superimpose args)))
  
  (define ft-cb-superimpose
    (lambda args
      (apply lift-strict cb-superimpose args)))
  
  (define ft-cc-superimpose
    (lambda args
      (apply lift-strict cc-superimpose args)))
  
  (define ft-ctl-superimpose
    (lambda args
      (apply lift-strict ctl-superimpose args)))
  
  (define ft-cbl-superimpose
    (lambda args
      (apply lift-strict cbl-superimpose args)))
  
  
  
  (define (ft-colorize pict color-expr)
    (lift-strict colorize pict color-expr)) 
  
  
  (frp:provide #|ft-animation-canvas%
           (rename make-posn path)
           (rename make-animation animation) |#
      ;     (rename ft-text text)
      ;     (rename ft-ellipse filled-ellipse)
      ;     (rename ft-rectangle filled-rectangle)
      ;     (rename ft-color-frame color-frame)
      ;     (rename ft-color-dash-frame color-dash-frame)
           (rename ft-vl-append vl-append)
           (rename ft-vc-append vc-append)
           (rename ft-vr-append vr-append)
           (rename ft-hc-append hc-append)
           (rename ft-hb-append hb-append)
           (rename ft-ht-append ht-append)
           (rename ft-htl-append htl-append)
           (rename ft-hbl-append hbl-append)
           (rename ft-lt-superimpose lt-superimpose)
           (rename ft-lb-superimpose lb-superimpose)
           (rename ft-lc-superimpose lc-superimpose)
           (rename ft-ltl-superimpose ltl-superimpose)
           (rename ft-lbl-superimpose lbl-superimpose)
           (rename ft-rt-superimpose rt-superimpose)
           (rename ft-rb-superimpose rb-superimpose)
           (rename ft-rc-superimpose rc-superimpose)
           (rename ft-rtl-superimpose rtl-superimpose)
           (rename ft-rbl-superimpose rbl-superimpose)
           (rename ft-ct-superimpose ct-superimpose)
           (rename ft-cb-superimpose cb-superimpose)
           (rename ft-cc-superimpose cc-superimpose)
           (rename ft-ctl-superimpose ctl-superimpose)
           (rename ft-cbl-superimpose cbl-superimpose)
           
           scale/improve-new-text
           
           define-code
           
           
           ;; parameters
           dc-for-text-size 
           current-expected-text-scale 
           black-and-white
           
           ;from face.ss
           default-face-color
           
           ;from code.ss
           code^
           code-params^
           code@
           
           
           ;; lib-lifting
           (lifted pict? pict-width pict-height cons-picture* pict-ascent pict-descent
            
                   dc blank text caps-text hline dash-hline vline dash-vline
                   frame dash-frame oval oval/radius big-circle color-frame color-dash-frame
                   round-frame color-round-frame circle disk ellipse filled-ellipse
                   rectangle filled-rectangle rounded-rectangle filled-rounded-rectangle
                   arrow arrowhead pip-line pip-arrow-line pip-arrows-line bitmap
                   cloud file-icon jack-o-lantern angel-wing standard-fish
                   pin-over pin-under table record scale ghost thin thick linewidth
                   colorize clip  inset/clip inset clip-descent
                    lift  drop baseless refocus panorama 
                   lt-find lc-find lb-find ltl-find lbl-find rt-find rc-find rb-find
                   rtl-find rbl-find ct-find cc-find cb-find ctl-find cbl-find
                   launder pin-line pin-arrow-line pin-arrows-line hyperlinkize
                   show-pict draw-pict make-pict-drawer scale-color find-pen find-brush color-series
                   place-over
                   
                   ;; from balloon.ss
                   wrap-balloon pin-balloon place-balloon balloon make-balloon 
                   balloon-pict ;ballon-point-x
                   balloon-point-y balloon? balloon-color
                   
                   ;; from face.ss
                   face face*
                   
                   ;; from code.ss
                   
                   
            
                   )
           
           (all-from (lib "pict-value-snip.ss" "texpict"))
           ))