Beveled Star.scm Rel3 [Fix for missing procedure]

Graechan · **Posted:** Tue Aug 13, 2013 9:34 pm **(#1)**

This script follows an excellent tutorial from PegLeg44 Here with settings for colors and the number of 'star-points'

Examples and Menu below↓

Menu Location Script-Fu/Shapes

; Rel 0.02 - Bugfix for Typo

; Rel 0.03↓ - Fix for missing procedure

Attachment:

Beveled Star.scm [10.46 KiB]
Downloaded 162 times

Mike · **Joined:** Aug 27, 2010 **Posts:** 491

PegLeg44 · **Joined:** Feb 14, 2012 **Posts:** 426

Ah, I always wanted a script like that.

Thanks, Graechan

You know if there was a way to manipulate the gradient you could make pointed or rounded ends etc. Just a thought.

Graechan · **Posted:** Tue Aug 13, 2013 10:08 pm **(#4)**

PegLeg I'm Pleased you like your Script and yes the gradient can be manipulated to create rounded ends but it looks like a 'Starfish',
and the top point is not effected unless I rotate -45 degrees, it gets messy

GnuTux · **Posted:** Wed Aug 14, 2013 1:14 am **(#5)**

Graechan, I'm getting a variable initialization error: unbound variable: translate-point

Graechan · **Posted:** Wed Aug 14, 2013 1:54 am **(#6)**

'Head scratch-er' that one must be something op,s a typo all fixed now Rel2 will be posted immediately

Graechan · **Posted:** Wed Aug 14, 2013 2:45 am **(#7)**

Working well now

GnuTux · **Posted:** Wed Aug 14, 2013 2:58 am **(#8)**

Graechan, release 2 still does not have the function translate-point in the script. Perhaps you have this function defined globally somewhere else?

I added the function to the end of the script to make it work for me.

Code: Select all

(define (translate-point x y angle distance)
  (let* ((ang (* angle (/ (* 4 (atan 1.0)) 180)))
    (nx (+ (* distance (cos ang)) x))
    (ny (+ (* distance (sin ang)) y)))
    (list nx ny)
  )
)

sallyanne · **Posted:** Wed Aug 14, 2013 3:28 am **(#9)**

seems Gnu Tux is correct. I am getting this

Beveled Star Warning
Error while executing script-fu-beveled-star:

Error: (<unknown> : 44584024) eval: unbound variable: translate-point

GIMP Warning
Plug-In 'Beveled Star' left image undo in inconsistent state, closing open undo groups.

Nothing at all happened.

Rod · **Joined:** May 16, 2010 **Posts:** 14709 **Location:** USA

Nice Graechan!

(i also had to add the same code snippet for the script to run.)
All 12 star shapes in one animation. :bigthup

molly · **Joined:** Apr 07, 2010 **Posts:** 14182

Very cool Tux and Graechan... Thank you

PhotoComix · **Joined:** Apr 12, 2010 **Posts:** 5870

Rod wrote:

Nice Graechan!

(i also had to add the same code snippet for the script to run.)
All 12 star shapes in one animation. :bigthup

[ Image ]

Cool effect, maybe can be automatized ?
That bumping stars are fun ,
Maybe instead then add complexity here (this script is cool also because a clear gui, with clear option ) animated star may be added to the "animation workshop" ? ...or a dedicated "animated star" ?

stars may be animated by :

1) as Rod sample (inflated/deflated ?)
2) zoom in or out
3) spin on their own center
4) rotate around a user chosen center
5) move
6) shift colors (as shifting along a chosen gradient color range ...)

and all possible combinations ...

Graechan · **Posted:** Wed Aug 14, 2013 7:25 pm **(#13)**

Rel 3 Has been posted (see initial post) thank you GnuTux

I must have used the 'The missing procedure' in another script so this time I loaded a fresh 2.8 and tested OK

sallyanne · **Posted:** Wed Aug 14, 2013 9:57 pm **(#14)**

Thank you Graechan

After I embossed it with contrasts ticked.

Rod · **Joined:** May 16, 2010 **Posts:** 14709 **Location:** USA

Thanks for the update Graechan!

PC that is a great idea.

PhotoComix · **Joined:** Apr 12, 2010 **Posts:** 5870

Rod wrote:

Thanks for the update Graechan!

PC that is a great idea.

I think would rock :paint

Star animation in all flavors,spinning, moving, deflating and inflating, approaching or fading away , shifting colours and/or and switching luminosity on/off, high or low ...

	Similar Topics	Replies
	how to automate the procedure?	14
	check if the procedure is correctly done?	6
	Procedure Browser Crashes	4
	Assign ICC Color Profile from procedure	1
	What is the procedure name for "crop to contents"?	7