Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

The OldsKool Demo :-)

 [1/9] from: reboleur:free at: 18-Sep-2003 19:17


Yo all, My first demo in Rebol : The "OldsKool Demo" :) Available here : http://reboleur.free.fr/OldsKool/OldsKool.zip - scrolling texts in french and in english, - synchronisation with the speed of your processor (better quality with power ;). Enjoy it ! :) Regards, Sébastien 'Jedi' Jeudy.

 [2/9] from: petr:krenzelok:trz:cz at: 18-Sep-2003 21:44


Sébastien Jeudy wrote:
>Yo all, >My first demo in Rebol :
<<quoted lines omitted: 6>>
>Regards, >Sébastien 'Jedi' Jeudy.
so cool! Now finally Cyphre and Oldes got their competition ;-) Well, your demo reminds me of Amiga demos! Now if we could get some smoother scrolling with Rebol, it would be even cooler :-) -pekr-

 [3/9] from: greggirwin::mindspring::com at: 18-Sep-2003 14:20


Hi Sébastien, SJ> My first demo in Rebol : And a very cool demo it is! Nice work! -- Gregg

 [4/9] from: antonr:iinet:au at: 19-Sep-2003 15:03


Very nice! Now for some optimizations :) ; scroll1 ;c1: load %c1.bmp c2: load %c2.bmp c3: ... ;cars1: [ " " c1 "A" c2 "B" c3 "C" c4 "D" c5 ... Instead of using the system above, try this: cars1: " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,:!?+-*/()" bmps: copy [] repeat n length? cars1 [append bmps load join %c [n ".bmp"]] And later on: ; scroll1 ;for n1 1 nb-car-ecran1 1 [ ; Use repeat instead of for. repeat n1 nb-car-ecran1 [ ; Less code and a little faster. pos1: n1 either pos1 < (nb-car-ecran1 - pos-scroll1) [ ;car1: select cars1 to-string " " car1: if find cars1 " " [select bmps index? find cars1 " "] ] [ pos1: pos-scroll1 + n1 - nb-car-ecran1 ;car1: select cars1 to-string scroll1/:pos1 car1: if find cars1 scroll1/:pos1 [pick bmps index? find cars1 scroll1/:pos1] ] You could also save all your bitmaps in one file, then you can load them all at once into bmps. save %bmps1.r bmps bmps: reduce load %bmps1.r Anton.

 [5/9] from: AJMartin:orcon at: 19-Sep-2003 19:39


Sébastien 'Jedi' Jeudy wrote:
> My first demo in Rebol : > > The "OldsKool Demo" :) > > Available here : http://reboleur.free.fr/OldsKool/OldsKool.zip
I like it, Sébastien. Andrew J Martin ICQ: 26227169 http://www.rebol.it/Valley/ http://valley.orcon.net.nz/ http://Valley.150m.com/

 [6/9] from: cyphre:seznam:cz at: 19-Sep-2003 11:27


Hi Sébastien, Nice demo! I wonder how fast it runs on your Pegasos board? Anyway I'm interested in any "real world" informations about the new Amiga-like systems. So could you write a bit about your experience? I mean your machine setup, performace regarding Rebol programs, what version of View are you using(I thing you are using it under some kind of emulation, isn't that?) Anyway, demo or die! :-) regards, Cyphre PS: I have heard some rumours that MorphOS team wanted to make a port f View for their system. Anyone knows more?

 [7/9] from: s::jeudy::libertysurf::fr at: 19-Sep-2003 14:44

=?iso-8859-1?Q?Re:_The_OldsKool_Demo_:-)?=


