World: r3wp

I just wanted to show amacleod how it's possible to do that. This 
was first attempt imho. In the PC version we used just some morphing 
blured shapes. But the engine on Wii has no blur support.

Thanks Oldes. But I did not want to use flash...wanted a pure rebol 
solution.

http://anton.wildit.net.au/rebol/demo/rebol-on-fire.r

and solar-refractor.r

and blood-light.r

Thanks Anton. I'll look over the code of those

Or you can prerender the smoke and do something like that: 
do http://box.lebeda.ws/~hmm/rebol/vid-anim.r

(huh.. it was years ago I did something like that in REBOL - I even 
had to google to refresh my memories)

I'm working on a little particle generator... I coudn't resists.

its strating to actually produce interesting results  :-)

I'm managing 1000 particles via Draw at about 50% of one core.  not 
bad  :-)

the particle engine is done, I'm now building a view interface to 
control the various properties like wind/turbulence.   you can even 
ignite your own fires & smoke with a click of the mouse.  

won't be long, I'll put it on rebol.org.

you are the man Maxim....I hate to distract you from your other distractions 
but thanks

I'm just about done... the current gui, has a victorian house in 
the backdrop and tree branches in the foreground which add to give 
a sense of depth

I just need to add few more controls and I'll be done.

cool

yeah its pretty fun  :-D

all that I need to do know is....

-create a new default setup with all the new options... aligned with 
the house windows... 
-merge the images within the script as binary data.

so you are pre compiling the images?

yep... its going to be a one-script affair.

confused! But i'll wait to see it before I comment

just to wet your appetite a bit....


http://www.pointillistic.com/open-REBOL/moa/files/burning-house.png

a run-time screen grab while the simulator is running  :-)

Go Max go!

well, embedding the images is a no go... it inflates them to about 
half more (including  a compress and 64 base compression)  so I'll 
just use an url which loads the paths.

the script will end-up being about 800kb with nothing but image data 
and 9k of text at the end...

Can someone point me to solutions for detecting the names of installed 
fonts?  If possible for different platforms.

yes

Ashley posted something .. have a search

I tried reading the windows registry but the registry functions are 
broken ...

A looooong time ago, Carl Read and I did something for TTFs on Windows. 
I can dig it up if you want Chris.

this is Ashley's code 



call/output {reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows 
NT\CurrentVersion\Fonts"} fonts: copy ""



but although it works for me, I see that on other systems it just 
locks up.

reposted from 3rd March, AGG group

and ...


keys: list-reg/HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
    probe keys


    keys: get-reg/HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" 
    "URW Palladio L Italic (TrueType)"
    probe keys


    keys: exists-reg?/HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\URW 
    Palladio L Italic (TrueType)" 
    probe keys

produces this

[]
URWPA32_0.TTF
false

get-fonts: make function! [
	"Obtain list of fonts on supported platforms."
	/local s fonts
] [
	fonts: copy []
	either 3 = fourth system/version [

  call/output {reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows 
  NT\CurrentVersion\Fonts"} s: copy ""
		s: skip parse/all s "^-^/" 4
		foreach [fn reg style] s [
			fn: trim first parse/all fn "("
			all [
				not find fonts fn

    not find ["Estrangelo Edessa" "Gautami" "Latha" "Mangal" "Mv Boli" 
    "Raavi" "Shruti" "Tunga"] fn
				not find fn " Bold"
				not find fn " Italic"
				not find fn " Black"
				not find fn "WST_"
				insert tail fonts fn
			]
		]
	] [
		call/output "fc-list" s: copy ""
		s: parse/all s ":^/"
		foreach [fn style] s [
			all [
				not find fonts fn

    (size-text make face [text: "A" font: make font [name: fn size: 10]]) 
    <>

    size-text make face [text: "A" font: make font [name: fn size: 12 
    style: 'bold]]
				insert tail fonts fn
			]
		]
	]
	sort fonts
]

Has anyone been writing much VID or Draw code for Linux? I've tried 
a number of distributions and get the same result -- REBOL/View 2.7.7 
has some serious issues. I can't even open the Demo folder on the 
Viewtop without getting a segmentation fault. Version 2.7.6 does 
not have this problem.

The List-View style code kept seg faulting. Rolling back to 2.7.6 
fixed the problem. I don't have this trouble with Windows.

I was testing on Ubuntu 10.04, TinyCoreLinux (latest) and Puppy Linux 
5.10.

Fonts are usually a problem. I'm not sure what has changed between 
2.7.6 and 2.7.7 in this regard.

ddharing, 2.7.7 works fine here on Ubuntu 10.04, as far as I can 
tell. The trick is to use the "Fedora" binary (2.7.7.4.3), _not_ 
the "Libc6" one.

Henrik, have you tried opening the Rebol/Demo folder on the Viewtop 
in Linux? It always crashes on me. I think it's the Draw code for 
pretty background, but I never verified that -- just rolled back 
to get around the problem.

Andreas, I haven't tried that. Thanks for the tip.

I was using the Libc6 version.

clipping had bugs in 2.7.7 with gradient fills.   he released a patch 
on windows, but never compiled it for linux.

btw, I've had the same crash in windows with the viewtop on windows.

Maxim, what version of Windows?

The problem is:
2.7.7.4.3 links against libXaw.so.7
2.7.7.4.2 links against libXaw7.so.7

(Or something like that. Haven't looked at it for a while.)

xp.  its crashed using the standard 2.7.7 version... though it might 
not be specifically the same bug as you have.

it was just odd to me that opening the viewtop caused an error in 
the interpreter.