home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #6
/
AmigaPlus-eXtra-6-96.iso.7z
/
AmigaPlus-eXtra-6-96.iso
/
demo-versionen
/
artstudio_se
/
rexx
/
makestamp.asrx
< prev
next >
Wrap
Text File
|
1985-05-02
|
5KB
|
162 lines
/*
** MakeStamp.asrx
**
** $VER: UNIVERSAL_LOADER V1.3.3 (01.02.95)
**
** (c) by MotionStudios
** Wildermuthplatz 3
** 28211 Bremen
** Tel.: 0421/249966
**
**
** xMax = Maximale Breite
** yMax = Maximale Hoehe
** Rand = 1, dann wird ein weisser Rand um das Bild gemacht
** A = PixelAspect beachten
** D = 1, dann Dithering einschalten
** W = Anzahl der Sekunden, wie lange nach laden von ADPro gewartet werden soll
** R = Rot-Anteil fuer Hintergrund
** G = Gruen-Anteil fuer Hintergrund
** B = Blau-Anteil fuer Hintergrund
** Col = 0, dann Color, sonst Grey
** Path = TempPathFile
*/
ADDRESS "ADPro"
OPTIONS RESULTS
PARSE ARG xMax yMax Rand A D W R G B Col Path
IF ~SHOW('P','ADPro') THEN
DO
ADDRESS COMMAND 'run >NIL: <NIL: ADPro:ADPro BEHIND MAXMEM=7500000'
ADDRESS COMMAND Wait W
END
ORIENTATION PORTRAIT
PSTATUS "UNLOCKED"
LOADER "UNIVERSAL" Path
PSTATUS "LOCKED"
PCONTRAST 1
PWIDTH "ENHANCED"
IF Col=0 THEN DO
RENDER_TYPE '256'
POFFSET 0
PTOTAL 256
PUSED 256
PLOAD "ArtStudio:Color/Color256.iff"
PUSED 256
END
IF Col=1 THEN DO
RENDER_TYPE '256'
POFFSET 0
PTOTAL 256
PUSED 256
PLOAD "ArtStudio:Color/Grey256.iff"
PUSED 236
POFFSET 20
END
IF Col=2 THEN DO
RENDER_TYPE '128'
POFFSET 0
PTOTAL 128
PUSED 128
PLOAD "ArtStudio:Color/Grey128.iff"
PUSED 108
POFFSET 20
END
IF Col=3 THEN DO
RENDER_TYPE '64'
POFFSET 0
PTOTAL 64
PUSED 64
PLOAD "ArtStudio:Color/Grey64.iff"
PUSED 44
POFFSET 20
END
IF Col=4 THEN DO
RENDER_TYPE '32'
POFFSET 0
PTOTAL 32
PUSED 32
PLOAD "ArtStudio:Color/Grey32.iff"
PUSED 12
POFFSET 20
END
IF Col=5 THEN DO
RENDER_TYPE '16'
POFFSET 0
PTOTAL 16
PUSED 16
PLOAD "ArtStudio:Color/Grey16.iff"
PUSED 8
POFFSET 8
END
XSIZE
x = ADPRO_RESULT
YSIZE
y = ADPRO_RESULT
IF A=0 THEN DO
ABS_SCALE xMax yMax
x = xMax
y = yMax
END
ELSE DO
IF x >= y THEN DO
z = x / y
IF z < (4/3) THEN DO
z = y / yMax
x = x % z
y = yMax
END
ELSE DO
z = x / xMax
y = y % z
x = xMax
END
END
ELSE DO
z = y / x
IF z > (4/3) THEN DO
z = y / yMax
x = x % z
y = yMax
END
ELSE DO
z = y / yMax
x = x % z
y = yMax
END
END
ABS_SCALE x y
END
IF D=1 THEN DO
DITHER_AMOUNT 16
DITHER 1
END
ELSE DITHER 0
IMAGE
BildArt = ADPRO_RESULT
IF BildArt = 'GRAY' THEN OPERATOR Gray_To_Color
IF x<xMax OR y<yMax THEN DO
SFORMAT 'IFF'
SAVE Path RAW
LOADER "BACKDROP" "XXX" xMax yMax "COLOR" R G B
v = (xMax - x) % 2
w = (yMax - y) % 2
LOADER "IFF" Path v w
END
IF Col>0 THEN OPERATOR Color_To_Gray
IF Rand=1 THEN OPERATOR RECTANGLE 0 0 xMax yMax 1 255 255 255 100
RENDER_TYPE 'CUST'
EXECUTE
SFORMAT 'IFF'
SAVE Path IMAGE