Hi Friends,
Did'nt follow all the present thread so don't know if this can help
but in case, here is the general way i would use to process such
tasks :
on mouseUp
set the style of the templateGraphic to "polygon"
set the opaque of the templateGraphic to "true"
set the filled of the templateGraphic to "true"
set the backgroundcolor of templateGraphic to "blue" # or what
ever color you choose instead
set the textcolor of templateGraphic to "blue" # or what ever
color you choose instead
if there is a grc "new_grc"
then delete grc "new_grc"
create grc "new_grc"
ask "How many sectors do you want to display"
if it is not "" then put it into secteurs_nb
else exit to top
# random example values you will have to replace with the real
values you want to display
put "" into les_valeurs33
repeat with c = 1 to secteurs_nb
put -1+random(2) & return & return after les_valeurs33
end repeat
put char 1 to -3 of les_valeurs33 into les_valeurs33
put -40+the height of this cd into graph_diametre
put graph_diametre div 2 into graph_rayon
put the width of this cd div 2 into x1
put the height of this cd div 2 into y1
put 2*pi / secteurs_nb into langle
put langle / 2 into langlecalcule
repeat with c = 1 to secteurs_nb
put cos((x1*2*pi) + langlecalcule) & "," after the_cos_1
put sin((y1*2*pi) + langlecalcule) & "," after the_sin_1
add langle to langlecalcule
end repeat
put the_cos_1 after the_cos_1
put the_sin_1 after the_sin_1
put pi / secteurs_nb into langle
put "0" into langlecalcule
repeat with c = 1 to 2*secteurs_nb
put cos((x1*2*pi) + langlecalcule) & "," after the_cos_2
put sin((y1*2*pi) + langlecalcule) & "," after the_sin_2
add langle to langlecalcule
end repeat
put the_cos_2 after the_cos_2
put the_sin_2 after the_sin_2
# draw the graphic
set the points of grc "new_grc" to
points_cosin
(secteurs_nb
,les_valeurs33
,x1,y1,the_cos_1,the_sin_1,the_cos_2,the_sin_2,graph_rayon)
end mouseUp
function points_cosin
secteurs_nb
,les_valeurs,x1,y1,the_cos_1,the_sin_1,the_cos_2,the_sin_2,graph_rayon
put "" into points_nb
put "0" into d
repeat with c = 1 to 2*secteurs_nb
put (1 / 11) + ((line c of les_valeurs*10) / 11) into
active_rayon
if c mod 2 = 1 then
add 1 to d
put x1 & "," & y1 & return & round(x1-(item c of
the_cos_2*active_rayon*graph_rayon)),round(y1-(item c of
the_sin_2*active_rayon*graph_rayon)) & return & \
round(x1-(item d of
the_cos_1*active_rayon*graph_rayon)),round(y1-(item d of
the_sin_1*active_rayon*graph_rayon)) & return & \
round(x1-(item 2+c of
the_cos_2*active_rayon*graph_rayon)),round(y1-(item 2+c of
the_sin_2*active_rayon*graph_rayon)) & return after points_nb
else put x1 & "," & y1 & return & round(x1-(item c of
the_cos_2*active_rayon*graph_rayon)),round(y1-(item c of
the_sin_2*active_rayon*graph_rayon)) & return & \
round(x1-(item 2+c of
the_cos_2*active_rayon*graph_rayon)),round(y1-(item 2+c of
the_sin_2*active_rayon*graph_rayon)) & return after points_nb
add 1 to c
end repeat
return points_nb & line 1 of points_nb
end points_cosin
just put this script inside a new stack's button and run it to display
the "new_graph" test graph. Just tested and seems to work fine there.
Have fun !
Pierre
Le 16 déc. 09 à 11:56, Jacques Hausser a écrit :
I really should re-read my mails before sending them :-(
I cannot copy and paste scripts directly into mails (I don't know
why) so I rewrite them... with bugs !
in function calcangle the line
if SurfaceTriangle (a,c,b) then
should be
if SurfaceTriangle(a,c,b) > 0 then
... but you corrected it already !
Jacques-in-the-moon
******************************************
Prof. Jacques Hausser
Department of Ecology and Evolution
Biophore / Sorge
University of Lausanne
CH 1015 Lausanne
please use my private address:
6 route de Burtigny
CH-1269 Bassins
tel/fax: ++ 41 22 366 19 40
mobile: ++ 41 79 757 05 24
E-Mail: jacques.haus...@unil.ch
*******************************************
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
--
Pierre Sahores
mobile : (33) 6 03 95 77 70
www.woooooooords.com
www.sahores-conseil.com
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
