Re: Akua Sweets
Re: Akua Sweets
- Subject: Re: Akua Sweets
- From: Andy Wylie <email@hidden>
- Date: Thu, 12 Jul 2001 00:53:03 +1200
on 11/7/01 11:52 pm, Simon Forster at email@hidden wrote:
>
OK. After prompting from someone on the list, I've downloaded Akua Sweets.
>
On first look, it's a mess. On second look it's a mess. On third look it's
>
still a mess but I can see that we have some mighty powerful commands in
>
here.
Au contrare, it's just BIG. I played with it when there was talk of doing it
with GC on the list recently and got this far in 15 minutes so it's crude
but has the commands you require, it even has a comment ;-)
--scale image Akua
set x to the image from (choose file)
set {picBnds, img_res} to {picture bounds of (the picture info for x),
picture resolution's item 1 of (the picture info for x)}
display dialog "Resolution is " & img_res & " DPI , change output?" buttons
{"Cancel", "Change", "OK"} default button 2 with icon 1
set butRet to button returned of result
if butRet = "Change" then
set img_res to choose from list {72, 144, 288, 576, 1152} with prompt
"The image is " & img_res --default items {"Current Res ", img_res}
if result is false then return
end if
set chosen_scale to 0 + (choose from list {2.0, 1.75, 1.5, 1.25, 0.875,
0.75, 0.625, 0.5, 0.375, 0.25, 0.125} with prompt "" & picBnds default items
0.5)
if result is false then return error -128
set new_scale to ({0, 0, round (picBnds's item 3) * chosen_scale, round
(picBnds's item 4) * chosen_scale})
set x to scale image x to new_scale at img_res
store image x
_________________________HTH Andy
| References: | |
| | >Akua Sweets (From: Simon Forster <email@hidden>) |