diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /osbitmap.dcl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'osbitmap.dcl')
| -rw-r--r-- | osbitmap.dcl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/osbitmap.dcl b/osbitmap.dcl new file mode 100644 index 0000000..cad7651 --- /dev/null +++ b/osbitmap.dcl @@ -0,0 +1,36 @@ +definition module osbitmap
+
+// Clean object I/O library, version 1.2
+
+import ospicture
+
+:: Bitmap
+:: OSBitmap
+
+toBitmap :: !OSBitmap -> Bitmap
+fromBitmap :: !Bitmap -> OSBitmap
+
+// osReadBitmap reads a bitmap from a file.
+osReadBitmap :: !*File -> (!Bool,!OSBitmap,!*File)
+
+// osGetBitmapSize returns the size of the bitmap
+osGetBitmapSize :: !OSBitmap -> (!Int,!Int)
+
+// osGetBitmapContent returns the content string of the bitmap
+osGetBitmapContent :: !OSBitmap -> {#Char}
+
+// osGetBitmapHandle returns the handle of the bitmap
+osGetBitmapHandle :: !OSBitmap -> Int
+
+/* osResizeBitmap (w,h) bitmap
+ resizes the argument bitmap to the given size.
+ It is assumed that w and h are not negative.
+*/
+osResizeBitmap :: !(!Int,!Int) !OSBitmap -> OSBitmap
+
+/* osDrawBitmap bitmap pos origin isScreenOutput pictContext
+ draws the argument bitmap with the left top corner at pos, given the current origin and drawing context.
+ The isScreenOutput MUST be False when producing printer output. For screen output this is not the case,
+ but setting it to True is much more efficient.
+*/
+osDrawBitmap :: !OSBitmap !(!Int,!Int) !(!Int,!Int) !Bool !OSPictContext !*OSToolbox -> (!OSPictContext,!*OSToolbox)
|