Skip to content

Commit b9e9a80

Browse files
martiniturbidemartiniturbide
committed
ver 1.03
1 parent 7d37569 commit b9e9a80

53 files changed

Lines changed: 14369 additions & 0 deletions

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎TestRxImgSze.cmd‎

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
/* Testing rxImgSze.dll */
2+
3+
SAY DIRECTORY()
4+
5+
/* Load the library */
6+
CALL RxFuncAdd 'rxImgLoadFuncs', 'rxImgSze', 'rxImgLoadFuncs'
7+
8+
SAY DIRECTORY()
9+
10+
CALL rxImgLoadFuncs
11+
12+
MKDIR images
13+
14+
SAY '>'rxImgVersion()'<'
15+
SAY '>'rxImgVersion( 'r' )'<'
16+
SAY '>'rxImgVersion( 'G' )'<'
17+
SAY '>'rxImgVersion( 'F' )'<'
18+
SAY '>'rxImgVersion( 'P' )'<'
19+
20+
SAY rxImgCapture( 'RxImgSize', 'images\example0.bmp' )
21+
22+
SAY rxImgReSize( 'images\example0.bmp' )
23+
24+
SAY rxImgReSize( 'images\example0.bmp', 'images\example1.jpg', 100 )
25+
26+
SAY rxImgReSize( 'images\example0.bmp', 'images\example1.bmp', 120 )
27+
28+
SAY rxImgReSize( 'images\example0.bmp', 'images\example2.bmp', 120, 120, 'BW' )
29+
30+
SAY rxImgReSize( 'images\example0.bmp', 'images\example3.bmp',, 120 )
31+
32+
SAY rxImgReSize( 'images\example3.bmp',,, 1370, '256' )
33+
34+
SAY rxImgReSize( 'images\example0.bmp', 'images\example4.bmp' )
35+
36+
SAY rxImgReSize( 'images\example4.bmp',,210,'aspect' )
37+
38+
SAY rxImgReSize( 'images\example1.bmp','images\example5.jpg', 1000, 1000, 'laNcZos' )
39+
40+
SAY rxImgReSize( 'images\example3.bmp','images\example6.jpg', 2000, 2000,'asPeCt neAresTneighBor' )
41+
42+
SAY rxImgReSize( 'images\example0.bmp','images\example7.bmp', 3000, 3000, 'laNcZos' )
43+
44+
SAY rxImgCapture( 'Desktop', 'images\example.bmp' )
45+
46+
SAY rxImgCapture( 'editor', 'interior', 'images\example8.bmp' )
47+
48+
SAY rxImgCapture( 'editor', 'interior', '7l', '35b', 'images\example9.bmp' )
49+
50+
SAY rxImgReSize( 'images\example0.bmp', 'images\example10.png',, 350 , 'blackman 6x6x6' )
51+
52+
SAY rxImgReSize( 'images\example0.bmp', 'images\example11.png', 125, 250, 'catmullrom vga' )
53+
54+
SAY rxImgReSize( 'images\example0.bmp', 'images\example12.bmp', 500,, 'kaiser' )
55+
56+
SAY rxImgReSize( 'images\example0.bmp', 'images\example13.bmp', 300,, '7x8x4 quadratic' )
57+
58+
SAY rxImgReSize( 'images\example0.bmp', 'images\example14.bmp', 800,, '8 gaussian' )
59+
60+
SAY rxImgReSize( 'images\example0.bmp', 'images\example15.bmp', 550,, '9x6x4 bilinear' )
61+
62+
/* Unload the libarary */
63+
CALL rxImgDropFuncs

‎book/RxImgSze.hlp‎

42.3 KB
Binary file not shown.

