First update for vector to pdf

[Alejandro Tejada]

Hi Developers,

Here is a quick fix for the problem mentioned
by Jim Hurley.

Replace the whole section of code for
the case of Polygon with this code:
Tested and works with the 3d vector graphic
of the Rotater stack.
Beware of linewraps introduced by this yahoo mail.

case "polygon"

/*
To handle the special case where a polygon graphic
could have
segments separated by spaces, i have put in their own
variable
details like linesize, linecolor and fillcolor with
the
only purpose to reuse this data when appear a new
segment
in the graphic. To represent this new segment, it'll
be necessary to create a new polygon graphic with the
same attributes of the original vector graphic.
*/

-- Begin of code changed --

if the linesize of control i <> 0 then put the
linesize of control i & " w" & return after zxs1
if the linesize of control i <> 0 then
put the effective firstcolor of control i into wse
if the number of items of wse = 1 then put
ColorName2RGB(wse) into wse
put colortodecimalrgb(wse) & "RG" & return after zxs1
-- the outline
end if
if the filled of control i is true then
put the effective secondcolor of control i into wse
if the number of items of wse = 1 then put
ColorName2RGB(wse) into wse
put colortodecimalrgb(wse) & "rg" & return after zxs1
-- the fill
end if
        
put the points of control i into mnbq
        
replace comma with space in mnbq
        
put zxs1 & word 1 of line 1 of mnbq && abs(the height
of this stack - word 2 of line 1 of mnbq) & " m" &
return after zxs
delete line 1 of mnbq
        
repeat until mnbq is empty
          
if line 1 of mnbq is empty then -- create new graphic
put zxs1 & word 1 of line 2 of mnbq && abs(the height
of this stack - word 2 of line 2 of mnbq) & " m" &
return after zxs
delete line 2 of mnbq
delete line 1 of mnbq
else -- not an empty line
put word 1 of line 1 of mnbq && abs(the height of this
stack - (word 2 of line 1 of mnbq)) & " l" & return
after zxs
delete line 1 of mnbq
end if
          
end repeat
        
put empty into zxs1

-- End of code changed --
 
put the points of control i into mnfd
        
if the filled of control i is false and the linesize
of control i = 0 and the last line of mnfd = the first
line of mnfd then put "n" & return after zxs

if the filled of control i is false and the linesize
of control i = 0 and the last line of mnfd <> the
first line of mnfd then put "N" & return after zxs
        
if the filled of control i is true and the linesize of
control i = 0 and the last line of mnfd = the first
line of mnfd then put "f" & return after zxs

if the filled of control i is true and the linesize of
control i = 0 and the last line of mnfd <> the first
line of mnfd then put "F" & return after zxs
        
if the filled of control i is false and the linesize
of control i <> 0 and the last line of mnfd = the
first line of mnfd then put "s" & return after zxs

if the filled of control i is false and the linesize
of control i <> 0 and the last line of mnfd <> the
first line of mnfd then put "S" & return after zxs
        
if the filled of control i is true and the linesize of
control i >= 1 and the last line of mnfd <> the first
line of mnfd then put "B" & return after zxs

if the filled of control i is true and the linesize of
control i >= 1 and the last line of mnfd = the first
line of mnfd then put "b" & return after zxs

break

=====
Visit my site:
http://www.geocities.com/capellan2000/


	
		
__________________________________
Do you Yahoo!?
New and Improved Yahoo! Mail - 100MB free storage!
http://promotions.yahoo.com/new_mail