diff options
author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:14 +0000 |
---|---|---|
committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:41:14 +0000 |
commit | f7f41daa27e7ccff0aa184cc81e80b9c96e3d761 (patch) | |
tree | 3e81dfa2c263c20d7c9307a175b71ee6b7a5fd39 /include/bsf | |
parent | 26230a416563decd82a0af827c0987b8628c5ef9 (diff) | |
download | lout-f7f41daa27e7ccff0aa184cc81e80b9c96e3d761.tar.gz |
Lout 3.35.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@39 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/bsf')
-rw-r--r-- | include/bsf | 42 |
1 files changed, 41 insertions, 1 deletions
diff --git a/include/bsf b/include/bsf index 0b40f3e..2c472a2 100644 --- a/include/bsf +++ b/include/bsf @@ -46,6 +46,17 @@ def @Colour @Color left col right y { {@ColourCommand col} @SetColour y } ########################################################################### # # +# @ColouredUnderline, @ColoredUnderline # +# # +########################################################################### + +def @ColouredUnderline @ColoredUnderline left col right y { + {@ColourCommand col} @SetUnderlineColour @Underline y +} + + +########################################################################### +# # # @Texture # # # ########################################################################### @@ -119,7 +130,7 @@ export @Date @Time @DateTimeFormat @DropCapTwo @DropCapThree @Centre @Right @NoDotSep @NoDotJoin @Join @Sep @DotSep @ColonSep @DotJoin @DashJoin - @NumSep @VStrut @ZeroWidth @ZeroHeight @OverStrike @Sup @Sub + @NumSep @VStrut @ZeroWidth @ZeroHeight @OverStrike @Sup @Sub @HClip @VClip @FullWidthRule @LocalWidthRule @Box @CurveBox @ShadowBox @BoundaryMarks @NumberMarker @NumberOf @TitleMarker @TitleOf @PageMarker @PageMark @NoLinkPageMark @PageOf @CrossLink @ExternalLink @@ -781,6 +792,35 @@ def @BasicSetup x /gap | 0.7f @Font y } } + + + ########################################################################### + # # + # @HClip and @VClip # + # # + ########################################################################### + + def @HClip + named shift { 0.0 } + right x + { + { "newpath 0 0 moveto xsize 0 lineto xsize ysize lineto 0 ysize lineto" + "closepath clip gsave" // "grestore" } @Graphic + { + |{{shift}"rt"} @ZeroWidth {{shift}"w"} @HShift x | + } + } + + def @VClip + named shift { 0.0 } + right x + { + { "newpath 0 0 moveto xsize 0 lineto xsize ysize lineto 0 ysize lineto" + "closepath clip gsave" // "grestore" } @Graphic + { + /{{shift}"rt"} @ZeroHeight {{shift}"w"} @VShift x / + } + } ########################################################################### |