Re[2]: Round selection (again)

2000-07-07 Thread Thomas Stolt

Hago,

yes, the *gimp-ellipse-select* works, however that is not what I am searching for.  A 
rounding of a rectangular select gives me a different shape, than the ellipse does.

Again, it just does not work, the error message I receive is:
"Procedural database execution failed: (gimp_selection_bounds 0)"

Can it be possibly a bug?

Any further ideas??


Thomas



"Hago Ziegler" [EMAIL PROTECTED] schrieb am 06.07.00:
 Hi Thomas,
 
 I still changed it a little. With the first one I had to restart Gimp to
 use it twice, with "set!" instead of "let*" this is not necessary.
 
 Hago
 
 ...
 (define (script-fu-text-test inHeight inWidth )
(set! theImage (car (gimp-image-new inWidth inHeight RGB)))
(set! theLayer (car (gimp-layer-new theImage inWidth inHeight
 RGBA_IMAGE "Layer 1" 100 NORMAL)))
   (gimp-image-add-layer theImage theLayer -1)
   (gimp-selection-all theImage)
   (gimp-edit-clear theLayer)
   (gimp-image-set-active-layer theImage theLayer)
 
   (gimp-ellipse-select theImage 0 0 inHeight inHeight 2 TRUE 0 0
   (gimp-display-new theImage)
   (gimp-image-clean-all theImage)
 )
 
 (script-fu-register
   "script-fu-text-test"
   "Toolbox/Xtns/Script-Fu/Text/Test1"
   "create a box with a round selection (to create a nice button)"
   "Thomas Stolt"
   "copyright 2000, Thomas Stolt"
   "5th of July 2000"
   ""  ;Image type that the script works on
   SF-VALUE "Height:" "31"  ;Button Height
   SF-VALUE "Width:" "100"  ;Button Width
 )
 ...
  92รจ 


___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




http://jimmac.musichall.cz/tutor.php3

2000-07-07 Thread Thomas Stolt

Hi User List



What the heck is GAP?  Or better: _where_ is it??

This page is really good designed (whoever that is)...

Thomas

___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




Round selection (again)

2000-07-06 Thread Thomas Stolt

Ok, I just don't get it, I am still struggling with the basics of ScriptFu.

Please look into the attached script, all I am trying to do is this:

Create a box, transparent
Select all
Round selection

This works perfectly simple and easy manually, but I cannot convince ScriptFu of that. 
Neither script-fu-selection-round nor perl-fu-round-sel give me the results that I get 
by hand.  Very strange, if I produce a box with the script below and round the 
selection manually it works perfectly!!??

*argl*  Help Please!!!

Moreover: I still have not found a proper ScriptFu guide, the couple of pages in the 
GimpUserGuide are totally unsufficient, once you've read them.  Is there a proper 
Language-Definition-Guide out there?

many thanks in advance

Thomas

-
(define (script-fu-text-test inHeight inWidth )
 (let*
  (
   (theImage (car (gimp-image-new inWidth inHeight RGB)))
   (theLayer (car (gimp-layer-new theImage inWidth inHeight RGBA_IMAGE "Layer 1" 100 
NORMAL)))
  )
  (gimp-image-add-layer theImage theLayer -1)
  (gimp-selection-all theImage)
  (gimp-edit-clear theLayer)
  (gimp-image-set-active-layer theImage theLayer)

  ; neither this ...
  (script-fu-selection-round 0 theImage theLayer "1.0")
  ; ...nor this works
  ;(perl-fu-round-sel 1 theImage theLayer 1)

  (gimp-display-new theImage)
  (gimp-image-clean-all theImage)
 )
)

(script-fu-register
  "script-fu-text-test" 
  "Toolbox/Xtns/Script-Fu/Text/Test" 
  "create a box with a round selection (to create a nice button)"
  "Thomas Stolt"  
  "copyright 2000, Thomas Stolt"  
  "5th of July 2000"  
  ""  ;Image type that the script works on
  SF-VALUE "Height:" "31"  ;Button Height
  SF-VALUE "Width:" "100"  ;Button Width
)
-
___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




script-fu-selection-round only with restart?

2000-06-15 Thread Thomas Stolt

Hi List!

I have decided, that I want to stay with the script-fu-selection-round, instead of the 
perl-fu.  This is simply because this function does it ... nearly :)

