home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
applications
/
databases
/
databasepro
/
picbase
/
slideshow.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1995-07-10
|
907b
|
50 lines
/* SlideDIA.rexx, 02.09.94 Jörg Richter */
/* Slideshow aller markierten Bilder mit dem EGS Programm DIA */
OPTIONS RESULTS
effect.0 = "HALFLINE"
effect.1 = "CHECKER"
effect.2 = "DISSOLVE"
ADDRESS DataBase
Request "_Effekt|_Direkt" "DIA gestartet ?"
eff = RC
LeftTotal
weiter = 1
DO WHILE weiter = 1
IsMarked
IF RC = 0 THEN DO
GetData $F1
bild = result
IF eff = 1 THEN DO
rnd = RANDOM(0,2,Time(s))
ADDRESS "rainbow"
Load bild
IF RC = 0 THEN DO
Show effect.rnd
FreeBuffer
SFName Times.font
SetFont 15 0
Color 220 10 150
Move 40 580
pos = Max(LastPos(":",bild),LastPos("/",bild))
Text DelStr(bild,1,pos)
END
END
ELSE DO
ADDRESS "rainbow"
Open bild
ADDRESS COMMAND
'Wait 3 secs'
END
ADDRESS DataBase
END
RightOne
IF RC ~= 0 THEN
weiter = 0
END