7.4

%=================================================
if(&S < 180)
&SB := 180
elseif()
&SB := &S
endif()
%=================================================
set-
fill-
color([getcyan(&c),getmagenta(&c),getyellow(&c),if(getblack(&c)>50,100,getblack(&c)+20)])
moveto(cos(&SB) * &R,neg(sin(&SB) * &R))
rlineto(0,&HB)
arc(0,&HB,&R,&SB,&EB)
rlineto(0,neg(&HB))
closepath()
strokeandfill()
endif()
%====================================================
setfillcolor(&c)
pie(0,0,&R,&S,&E)
strokeandfill()
&SB := (&S+&E)/2
%====================================================
if(gt(&SB,180))
margin(cos(&SB) * &R,neg(sin(&SB) * &R)+&HB+(0.2/&Scaling))
elseif()
margin(cos(&SB) * &R,neg(sin(&SB) * &R)-(0.05/&Scaling))
endif()
%====================================================
scale(1,1/&Scaling)
if(and(gt(&SB,90),lt(&SB,270)))
showright(&L+' ')
elseif()
show(' '+&L)
endif()
grestore()
Comments
% (procedure)
Comments out the line. This is useful for embedding documentation in your code, making it easier to read and maintain. It is
also useful during debugging, for commenting out lines of code you do not want to execute.
Comments must not appear in the first line of the script you enter in the PlanetPress Talk Editor.
Syntax
% … comment ….
©2010 Objectif Lune Inc - 566 -