/*
NOTE : If you use a 68000 version, don't forget to change "ImageStudio020"
       to "ImageStudio" at line 16 !!

*/

options results
arg isdir filename
address 'IMAGESTUDIO'

/*
** Make sure ImageStudio is running
*/
IF ~show(ports,'IMAGESTUDIO') THEN
DO
    Address COMMAND 'cd 'isdir||d2c(10)'Run >NIL: ImageStudio020 SPLASHWINDOW=OFF PREVIEWREDRAW=OFF SCREENFRONT=OFF'
	do while ~show(ports,'IMAGESTUDIO')
		Address COMMAND 'C:Wait 2'
    end
END

PREF_SET NAME "PREVIEWREDRAW" VALUE "OFF"

/*
** Now load the picture ...
*/
OPEN filename

IF RC == 0 THEN DO

	/*
	** Get the picture size
	*/
    IMAGEINFO_GET STEM IMAGE.

	/*
	**  We store image infos in a temporary file
	*/
	type = IMAGE.WIDTH || "x" || IMAGE.HEIGHT
	Address COMMAND 'echo' type '>T:PICINFO'

    If IMAGE.DEPTH ~= 24 then COLOURS SIXTEENMILLION


END
ELSE DO

    address command 'echo Error! >T:PICINFO'

END