On Sat 30 Jun, James Taylor wrote:
> On Sat 30 Jun, Geoff Youngs wrote:
> >
> > Have you considered using fly (until someone does)? The RISC OS version
> > is available from http://www.w3perl.com/fly/fly-1.6.5.RiscOS.zip
>
> I'll check it out, thanks, but the main reason for wanting to use the
> GD Perl module locally on RISC OS is to learn how to use it for
> generating web graphics on the fly (no pun intended) so although 'fly'
> may be useful for many things I suspect that it will not teach me what
> I need to know.
>
I do use fly for web stuff both here and online - perl drives fly easily:
sub FlyOut {
$form = sprintf "%0" . $len . "d",$Counter;
$image_width = 7 * $len;
if ($FORM{BG}) {
$background = $FORM{BG};
} else {
$background = "255,255,255";
}
if ($FORM{FG}) {
$foreground = $FORM{FG};
} else {
$foreground = "0,0,0";
}
if ($FORM{SIZE}) {
$size = $FORM{SIZE};
} else {
$size = "medium";
}
print `./fly -q <<XXX
new
size $image_width,15
fill 1,1,$background
transparent $background
string $foreground,0,0,$size,$form
XXX`
}
--
[EMAIL PROTECTED]
