[ro-oslib-commits] OSLib/!OsLib/Source/User/oslib Draw.swi,1.1,1.2

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv14983/Source/User/oslib

Modified Files:
	Draw.swi 
Log Message:
Define Draw_FillClipped and Draw_StrokeClipped.


Index: Draw.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Draw.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Draw.swi	9 Mar 2002 11:12:51 -0000	1.1
--- Draw.swi	21 Dec 2002 11:01:36 -0000	1.2
***************
*** 125,128 ****
--- 125,136 ----
  TYPE Draw_Path = .Struct ([1] Draw_PathElement: elements);
  
+ TYPE
+    Draw_ClipDescriptor =
+    .Struct
+    (  .Ref Draw_Path: path,
+       Draw_FillStyle: fill_style,
+       OS_Trfm: trfm
+    );
+ 
  CONST
     //Draw module errors
***************
*** 216,219 ****
--- 224,255 ----
        ),
        EXIT (R0! = .Ref .Data: end_or_used)
+    ),
+ 
+    Draw_FillClipped =
+    (  NUMBER 0x4070C "Processes a path and sends it to the VDU, filling the
+             interior portion and clipping against the clip descriptor - RISC
+             O S 5+",
+       ENTRY
+       (  R0 -> Draw_Path: path,
+          R1 = Draw_FillStyle: fill_style,
+          R2 -> OS_Trfm: trfm,
+          R3 = .Int: flatness,
+          R4 -> Draw_ClipDescriptor: clip_descriptor
+       )
+    ),
+ 
+    Draw_StrokeClipped =
+    (  NUMBER 0x4070E "Processes a path and sends it to the VDU after clipping
+             against the clip descriptor - RISC O S 5+",
+       ENTRY
+       (  R0 -> Draw_Path: path,
+          R1 = Draw_FillStyle: fill_style,
+          R2 -> OS_Trfm: trfm,
+          R3 = .Int: flatness,
+          R4 = .Int: thickness,
+          R5 -> Draw_LineStyle: line_style,
+          R6 -> Draw_DashPattern: dash_pattern,
+          R7 -> Draw_ClipDescriptor: clip_descriptor
+       )
     );