Vertical bar script
===================

Just copy the section after the "Script starts here" line 
and paste into the PageMaker script editor.

--SCRIPT STARTS HERE
-- Give a paragraph of text a left indent
-- and place the text cursor in the paragraph.
-- Then this script will create a vertical
-- bar of half the width of the indent.
-- Script by Gordon Woolf
-- <www.worsleypress.com>

GetMeasureUnits >> oldunits
MeasureUnits 2,2,-1
TextCursor -para
TextSelect +para
-- the following should be one line from 
-- GetText to the final set of 3 dots
GetTextLocation>> ..., ..., ..., ..., yAnchorTop, ..., ..., 
xRightBottom, ..., ..., ..., ..., yRangeEndBottom, ..., ..., 
xLeftTop, ...
GetIndents>> leftindent,...
widthoftext = xRightBottom - xLeftTop
depthoftext = yRangeEndBottom - yAnchorTop
GetLeading >> sblead
ifsblead = -1
GetSize >> pointsize
sblead = pointsize *1.2
endif
xRightIndent = widthoftext - (leftindent/2)
dWeight = ((depthoftext/2) * 2.85)+6
RuleAbove 1, 31, "Black",1, 0, xRightIndent, dWeight, -2,-2
RuleBelow 1, 31, "Black",1, 0, xRightIndent, dWeight, -2,-2
ruleoptions 1p, -1, -2,-2
Measureunits oldunits
return
--END OF SCRIPT