%% syntaxe : str x0 y0 z0 [normal_vect] ultextp3d --> -
%% syntaxe : str x0 y0 z0 [normal_vect] bool ultextp3d --> -
%% syntaxe : str x0 y0 plantype ultextp3d --> -
%% syntaxe : str x0 y0 plantype bool ultextp3d --> -
%% syntaxe : str1 solid i str2 ultextp3d --> -
%% syntaxe : str1 solid i str2 bool ultextp3d --> -
%% syntaxe : str1 solid i alpha str2 bool ultextp3d --> -
/initpr@jtext {
5 dict begin
dup isbool {
/mybool exch def
} {
/mybool true def
} ifelse
dup isplan {
/type_plan_proj true def
/lepl@n exch def
lepl@n plangetbase aload pop
/@V defpoint3d
/@U defpoint3d
lepl@n plangetorigine
/z0 exch def
/y0 exch def
/x0 exch def
/table [@U @U @V vectprod3d] def
} {
dup isarray {
%% c est un planprojpath
/type_plan_proj true def
/table exch def
/z0 exch def
/y0 exch def
/x0 exch def
0 0
} {
%% c est un solidprojpath
/type_plan_proj false def
%% y a-t-il un str2
dup isstring {
/str2 exch def
} {
/str2 {} def
} ifelse
%% y a-t-il un alpha
2 copy pop issolid {
/alpha 0 def
} {
/alpha exch def
} ifelse
/i exch def
/solid exch def
0 0
} ifelse
} ifelse
} def
/closepr@jtext {
type_plan_proj {
x0 y0 z0 table mybool projpath
} {
solid i alpha str2 mybool projpath
} ifelse
fill
stroke
end
} def
%% syntaxe : str x0 y0 z0 [normal_vect] ultextp3d --> -
%% syntaxe : str x0 y0 z0 [normal_vect] bool ultextp3d --> -
%% syntaxe : str1 solid i str2 ultextp3d --> -
%% syntaxe : str1 solid i str2 bool ultextp3d --> -
%% syntaxe : str1 solid i alpha str2 bool ultextp3d --> -
/ultextp3d {initpr@jtext ultext_ closepr@jtext} def
/cltextp3d {initpr@jtext cltext_ closepr@jtext} def
/bltextp3d {initpr@jtext bltext_ closepr@jtext} def
/dltextp3d {initpr@jtext dltext_ closepr@jtext} def
/ubtextp3d {initpr@jtext ubtext_ closepr@jtext} def
/cbtextp3d {initpr@jtext cbtext_ closepr@jtext} def
/bbtextp3d {initpr@jtext bbtext_ closepr@jtext} def
/dbtextp3d {initpr@jtext dbtext_ closepr@jtext} def
/uctextp3d {initpr@jtext uctext_ closepr@jtext} def
/cctextp3d {initpr@jtext cctext_ closepr@jtext} def
/bctextp3d {initpr@jtext bctext_ closepr@jtext} def
/dctextp3d {initpr@jtext dctext_ closepr@jtext} def
/urtextp3d {initpr@jtext urtext_ closepr@jtext} def
/crtextp3d {initpr@jtext crtext_ closepr@jtext} def
/brtextp3d {initpr@jtext brtext_ closepr@jtext} def
/drtextp3d {initpr@jtext drtext_ closepr@jtext} def
%% /initpr@jtext {
%% 5 dict begin
%% dup isbool {
%% /mybool exch def
%% } {
%% /mybool true def
%% } ifelse
%% dup isarray {
%% %% c est un planprojpath
%% /type_plan_proj true def
%% /table exch def
%% /z0 exch def
%% /y0 exch def
%% /x0 exch def
%% 0 0
%% } {
%% %% c est un solidprojpath
%% /type_plan_proj false def
%% %% y a-t-il un str2
%% dup isstring {
%% /str2 exch def
%% } {
%% /str2 {} def
%% } ifelse
%% %% y a-t-il un alpha
%% 2 copy pop issolid {
%% /alpha 0 def
%% } {
%% /alpha exch def
%% } ifelse
%% /i exch def
%% /solid exch def
%% 0 0
%% } ifelse
%% } def
%% /closepr@jtext {
%% type_plan_proj {
%% x0 y0 z0 table mybool projpath
%% } {
%% solid i alpha str2 mybool projpath
%% } ifelse
%% fill
%% stroke
%% end
%% } def
|