%%
%% This is the file fzframes.sty
%% Author: Kathryn Andersen <http://www.katspace.com>
%%
%% This provides a collection of nice frames based on the niceframes
%% package
%% 
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{refract}[2001/06/22
fancy frames for fanzine package
: Kathryn Andersen]
\RequirePackage{niceframe}
\RequirePackage{graphics}

%% Frame with scrolly things
\newcommand{\fzframescroll}[1]{%
\font\border=umranda
\generalframe{\border\char'136}{\border\char'137}{\border\char'140}
             {\border\char'145}                  {\border\char'141}
             {\border\char'144}{\border\char'143}{\border\char'142}
{#1}}
%% Frame with flowers
\newcommand{\fzframeflower}[1]{%
\font\border=umranda
\generalframe{\border\char78}{\border\char79}{\border\char84}
             {\border\char81}                {\border\char85}
             {\border\char80}{\border\char83}{\border\char82}
{#1}}

%% Frame with snakes
\newcommand{\fzframesnake}[1]{%
\font\border=umranda
\generalframe{\border\char87}{\border\char87}{\border\char87}
             {\border\char89}                {\border\char93}
             {\border\char91}{\border\char91}{\border\char91}
{#1}}

%% Frame with triangles
\newcommand{\fzframetri}[1]{%
\font\border=umranda
\generalframe{\border\char7}{\border\char6}{\border\char5}
             {\reflectbox{\border\char4}}               {\border\char4}
             {\border\char1}{\border\char2}{\border\char3}
{#1}}
%% Frame with triangles pointing out
\newcommand{\fzframetriout}[1]{%
\font\border=umranda
\generalframe{\border\char3}{\border\char2}{\border\char1}
             {\border\char4}               {\reflectbox{\border\char4}}
             {\border\char5}{\border\char6}{\border\char7}
{#1}}

%% Here follows a collection of frames made of decorative boxes
%% so they are called fzframebx with a letter to differentiate
%% them, A-Z
\newcommand{\fzframebxA}[1]{%
\font\border=umranda
\generalframe{\border\char39}{\border\char37}{\border\char37}
             {\border\char39}                {\border\char43}
             {\border\char41}{\border\char41}{\border\char43}
{#1}}
%
\newcommand{\fzframebxB}[1]{%
\font\border=umranda
\generalframe{\border\char41}{\border\char41}{\border\char39}
             {\border\char43}                {\border\char39}
             {\border\char43}{\border\char37}{\border\char37}
{#1}}

\newcommand{\fzframebxC}[1]{%
\font\border=umranda
\generalframe{\border\char38}{\border\char38}{\border\char36}
             {\border\char38}                {\border\char36}
             {\border\char40}{\border\char40}{\border\char42}
{#1}
}

\newcommand{\fzframebxD}[1]{%
\font\border=umranda
\generalframe{\border\char42}{\border\char40}{\border\char40}
             {\border\char36}                {\border\char38}
             {\border\char36}{\border\char38}{\border\char38}
{#1}
}

\newcommand{\fzframebxE}[1]{%
\font\border=umranda
\generalframe{\border\char44}{\border\char44}{\border\char50}
             {\border\char46}                {\border\char50}
             {\border\char46}{\border\char48}{\border\char48}
{#1}}

\newcommand{\fzframebxF}[1]{%
\font\border=umranda
\generalframe{\border\char51}{\border\char51}{\border\char49}
             {\border\char45}                {\border\char49}
             {\border\char45}{\border\char47}{\border\char47}
{#1}}

%% Here follows a collection of frames made of circles
%% so they are called fzframecir with a letter to differentiate
%% them, A-Z
\newcommand{\fzframecirA}[1]{%
\font\border=umranda
\generalframe{\border\char34}{\border\char34}{\border\char34}
             {\border\char34}                {\border\char34}
             {\border\char34}{\border\char34}{\border\char34}
{#1}}
\newcommand{\fzframecirB}[1]{%
\font\border=umranda
\generalframe{\border\char35}{\border\char35}{\border\char35}
             {\border\char35}                {\border\char35}
             {\border\char35}{\border\char35}{\border\char35}
{#1}}

\newcommand{\fzframecirC}[1]{%
\font\border=umranda
\generalframe{\border\char20}{\border\char25}{\border\char24}
             {\border\char22}                {\border\char22}
             {\border\char24}{\border\char25}{\border\char20}
{#1}}
\newcommand{\fzframecirD}[1]{%
\font\border=umranda
\generalframe{\border\char26}{\border\char30}{\border\char29}
             {\border\char27}                {\border\char27}
             {\border\char29}{\border\char30}{\border\char26}
{#1}}

%% Here follows a collection of frames with lots of lines
%% so they are called fzframelin with a letter to differentiate
%% them, A-Z

%% This bunch, the border has 6 lines, same thickness
\newcommand{\fzframelinA}[1]{%
\font\border=umrandb
\generalframe{\border\char5}{\border\char1}{\border\char4}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char6}{\border\char3}{\border\char7}
{#1}}

\newcommand{\fzframelinB}[1]{%
\font\border=umrandb
\generalframe{\border\char9}{\border\char1}{\border\char8}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char10}{\border\char3}{\border\char11}
{#1}}

\newcommand{\fzframelinC}[1]{%
\font\border=umrandb
\generalframe{\border\char13}{\border\char1}{\border\char12}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char14}{\border\char3}{\border\char15}
{#1}}

\newcommand{\fzframelinD}[1]{%
\font\border=umrandb
\generalframe{\border\char17}{\border\char1}{\border\char16}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char18}{\border\char3}{\border\char19}
{#1}}

\newcommand{\fzframelinE}[1]{%
\font\border=umrandb
\generalframe{\border\char21}{\border\char1}{\border\char20}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char22}{\border\char3}{\border\char23}
{#1}}

\newcommand{\fzframelinF}[1]{%
\font\border=umrandb
\generalframe{\border\char25}{\border\char1}{\border\char24}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char26}{\border\char3}{\border\char27}
{#1}}

\newcommand{\fzframelinG}[1]{%
\font\border=umrandb
\generalframe{\border\char29}{\border\char1}{\border\char28}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char30}{\border\char3}{\border\char31}
{#1}}

\newcommand{\fzframelinH}[1]{%
\font\border=umrandb
\generalframe{\border\char33}{\border\char1}{\border\char32}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char34}{\border\char3}{\border\char35}
{#1}}

\newcommand{\fzframelinI}[1]{%
\font\border=umrandb
\generalframe{\border\char37}{\border\char1}{\border\char36}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char38}{\border\char3}{\border\char39}
{#1}}

\newcommand{\fzframelinJ}[1]{%
\font\border=umrandb
\generalframe{\border\char41}{\border\char1}{\border\char40}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char42}{\border\char3}{\border\char43}
{#1}}

\newcommand{\fzframelinK}[1]{%
\font\border=umrandb
\generalframe{\border\char45}{\border\char1}{\border\char44}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char46}{\border\char3}{\border\char47}
{#1}}

\newcommand{\fzframelinL}[1]{%
\font\border=umrandb
\generalframe{\border\char49}{\border\char1}{\border\char48}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char50}{\border\char3}{\border\char51}
{#1}}

\newcommand{\fzframelinM}[1]{%
\font\border=umrandb
\generalframe{\border\char53}{\border\char1}{\border\char52}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char54}{\border\char3}{\border\char55}
{#1}}

\newcommand{\fzframelinN}[1]{%
\font\border=umrandb
\generalframe{\border\char57}{\border\char1}{\border\char56}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char58}{\border\char3}{\border\char59}
{#1}}

\newcommand{\fzframelinO}[1]{%
\font\border=umrandb
\generalframe{\border\char61}{\border\char1}{\border\char60}
             {\border\char2}                {\reflectbox{\border\char2}}
             {\border\char62}{\border\char3}{\border\char63}
{#1}}

%% Border has 4 lines, same thickness
\newcommand{\fzframelinP}[1]{%
\font\border=umrandb
\generalframe{\border\char69}{\border\char65}{\border\char68}
             {\border\char64}                {\border\char66}
             {\border\char70}{\border\char67}{\border\char71}
{#1}}

\newcommand{\fzframelinQ}[1]{%
\font\border=umrandb
\generalframe{\border\char73}{\border\char65}{\border\char72}
             {\border\char64}                {\border\char66}
             {\border\char74}{\border\char67}{\border\char75}
{#1}}

\newcommand{\fzframelinR}[1]{%
\font\border=umrandb
\generalframe{\border\char77}{\border\char65}{\border\char76}
             {\border\char64}                {\border\char66}
             {\border\char78}{\border\char67}{\border\char79}
{#1}}

\newcommand{\fzframelinS}[1]{%
\font\border=umrandb
\generalframe{\border\char81}{\border\char65}{\border\char80}
             {\border\char64}                {\border\char66}
             {\border\char82}{\border\char67}{\border\char83}
{#1}}

\newcommand{\fzframelinT}[1]{%
\font\border=umrandb
\generalframe{\border\char85}{\border\char65}{\border\char84}
             {\border\char64}                {\border\char66}
             {\border\char86}{\border\char67}{\border\char87}
{#1}}

\newcommand{\fzframelinU}[1]{%
\font\border=umrandb
\generalframe{\border\char89}{\border\char65}{\border\char88}
             {\border\char64}                {\border\char66}
             {\border\char90}{\border\char67}{\border\char91}
{#1}}

\newcommand{\fzframelinV}[1]{%
\font\border=umrandb
\generalframe{\border\char93}{\border\char65}{\border\char92}
             {\border\char64}                {\border\char66}
             {\border\char94}{\border\char67}{\border\char95}
{#1}}

\newcommand{\fzframelinW}[1]{%
\font\border=umrandb
\generalframe{\border\char97}{\border\char65}{\border\char96}
             {\border\char64}                {\border\char66}
             {\border\char98}{\border\char67}{\border\char99}
{#1}}

\newcommand{\fzframelinX}[1]{%
\font\border=umrandb
\generalframe{\border\char101}{\border\char65}{\border\char100}
             {\border\char64}                 {\border\char66}
             {\border\char102}{\border\char67}{\border\char103}
{#1}}

%% Border has 5 lines, the middle one thicker
\newcommand{\fzframelinY}[1]{%
\font\border=umrandb
\generalframe{\border\char113}{\border\char105}{\border\char112}
             {\border\char106}                 {\border\char104}
             {\border\char114}{\border\char107}{\border\char115}
{#1}}

\newcommand{\fzframelinZ}[1]{%
\font\border=umrandb
\generalframe{\border\char113}{\border\char109}{\border\char112}
             {\border\char110}                 {\border\char108}
             {\border\char114}{\border\char111}{\border\char115}
{#1}}

\newcommand{\fzframelinAA}[1]{%
\font\border=umrandb
\generalframe{\border\char117}{\border\char105}{\border\char116}
             {\border\char106}                 {\border\char104}
             {\border\char118}{\border\char107}{\border\char119}
{#1}}

\newcommand{\fzframelinAB}[1]{%
\font\border=umrandb
\generalframe{\border\char117}{\border\char109}{\border\char116}
             {\border\char110}                 {\border\char108}
             {\border\char118}{\border\char111}{\border\char119}
{#1}}

\newcommand{\fzframelinAC}[1]{%
\font\border=umrandb
\generalframe{\border\char121}{\border\char105}{\border\char120}
             {\border\char106}                 {\border\char104}
             {\border\char122}{\border\char107}{\border\char123}
{#1}}

\newcommand{\fzframelinAD}[1]{%
\font\border=umrandb
\generalframe{\border\char121}{\border\char109}{\border\char120}
             {\border\char110}                 {\border\char108}
             {\border\char122}{\border\char111}{\border\char123}
{#1}}

%%
%% Sample of dingbats in a font
\RequirePackage{ifthen}
\newcounter{clet}
\newcounter{numchars}
\newcommand{\dingsample}{%
\setcounter{clet}{1}
\setcounter{numchars}{256}
\whiledo{\value{clet}<256}{%
\mbox{
\texttt{ \theclet\ = }\char\value{clet}
}
\addtocounter{clet}{1}
}
}
\endinput
