From f7f41daa27e7ccff0aa184cc81e80b9c96e3d761 Mon Sep 17 00:00:00 2001
From: "Jeffrey H. Kingston" <jeff@it.usyd.edu.au>
Date: Tue, 14 Sep 2010 20:41:14 +0000
Subject: Lout 3.35.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@39 9365b830-b601-4143-9ba8-b4a8e2c3339c
---
 include/bsf | 42 +++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 41 insertions(+), 1 deletion(-)

(limited to 'include/bsf')

diff --git a/include/bsf b/include/bsf
index 0b40f3e..2c472a2 100644
--- a/include/bsf
+++ b/include/bsf
@@ -44,6 +44,17 @@ def @OrIfPlain
 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 /
+	 }
+    }
 
 
     ###########################################################################
-- 
cgit