AltME groups: search

Alan - THanks, but I have the same version. I thought there was a 
more recent one.
	Title: "Slideshow Presenter"
	Author: "Carl Sassenrath"
	Version: 1.2.0
	Date: 14-Dec-2001

I would like to share a slideshow.

hypnotically slow, but not a slideshow

But I could do a slideshow when I prepare an emulator image]

REBOL [
    Title:   "Slideshow"
    Date:    12-Oct-2006
    Name:    'SLIDESHOW  ; For window title bar
    Version: 1.0.0
    File:    %slideshow.r
    Author:  "Louis A. Turk"
    Rights:  "Public Domain; use at your own risk."
    Needs:   "A version of REBOL/VIEW supporting sound"

    Purpose: {To make possible simple, easy to make narrated slide shows.

              Hopefully can be used with the REBOL plugin to show narriated slides
              on a web site.

              Hopefully can an effective tool to teach REBOL programming.
    }
    Note: {
        The concept and design originated with Louis A. Turk.

        DideC helped considerably by answering programming questions and 
        giving bits of code;
        it would not have been possible without his help.
	Josh also answered programming questions.


        You can make wav files using the free program Audacity. http://audacity.sourceforge.net


        Advanced JEPG Compressor does and excellent job compressing graphics 
        files so they load 
        faster, but is not free.
    }
    History: [
        1.0.0 [ "First release." "Louis"]
    ]

    Language: 'English
]

;Requires a data file named %slides.r containing lines of blocks 
in the following format:

;Each block must contain: (1) slidename, (2) overlay, (3) caption, 
(4) sound.

;Example block: [%slide1.jpg "Overlay text." "A caption!" %sound.wav]
;Use "" for no overlay or caption.


;file: request-file/title/only "Select the slides data file to use." 
"Select Data File"

file: %slides.txt ;uncomment the above line, and comment this one 
to select data files with different names.
slides: load file
narrate: func [talk] [ ;--- Manage the sound
    sound-port: open sound://
    insert sound-port load talk
    wait sound-port
    close sound-port
]

view/new win: layout/size [] 650x650 ;<= Set the max size you need
wait 0  ;---Initialize REBOL's internal event handler.
foreach slide  slides [ ;--- Start the slide show
    set [graphic overlay caption narration] slide
    lay: layout [
        origin 0

        banner center bold red "A REBOL Produced Narriated Slide Show" 
        image graphic overlay 500x400 frame black [unview] [quit]
        text 500 bold caption
        button "Quit" center [quit]
    ]
    center-face/with lay win
    append clear win/pane lay
    show win
    narrate narration
]
do-events

Ashley, can you explain in a little more detail how your setup works 
for you?

 Sure. I run a home office with two studies. Each has a Mac mini (plus 
 Cinema display) for day-to-day work. My study also has a TabletPC 
 connected to a 1280x1024 VGA LCD display. I use this for REBOL development 
 and demos away from home.


The iBook is located in the other study and is used by my better 
half when running Windows software related to our finance company 
(CRM/Sales software distributed via the professional body we belong 
to, no Mac or Linux option available). We also use the iBook when 
showing non-IT people stuff (e.g. a spreadsheet showing how much 
their portfolio could be worth if they geared it) and when attending 
training sessions.


The ADSL modem has an ethernet connection to Airport express, which 
in turn has the MFC plugged into its USB slot. The Mac's pick up 
the printer automatically, the TabletPC runs Bonjour and does the 
same. Everything, including the TabletPC, detected the Network without 
issue. It really has been as simple as, 1) Unpack, 2) Plug-in, 3) 
Use. I've also noticed that WinXP running on the iBook is a lot faster/smoother 
than on the TabletPC as it installs 'clean' (i.e. piggy-backs off 
the Mac's Network and Hardware support).


Large screens are a must if you write and or read a lot of documents. 
A 1920x1200 screen lets you do a slideshow on a PDF document and 
read the pages side-by-side. On wide screens I always have the task-bar/dock 
on the right to maximize the vertical display area.

I see. What I mean is taking an actionscript example and converting 
it to your dialect. Right now I'm trying to make a simple "slideshow" 
with fades and I found some actionscript examples. That being said, 
just you saying that the DoAction[] is somewhat like Actionscript 
takes some mystery out of the process.

Oldes, yes, I did figure out that it works perfectly under 6 and 
kinda under 8. That took a while until I noticed that your slideshow 
was created under 6. Thanks.

For inspiration, Wright looked to the 

demo scene," a group of (mostly European) coders who specialized 
in doing a whole lot with a little bit of code. Their procedural 
programming methods were able to, for example, fit an entire 3D game 
in 64K, using mathematics to generate textures and music, etc. "I 
just found this incredibly exciting," Wright confesses, describing 
the kinds of work that he saw come out of the demo scene."


So here's what he did: he recruited an elite strike team of coders 
(who, if you were to believe his slideshow, dressed like ninjas) 
and put them in a 

hidden facility" to experiment with new ways of giving the user powerful 
tools and generating tons of dynamic content without armies of content 
creators. Best of all, he fired up a demo and showed his audience 
the results... "

this is almost a REBOL like way to create games :-)

