REM Erstellt in CorelPhotoPaint Version 9.337
REM erstellt am Saturday, April, 28, 2001 von Stefan Plafka

Global Relativ as Boolean
Relativ=true		'Wenn TRUE, dannn wird das Bild um "Scale" Prozent Skaliert 
Scale!=0.5
Max& =400			'Wenn "Relativ"=False dann wir Bild auf Maximale Ausdehnung "Max" skaliert

WITHOBJECT "CorelPhotoPaint.Automation.10"
	Qx& = .GetDocumentWidth()
	Qy& = .GetDocumentHeight()
	.SetDocumentInfo Qx, Qy
	IF not Relativ Then
		If Qx>Qy Then
			Zx& =Max&
			Zy& =Max&*Qy/Qx
 		ELSE
			Zy& =Max&
			Zx& =Max&*Qx/Qy
		End IF
	ELSE
		Zx= Qx*Scale
		Zy= Qy*Scale
	END IF	

	'Nach der normalen Scalierung sind die Bilder immer etwas unscharf
	'um das zu vermeiden , wird vorher ein angepaßter Sharpen-filter darüber gelegt
	Rad& = int(Qx/Zx)  '2 mal
	If Rad>0 then .BitmapEffect "Unsharp Mask", "UnsharpMaskEffect UnsharpMaskRadius=" & Rad & ",UnsharpMaskPerctg=40,UnsharpMaskThreshold=3"
	
	.ImageResample Zx, Zy, 72, 72, TRUE	'Skalieren
	.FilterJPG 8,TRUE,0,0,FALSE			'Speichern
END WITHOBJECT




	'MESSAGE "Qx: "& Qx &" Qy: " & Qy &" Zx: "& Zx &" Faq: "&Rad