Could somebody please verify the following short script (maybe a Linux user, since I 
am on Solaris, and I have discovered differences here):
---
(define (script-fu-text-testscript inText inFont inFontSize inTextColor)
 (let*
  (
(theImage (car (gimp-image-new 200 60 RGB)))
(theText)
(theLayer (car (gimp-layer-new theImage 200 60 RGB_IMAGE "layer" 100 NORMAL)))
  )
 (gimp-image-add-layer theImage theLayer 0)
 (gimp-drawable-fill theLayer WHITE-IMAGE-FILL)
 (gimp-selection-all theImage)
 (script-fu-selection-round 0 theImage theLayer "1.0")
 (gimp-image-clean-all theImage)
 (gimp-display-new theImage)
 )
)
(script-fu-register
 "script-fu-text-testscript";func name
 "Toolbox/Xtns/Script-Fu/Text/Test Script";menu pos
 "Creates..."
 "Michael Terry";author
 "copyright 1997, Michael Terry";copyright notice
 "October 27, 1997" ;date created
 "" ;Image type
 SF-VALUE "Text:" "\"Text Box\"";a text variable
 SF-VALUE "Font:" "\"Charter\"" ;a text variable
 SF-VALUE "Font size:" "45" ;a text variable
 SF-COLOR "Color:" '(0 0 0) ;color variable
)


The strange thing here is, that I can call this script once (it just gives me a white 
image with a rounded selection), but when I call this script again, I get the error 
message:

Script-Fu Error
ERROR: Procedural database execution failed:
(gimp_selection_bounds 0)

Only when I restart gimp, I can use it again!

Any ideas?  ... highly welcome ...

 Thomas

___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




Re: script-fu-selection-round only with restart?

2000-06-15 Thread Thomas Stolt

Alan,

thanks very much!

However, I need a little "fill in" on this:

First, I think you are right, when I let the first picture open, the 
fu-selection-round works still on the first picture.  Only when I close the first one, 
I will get the error.  But how do I get around it?  And which "0" are you referring to?


thanks in advance

Thomas


___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




Image Dimensions

2000-06-14 Thread Thomas Stolt

Hi (again)

While cropping images one question came into my mind:

What is the upper most left pixel referred to:

is it x=0;y=0 or starts it with 1 (x=1;y=1)?

Thomas
___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de




perl-fu-round-sel does not work in script-fu?

2000-06-13 Thread Thomas Stolt

Hi UserList
===

Here is a question I posted to the newsgroup, but no response yet.  I hope, I have 
more luck here.  I am working on Solaris 2.7 and managed to compile the whole bunch to 
get Gimp 1.1.23 working, but now...

...I am stuck.  Below, you find a short script, nothing difficult or special,  just a 
beginners effort.  There is a layer beeing created, all selected (square selection of 
the image), then I tried to round the selection, but it just does not work.  I do not 
get an error message, the selection is just still rectangle.  The strange about this 
is: when I do it manually, it works!!!
  
 Any ideas?
  
 Thanks in advance!
 Thomas
 
 (define (script-fu-text-box inText inFont inFontSize inTextColor) (let* (
 (theImageWidth 100)
 (theImageHeight 30)
 (theImage (car (gimp-image-new theImageWidth theImageHeight RGB))) 
(gimp-image-add-layer theImage theLayer1 0)
 (gimp-drawable-fill theLayer1 WHITE-IMAGE-FILL)
 (gimp-selection-all theImage)
 (perl-fu-round-sel 1 theImage theLayer1 1)
 (gimp-display-new theImage)
 (gimp-image-clean-all theImage)
 )
 )
 (script-fu-register
 "script-fu-text-box"  ;func name 
"Toolbox/Xtns/Script-Fu/Text/Text Box"  ;menu pos "Creates a simple text box, 
sized to fit around the
 user's Choice of text,font, font size, and
 color."
 "Michael Terry";author
 "copyright 1997, Michael Terry";copyright notice "October 27, 1997"   
 ;date created
 "";Image type that the script works on
 SF-VALUE "Text:" "\"Text Box\"";a text variable SF-VALUE "Font:" 
"\"Charter\"";a text variable SF-VALUE "Font size:" "45";a text 
variable
 SF-COLOR "Color:" '(0 0 0);color variable )
-
___
1.000.000 DM gewinnen - kostenlos tippen - http://millionenklick.web.de
[EMAIL PROTECTED], 8MB Speicher, Verschluesselung - http://freemail.web.de