‎dbug/README‎

Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
=== DBUG ===
2+
Helper application to debug your own library for rexx.
3+
4+
1 Compile
5+
======
6+
7+
1.a Prerequisite
8+
______
9+
OpenWatcom 1.x
10+
11+
1.b dbug.exe
12+
______
13+
Use OpenWatcom IDE
14+
Open the project file dbug.wpj
15+
You can open dbug.cpp to see the code
16+
Compile (debugging has been set in the project)
17+
18+
2 Usage
19+
======
20+
21+
2.a Prerequisite
22+
______
23+
Rexx library (.dll) that has been compiled with OpenWatcom with debugging set
24+
Rexx script to load and test the capabilities of the library
25+
26+
2.b dbug.exe
27+
______
28+
Open a Command Prompt (Window)
29+
Change directory to where you've placed the script, dbug.exe and the rexx library to test
30+
Type "wdw dbug <script_name>" (where <script_name> is the name of your script, without "
31+
and the OpenWatcom debugger will start and begin with the main procedure of dbug.exe
32+
Use Break
33+
On Image Load... to select the .dll-library file
34+
Run once to go to the part where the script actually load the .dll-library file
35+
Press F10 to step over each row of code and F8 to jump into functions etc.
36+
37+
See documentation and help for wdw for more in depth help
38+
39+
3 Example of Usage
40+
======
41+
42+
3.a RxImgSze
43+
_______
44+
wdw dbug TestRxImgSze
45+
46+
Remember to copy dbug.exe to the folder where you place the library and script!

‎dbug/TestRxImgSze.cmd‎

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
/* Testing rxImgSze.dll */
2+
3+
SAY DIRECTORY()
4+
5+
/* Load the library */
6+
CALL RxFuncAdd 'rxImgLoadFuncs', 'rxImgSze', 'rxImgLoadFuncs'
7+
8+
SAY DIRECTORY()
9+
10+
CALL rxImgLoadFuncs
11+
12+
MKDIR images
13+
14+
SAY '>'rxImgVersion()'<'
15+
SAY '>'rxImgVersion( 'r' )'<'
16+
SAY '>'rxImgVersion( 'G' )'<'
17+
SAY '>'rxImgVersion( 'F' )'<'
18+
SAY '>'rxImgVersion( 'P' )'<'
19+
20+
SAY rxImgCapture( 'RxImgSize', 'images\example0.bmp' )
21+
22+
SAY rxImgReSize( 'images\example0.bmp' )
23+
24+
SAY rxImgReSize( 'images\example0.bmp', 'images\example1.jpg', 100 )
25+
26+
SAY rxImgReSize( 'images\example0.bmp', 'images\example1.bmp', 120 )
27+
28+
SAY rxImgReSize( 'images\example0.bmp', 'images\example2.bmp', 120, 120, 'BW' )
29+
30+
SAY rxImgReSize( 'images\example0.bmp', 'images\example3.bmp',, 120 )
31+
32+
SAY rxImgReSize( 'images\example3.bmp',,, 1370, '256' )
33+
34+
SAY rxImgReSize( 'images\example0.bmp', 'images\example4.bmp' )
35+
36+
SAY rxImgReSize( 'images\example4.bmp',,210,'aspect' )
37+
38+
SAY rxImgReSize( 'images\example1.bmp','images\example5.jpg', 1000, 1000, 'laNcZos' )
39+
40+
SAY rxImgReSize( 'images\example3.bmp','images\example6.jpg', 2000, 2000,'asPeCt neAresTneighBor' )
41+
42+
SAY rxImgReSize( 'images\example0.bmp','images\example7.bmp', 3000, 3000, 'laNcZos' )
43+
44+
SAY rxImgCapture( 'Desktop', 'images\example.bmp' )
45+
46+
SAY rxImgCapture( 'editor', 'interior', 'images\example8.bmp' )
47+
48+
SAY rxImgCapture( 'editor', 'interior', '7l', '35b', 'images\example9.bmp' )
49+
50+
SAY rxImgReSize( 'images\example0.bmp', 'images\example10.png',, 350 , 'blackman 6x6x6' )
51+
52+
SAY rxImgReSize( 'images\example0.bmp', 'images\example11.png', 125, 250, 'catmullrom vga' )
53+
54+
SAY rxImgReSize( 'images\example0.bmp', 'images\example12.bmp', 500,, 'kaiser' )
55+
56+
SAY rxImgReSize( 'images\example0.bmp', 'images\example13.bmp', 300,, '7x8x4 quadratic' )
57+
58+
SAY rxImgReSize( 'images\example0.bmp', 'images\example14.bmp', 800,, '8 gaussian' )
59+
60+
SAY rxImgReSize( 'images\example0.bmp', 'images\example15.bmp', 550,, '9x6x4 bilinear' )
61+
62+
/* Unload the libarary */
63+
CALL rxImgDropFuncs

‎dbug/dbug.cpp‎

Lines changed: 37 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,37 @@
1+
#define INCL_REXXSAA
2+
#include <rexxsaa.h>
3+
#include <iostream.h>
4+
5+
int main(int args, char *argn[]) {
6+
LONG return_code; /* interpreter return code */
7+
RXSTRING argv[1]; /* program argument string */
8+
RXSTRING retstr; /* program return value */
9+
SHORT rc; /* converted return code */
10+
CHAR return_buffer[250]; /* returned buffer */
11+
/* build the argument string */
12+
CHAR retval[1];
13+
retval[0] = '\0';
14+
15+
if( args > 2 ) {
16+
MAKERXSTRING( argv[0], argn[1], strlen( argn[1] ) );
17+
} else {
18+
MAKERXSTRING( argv[0], retval, strlen( retval ) );
19+
}
20+
/* set up default return */
21+
MAKERXSTRING(retstr, return_buffer, sizeof(return_buffer));
22+
return_code = RexxStart(args, /* one argument */
23+
argv, /* argument array */
24+
argn[1], /* REXX procedure name */
25+
NULL, /* use disk version */
26+
NULL, /* default address name */
27+
RXCOMMAND, /* calling as a subcommand */
28+
NULL, /* no exits used */
29+
&rc, /* converted return code */
30+
&retstr); /* returned result */
31+
/* process return value */
32+
/* need to return storage? */
33+
if (RXSTRPTR(retstr) != return_buffer)
34+
DosFreeMem(RXSTRPTR(retstr)); /* release the RXSTRING */
35+
36+
return 0;
37+
}

‎dbug/dbug.lk1‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
FIL dbug.obj
2+

0 commit comments

Comments
 (0)