Yo all, Thanks for ALL your feedbacks :) @Anton: Thank you very much for your optimizations! :) That was exactly what I would like to optimize ;) So, a new archive of the "OldsKool Demo" has been uploaded at : http://reboleur.free.fr/OldsKool/OldsKool.zip (including these optimizations + correction of 'merge (effects) for the new View Beta...). Regards, Sébastien 'Jedi' Jeudy. http://reboleur.free.fr ---------- Initial Header -----------
>From : [rebol-bounce--rebol--com]
To : <[rebol-list--rebol--com]> Cc : Date : Fri, 19 Sep 2003 15:03:08 +1000 Subject : [REBOL] Re: The OldsKool Demo :-) Very nice! Now for some optimizations :) ; scroll1 ;c1: load %c1.bmp c2: load %c2.bmp c3: ... ;cars1: [ " " c1 "A" c2 "B" c3 "C" c4 "D" c5 ... Instead of using the system above, try this: cars1: " ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,:!?+-*/()" bmps: copy [] repeat n length? cars1 [append bmps load join %c [n ".bmp"]] And later on: ; scroll1 ;for n1 1 nb-car-ecran1 1 [ ; Use repeat instead of for. repeat n1 nb-car-ecran1 [ ; Less code and a little faster. pos1: n1 either pos1 < (nb-car-ecran1 - pos-scroll1) [ ;car1: select cars1 to-string " " car1: if find cars1 " " [select bmps index? find cars1 " "] ] [ pos1: pos-scroll1 + n1 - nb-car-ecran1 ;car1: select cars1 to-string scroll1/:pos1 car1: if find cars1 scroll1/:pos1 [pick bmps index? find cars1 scroll1/:pos1] ] You could also save all your bitmaps in one file, then you can load them all at once into bmps. save %bmps1.r bmps bmps: reduce load %bmps1.r Anton. -- Sébastien Jeudy Annuaire Amiga Francophone - http://annuaire.amiga.free.fr Annuaire Pegasos Francophone - http://annuaire.pegasos.free.fr ********** L'ADSL A 20 EUR/MOIS********** Avec Tiscali, l'ADSL est ŕ 20 EUR/mois. Vous pourrez chercher longtemps avant de trouver moins cher !

 [8/9] from: s:jeudy:libertysurf at: 19-Sep-2003 15:53


> Hi Sébastien,
Hi Cyphre :)
> Nice demo!
Thanks ;)
> I wonder how fast it runs on your Pegasos board?
Very slow :( (better rate is 0.1s...) 'coz Rebol View is still the Amiga 1.2.1.1.1 for 68k (so under "emulation" for PowerPC (G3). Not really an emulation due to the compatibility of the system, and a very good JIT included in MorphOS ;)
> Anyway I'm interested in any "real world" informations about the > new Amiga-like systems. So could you write a bit about your > experience? I mean your machine setup, performace regarding Rebol > programs, what version of View are you using(I thing you are > using it under some kind of emulation, isn't that?) > Anyway, demo or die! :-)
I have a Pegasos PPC [G3--600MHz] + 256 Mo SDRam + Radeon 7500 AGP + HD 40Go IDE + DVD + ... That the Pegasos1, no more manufactured, only for Betatesters (600 units solds arround the world). But soon (for the end of 2003) will come the Pegasos2 with G3 AND G4 + DDR + ... (for the large public :) (project: G5 for Pegasos ;) Now, MorphOS is v1.4, more stable, with more and more options & tools, and a SuperBundle of Software (for the moment totally free for all the Pegasos users :). And the compatibility with the classic Amiga applications are also more and more better (for example : no problem with the system applications). (nota: after OpenFirmware, MorphOS boots on Ambient (Workbench) in... less 5s ! :) Concerning Rebol on MorphOS, with the version above (Amiga 68k), for example your "Shadow of The Beast / Arcadia" runs at max 17 FPS... In generally, Rebol runs well on MorphOS (NO problem of compatibility), but become slow with applications requiring power... However, Linux PPC runs also on Pegasos, but I've never tested the version of View for Linux PPC... (certainly faster than Amiga 68k version ;)
> regards, > > Cyphre > PS: I have heard some rumours that MorphOS team wanted to make a > port of View for their system. Anyone knows more?
What I know : Genesi (Pegasos/MorphOS) contacted Rebol Company to ask them to port native Rebol on MorphOS. Rebol company is interesting for that, but has other priorities for the moment (Pegasos units and users are also too few, not really a market...). Perharps Carl could say more regarding this point... ;) Regards, Jedi, who want Rebol native on MorphOS ! :) -- Sébastien Jeudy Annuaire Amiga Francophone - http://annuaire.amiga.free.fr Annuaire Pegasos Francophone - http://annuaire.pegasos.free.fr ********** L'ADSL A 20 EUR/MOIS********** Avec Tiscali, l'ADSL est ŕ 20 EUR/mois. Vous pourrez chercher longtemps avant de trouver moins cher !

 [9/9] from: r3b0l:free at: 22-Sep-2003 11:25

Re: The OldsKool Demo :-)


> I wonder how fast it runs on your Pegasos board? Anyway I'm interested in > any "real world" informations about the new Amiga-like systems. So could you > write a bit about your experience? I mean your machine setup, performace
I use Rebol on my Pegasos G3/600 + Vodoo3000 or Radeon 7500 too... (yet another french amiga & pegasos user) I'll probably update it to G4 model in October. I am registred Amiga rebol/view/pro user but i use it often on windows (mainly at work) and sometimes under linux. MorphOS 1.4 is very stable now and we have lot of interesting ports like Scumm, Blender, Mplayer, etc.. and all my favourite applications works fine (Pagestream, Aweb, Ibrowse, Voyager, Apdf, Yam, RC5-72/OGR client, etc..). Official websites : http://www.morphos.net/ http://www.pegasosppc.org/ Other links : http://www.morphos-news.de/ http://www.morphzone.org/
> regarding Rebol programs, what version of View are you using(I thing you are > using it under some kind of emulation, isn't that?)
Yes a native PPC version would be fine (Amiga G3 / G4 version, G5 isn't yet available) ! I am curently writing an "how-to" install Rebol on MorphOS / PegasOS... I presume french version will be first available in next weeks on http://www.rebolfrance.org/ website. An english version will follows with lot of screenshots.
> Anyway, demo or die! :-)
Sure,
> regards, > > Cyphre
AMIGAlly, Arnaud aka bigdan near Vesoul, France
> PS: I have heard some rumours that MorphOS team wanted to make a port f View > for their system. Anyone knows more?
You could try to mail Nicolas Sallin aka Henes (nsallin "at" fr "dot" genesi "dot" lu)... and also ask more details to Carl or Holger of course ;-) -- email : [r3b0l--free--fr] or dan "at" migazone "dot" com Website of the day : http://cristal.inria.fr/~harley/pint.html

Notes
  • Quoted lines have been omitted from some messages.
    View the message alone to see the lines that have been omitted