Need PostScript Multi line Justify and centre command

Any one have PostScript Multi line Justify and centre command.

% JUSTIFICATION PROCEDURES

/glue { 2 copy length exch length add string dup 4 2 roll 2 index

0 3 index putinterval exch length exch putinterval } bind def

% word store

/TXT { tinydict /txt 3 -1 roll put } bind def () TXT

/startpoint { rm currentpoint pop sub } bind def

/measure { dsp txt stringwidth pop add startpoint 2 add gt } bind def

/howlong? { rejoin measure } def

/join { txt exch glue TXT } bind def

/jproc { dsp startpoint exch sub exch dup spacecount } bind def

/popzero { dup 0 eq { pop }{ div } ifelse } def

/justify { jproc 1 sub 3 2 roll exch popzero sw 4 3 roll w L } bind def

/nextline { txt justify () TXT join } bind def

/J { em dsc { howlong? { split jump nextline }{ join } ifelse } repeat txt n () TXT pop } bind def

(Same Paragraph....)J

Its not working any other methods or same working example for justify and center any one know

Replay as soon as poosible.

Advance Thanks Guys,

Jai

Multiline text Justification procedure

You can use a loop to call your procedure for line justification:

put multiple lines of text on the stack and then you can process them individually within a loop while you increment or decrement the vertical position.

Your new procedure definitions would look like this:

/LineLeading 12 def %sets the line leading to 12 points

/Multiline {/CurrentLine exch def LeftMargin Y moveto

%% Insert your SpaceMod calculations here based on the CurrentLine string

     SpaceMod 0 32 CurrentLine widthshow

     /Y Y LineLeading sub def     %decrements the vertical position of the next line by the amount defined in LineLeading

def

%% Every time Multiline is placed on the stack it will process the string placed directly before it, so you just need to repeat Multiline as many times as the number of lines of text you want to set.