You mean such a tutorial? The framework itself is not interesting 
for me. He made just a bitmap slideshow with tons of files required. 
All of this is made just in Flash IDE with some template used.

Here is the script that calls it:

<HTML><HEAD><TITLE>Test - REBOL Plugin Demo</TITLE>

<script language='javascript' src='http://127.0.0.1:1026/js.cgi?pca&r=28703'></script>
</HEAD>
<CENTER>
<H1>Test - REBOL Plugin Demo</H1>

<OBJECT ID="REBOL_IE" CLASSID="CLSID:9DDFB297-9ED8-421d-B2AC-372A0F36E6C5"

    CODEBASE="http://www.rebol.com/plugin/rebolb7.cab#Version=1,0,0,0"
WIDTH="360" HEIGHT="442" BORDER="1" ALT="REBOL/Plugin">

<PARAM NAME="LaunchURL" value="http://localhost/slideshow/test.r">
<PARAM NAME="bgcolor" value="#ffffff">
<PARAM NAME="version" value="1.0.2">
</OBJECT></CENTER></BODY></HTML>
<script language='javascript'>postamble();</script>

You would examine the cached file using:
	editor path-thru http://localhost/slideshow/test.r
But let us see what this returns:
	print read http://localhost/slideshow/test.r

editor path-thru http://localhost/slideshow/test.r


brings up an erro message saying the file cannot be read (perhaps 
because it doesn't exist?)

print read http://localhost/slideshow/test.rreturns 

>> print read http://localhost/slideshow/test.r
connecting to: localhost
What?
Continue?
>>

>> print read http://localhost/slideshow/test.r
connecting to: localhost
What?
Continue?
>>>> print read http://localhost/slideshow/test.r
connecting to: localhost
What?
Continue?
>>>> print read http://localhost/slideshow/test.r
connecting to: localhost
What?
Continue?
>>

>> exists? path-thru http://localhost/slideshow/test.r
== false
>> probe info? http://localhost/slideshow/test.r
connecting to: localhost
make object! [
    size: 15
    date: none
    type: 'file
]
>>

No I mean directly opening that url in a browser, eg:

browse http://localhost/slideshow/test.r

I expected your console session to look like this:

>> print read http://localhost/slideshow/test.r
connecting to: localhost
REBOL []
print "What?"
ask "Continue?"
>>

and not this:

>> print read http://localhost/slideshow/test.r
connecting to: localhost
What?
Continue?
>>

Anton said: 

No I mean directly opening that url in a browser, eg:

browse http://localhost/slideshow/test.r


OK, that works! Would you believe it? I was doing the same thing 
wrong that I did earlier.  I misunderstood the reason behind it. 
Anyway this does not appear to have been caused by Cheyenne, but 
merely by my ignorance. Anton, thanks again for your help!

No, I spoke too soon. http://localhost/slideshow/test.ris the plug 
in script.  

http://localhost/slideshow/SlideShow2.htmlstill gives the error.

What does 
	browse http://localhost/slideshow/test.r
give you ? What is shown in the browser ?

However, when I try to run my slideshow script, the plugin is unable 
to load the data file.

No, I don't think build-pack.r will work either, as it would have 
to download all the data with the script before the slideshow would 
start.

I haven't used sound in it, but a slideshow should be safe. If you 
already have a desktop version of the app, it should be easy enough 
to set up a page to try it under the plugin.

How are the types of local variables declared in Red/System? The 
slideshow says no type inference...