andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Files
0e9ca75d775112a4ff5f8f1bf644b4824092d31f
mip/Data/BulkLoad/EFT/Nominations/plsql/svg.bdy

878 lines
44 KiB
Plaintext
Raw Blame History

CREATE OR REPLACE PACKAGE BODY EFT_NOM.svg IS
-- Author : PRIESTJ
-- Created : 05/12/2005 17:24:19
-- Purpose : used to create svg objects like graphs and charts
-- Public constant declarations
pi constant number := 3.14159265; --slice of pie anyone?
--JP hacking
--need to stick the circle_pointx & circle_pointy in as proper
--functions (could even get rid of diameter parameter)
--will also need to set up variables.
--get the value of x on the circle
FUNCTION circle_pointx ( degrees number
, diameter number
) RETURN NUMBER IS
--
mydegrees NUMBER := 0;
--
BEGIN
--
-- Avoid problems with doubles
--
mydegrees := degrees + 0.5;--0.0001;
return cos(mydegrees * (pi / 180)) *(diameter / 2);
--
END circle_pointx;
--
-- Get the value of y on the circle
--
function circle_pointy(degrees number, diameter number) return number is
mydegrees number := 0;
begin
--avoid problems with doubles
mydegrees := degrees + 0.5;--0.0001;
return sin(mydegrees * (pi / 180)) *(diameter / 2);
end circle_pointy;
FUNCTION colour_palette ( p_index IN NUMBER ) RETURN VARCHAR2 IS
--
l_return VARCHAR2(6);
--
BEGIN
--
IF p_index = 1 THEN
--
l_return := '003D62';
--
ELSIF p_index = 2 THEN
--
l_return := 'FFFF00';
--
ELSIF p_index = 3 THEN
--
l_return := '00FF00';
--
ELSE
--
l_return := '555555';
--
END IF;
--
RETURN l_return;
--
END colour_palette;
--procedure used to display the cheese wedges for our pie chart, exports 3 svg
--path tags with attributes
PROCEDURE codedpiechart ( p_availcapacity IN NUMBER
, p_gasflowed IN NUMBER
, p_remainflow IN NUMBER
) IS
--
degrees number;
charttotal number;
currentvalue number;
arcx number;
arcy number;
StartDegrees number;
EndDegrees number;
wedgesize number;
wedgecolor varchar2(7);
largearcflag integer := 0;
svgtext varchar2(4000);
--
BEGIN
--
--ensure the first line is vertical
--
degrees := 270;
--
charttotal := p_availcapacity + p_gasflowed + p_remainflow;
for i in 1 .. 3 loop
--get the data for our chart depending on which cycle of the loop
if i = 1 then
currentvalue := p_availcapacity; --availcapcity
wedgecolor := '#336699';
elsif i = 2 then
currentvalue := p_gasflowed; --gasflowed
wedgecolor := '#6699CC';
elsif i = 3 then
currentvalue := p_remainflow; --remainflow
wedgecolor := '#99CCFF';
end if;
StartDegrees := round(degrees);
--figure out the angle (in degrees) of our current cheese
wedgesize := (currentvalue / charttotal) * 360;
degrees := degrees + wedgesize;
EndDegrees := round(degrees);
--if one of our cheeses is 180 or bigger we need to set the large arc flag
--other with the arc (A) won't draw it correctly
if wedgesize >= 180 then
largearcflag := 1;
else
largearcflag := 0;
end if;
svgtext :='<path d="';
--start at center of circle
svgtext := svgtext ||'M 55,55 ';
--draw out to circle edge
ArcX := circle_pointx(StartDegrees, 100);
ArcY := circle_pointy(StartDegrees, 100);
svgtext := svgtext ||'L' || floor(55 + ArcX) || ','||floor(55 + ArcY);
--htp.print(floor(80 + ArcY));
--draw arc
ArcX := circle_pointx(EndDegrees, 100); --get x point of the arc
ArcY := circle_pointy(EndDegrees, 100); --get y point of the arc
svgtext:=svgtext||' A 50,50 0 ' || largearcflag || ' 1 ' || floor(55 + ArcX) ||
',' || floor(55 + ArcY) || ' Z" style="fill:' ||
wedgecolor || '; stroke:black; stroke-width:1;" />';
--print out the svg path tag
htp.p(svgtext);
end loop;
end codedpiechart;
procedure piechart ( p_availcapacity IN NUMBER DEFAULT g_availcapacity
, p_gasflowed IN NUMBER DEFAULT g_gasflowed
, p_remainflow IN NUMBER DEFAULT g_remainflow
) IS
begin
--'Content-type: image/svg+xml'
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
htp.print(' <style type="text/css"> rect:hover {fill-opacity:0.9;}path:hover {fill-opacity:0.9;}</style>');
htp.print(' <g style="fill-opacity:0.7; font-family: Verdana; font-size:11px;">');
codedpiechart( p_availcapacity
, p_gasflowed
, p_remainflow
);
--htp.print('<circle cx="85" cy="80" r="75" style="fill:none; stroke:black; stroke-width:3"/>');
htp.print('<rect x="2" y="112" height="15" width="15" style="fill:#336699; stroke:black; stroke-width:0.5"/>');
htp.print('<rect x="2" y="137" height="15" width="15" style="fill:#6699CC; stroke:black; stroke-width:0.5"/>');
htp.print('<rect x="2" y="162" height="15" width="15" style="fill:#99CCFF; stroke:black; stroke-width:0.5"/>');
htp.print('<text x="20" y="122">Avail Capacity ('||TO_CHAR(p_availcapacity)||'kWh)</text>');
htp.print('<text x="20" y="147">Gas Flowed ('||TO_CHAR(p_gasflowed)||'kWh)</text>');
htp.print('<text x="20" y="172">Remaining Flow ('||TO_CHAR(p_remainflow)||'kWh)</text>');
htp.print('</g>');
htp.print('</svg>');
end piechart;
procedure barchart is
begin
--'Content-type: image/svg+xml'
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" ');
htp.print(' "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
htp.print(' <style type="text/css">');
htp.print(' rect:hover {fill-opacity:0.9;}');
htp.print(' </style>');
htp.print(' <g style="fill-opacity:0.7;">');
htp.print('');
htp.print('<linearGradient id="bargradient" x1="0%" y1="0%" x2="0%" y2="100%">');
htp.print('<stop offset="0%" style="stop-color:#336699;"/>');
htp.print('<stop offset="100%" style="stop-color:rgb(255,255,255);"/>');
htp.print('</linearGradient>');
htp.print('<rect x="80" y=".1" width="475" height="100" fill="none" stroke="blue" stroke-width=".2" /> ');
htp.print('<line x1="75" y1="10" x2="555" y2="10" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="20" x2="555" y2="20" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="30" x2="555" y2="30" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="40" x2="555" y2="40" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="50" x2="555" y2="50" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="60" x2="555" y2="60" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="70" x2="555" y2="70" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="80" x2="555" y2="80" stroke-width=".2" stroke="blue" />');
htp.print('<line x1="75" y1="90" x2="555" y2="90" stroke-width=".2" stroke="blue" />');
htp.print('');
--htp.print('<line x1="75" y1="43" x2="555" y2="43" stroke-width="1" stroke="yellow" style="fill-opacity:0.9;" />');
-- htp.print('<line x1="75" y1="78" x2="555" y2="78" stroke-width="1" stroke="red" />');
htp.print('');
htp.print('<rect x="85" y="10" width="10" height="90" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="100" y="40" width="10" height="60" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="115" y="30" width="10" height="70" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="130" y="20" width="10" height="80" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="145" y="10" width="10" height="90" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="160" y="10" width="10" height="90" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="175" y="80" width="10" height="20" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="190" y="90" width="10" height="10" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="205" y="10" width="10" height="90" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="220" y="70" width="10" height="30" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="235" y="60" width="10" height="40" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="250" y="70" width="10" height="30" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="265" y="80" width="10" height="20" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="280" y="90" width="10" height="10" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="295" y="20" width="10" height="80" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="310" y="40" width="10" height="60" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="325" y="70" width="10" height="30" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="340" y="80" width="10" height="20" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="355" y="5" width="10" height="95" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="370" y="25" width="10" height="75" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="385" y="65" width="10" height="35" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="400" y="45" width="10" height="55" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="415" y="85" width="10" height="15" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="430" y="30" width="10" height="70" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="445" y="55" width="10" height="45" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="460" y="5" width="10" height="95" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="475" y="25" width="10" height="75" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="490" y="30" width="10" height="70" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="505" y="10" width="10" height="90" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="520" y="45" width="10" height="55" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('<rect x="535" y="25" width="10" height="75" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
htp.print('');
htp.print('<line x1="80" y1="43" x2="555" y2="43" stroke-width="0.2" stroke="yellow" />');
htp.print('<line x1="80" y1="78" x2="555" y2="78" stroke-width="0.2" stroke="red" />');
htp.print('');
htp.print(' </g>');
htp.print('<g style="font-family: Verdana; font-size:12px;">');
htp.print('<text id="key1" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(0,55)">Million</text>');
htp.print('<text id="key2" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(0,70)">KWh</text>');
htp.print('<text id="scale0" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,105)">0</text> ');
htp.print('<text id="scale1" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,95)">100</text>');
htp.print('<text id="scale2" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,85)">200</text>');
htp.print('<text id="scale3" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,75)">300</text>');
htp.print('<text id="scale4" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,65)">400</text>');
htp.print('<text id="scale5" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,55)">500</text>');
htp.print('<text id="scale6" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,45)">600</text>');
htp.print('<text id="scale7" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,35)">700</text>');
htp.print('<text id="scale8" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,25)">800</text>');
htp.print('<text id="scale9" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,15)">900</text>');
htp.print('');
htp.print('');
htp.print('');
htp.print('<text id="date1" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(95,180) rotate(270)">01/06</text>');
htp.print('<text id="date2" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(110,180) rotate(270)">02/06</text>');
htp.print('<text id="date3" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(125,180) rotate(270)">03/06</text>');
htp.print('<text id="date4" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(140,180) rotate(270)">04/06</text>');
htp.print('<text id="date5" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(155,180) rotate(270)">05/06</text>');
htp.print('<text id="date6" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(170,180) rotate(270)">06/06</text>');
htp.print('<text id="date7" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(185,180) rotate(270)">07/06</text>');
htp.print('<text id="date8" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(200,180) rotate(270)">08/06</text>');
htp.print('<text id="date9" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(215,180) rotate(270)">09/06</text>');
htp.print('<text id="date10" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(230,180) rotate(270)">10/06</text>');
htp.print('<text id="date11" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(245,180) rotate(270)">11/06</text>');
htp.print('<text id="date12" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(260,180) rotate(270)">12/06</text>');
htp.print('<text id="date13" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(275,180) rotate(270)">13/06</text>');
htp.print('<text id="date14" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(290,180) rotate(270)">14/06</text>');
htp.print('<text id="date15" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(305,180) rotate(270)">15/06</text>');
htp.print('<text id="date16" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(320,180) rotate(270)">16/06</text>');
htp.print('<text id="date17" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(335,180) rotate(270)">17/06</text>');
htp.print('<text id="date18" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(350,180) rotate(270)">18/06</text>');
htp.print('<text id="date19" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(365,180) rotate(270)">19/06</text>');
htp.print('<text id="date20" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(380,180) rotate(270)">20/06</text>');
htp.print('<text id="date21" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(395,180) rotate(270)">21/06</text>');
htp.print('<text id="date22" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(410,180) rotate(270)">22/06</text>');
htp.print('<text id="date23" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(425,180) rotate(270)">23/06</text>');
htp.print('<text id="date24" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(440,180) rotate(270)">24/06</text>');
htp.print('<text id="date25" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(455,180) rotate(270)">25/06</text>');
htp.print('<text id="date26" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(470,180) rotate(270)">26/06</text>');
htp.print('<text id="date27" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(485,180) rotate(270)">27/06</text>');
htp.print('<text id="date28" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(500,180) rotate(270)">28/06</text>');
htp.print('<text id="date29" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(515,180) rotate(270)">29/06</text>');
htp.print('<text id="date30" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(530,180) rotate(270)">30/06</text>');
htp.print('<text id="date31" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(545,180) rotate(270)">01/07</text>');
htp.print('</g>');
htp.print('');
htp.print('</svg>');
htp.print('');
--
END barchart;
--
/* PROCEDURE barchart2 IS
--
-- l_tab_inv is table of:
-- l_date
-- l_inventory
-- l_max_cap
-- l_min_cap
--
l_tab_inv lihp_home_page.t_tab_inv;
--
-- Fudged the number just a little...
--
l_max_qty NUMBER := 900000000;
--
l_x_start NUMBER := 80;
l_width NUMBER := 18;
l_x_step NUMBER := 8;
--
l_y_start NUMBER := 9.1;
l_y_step NUMBER := 14;
l_height NUMBER := 138;
--
BEGIN
--
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
--
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" ');
htp.print(' "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
--
htp.print(' <style type="text/css">');
htp.print(' rect:hover {fill-opacity:0.9;}');
htp.print(' </style>');
--
htp.print(' <g style="fill-opacity:0.7;">');
htp.print('');
--
htp.print('<linearGradient id="bargradient" x1="0%" y1="0%" x2="0%" y2="100%">');
htp.print('<stop offset="0%" style="stop-color:#336699;"/>');
htp.print('<stop offset="100%" style="stop-color:rgb(255,255,255);"/>');
htp.print('</linearGradient>');
--
-- Get Data
--
l_tab_inv := lihp_home_page.inventory_details;
--
-- Print the boundary
--
htp.print('<rect x="0" y="0" width="'||TO_CHAR((l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step)+260)||'" height="'||TO_CHAR(l_height+50)||'" fill="none" stroke="black" stroke-width=".3" /> ');
--
-- Y axis lines
--
htp.print('<rect x="'||TO_CHAR(l_x_start)||'" y="'||l_y_start||'" width="'||TO_CHAR((l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" height="'||l_height||'" fill="none" stroke="blue" stroke-width=".2" /> ');
--
-- Print the lines
--
FOR i IN 1..9 LOOP
--
htp.print('<line x1="'||TO_CHAR(l_x_start-5)||'" y1="'||TO_CHAR((i*l_y_step)+l_y_start)||'" x2="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" y2="'||TO_CHAR((i*l_y_step)+l_y_start)||'" stroke-width=".2" stroke="blue" />');
--
END LOOP;
--
htp.print('');
htp.print('');
--
-- Data
--
FOR i IN 1..l_tab_inv.COUNT LOOP
--
htp.print('<rect x="'||TO_CHAR((l_x_start+l_x_step)+((l_width+l_x_step)*(i-1)))||'" y="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(i).l_inventory/l_max_qty)*l_height))||'" width="'||l_width||'" height="'||TO_CHAR((l_tab_inv(i).l_inventory/l_max_qty)*l_height)||'" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
--
END LOOP;
--
htp.print('');
--
-- Max line
--
htp.p('<polyline fill="none" stroke="red" stroke-width="0.5" points="');
--
FOR i IN 1..l_tab_inv.COUNT LOOP
--
IF i > 1 AND l_tab_inv(i).l_max_cap <> l_tab_inv(i-1).l_max_cap THEN
--
htp.p(TO_CHAR(l_x_start+(l_x_step/2)+(((l_width+l_x_step)*(i-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(i-1).l_max_cap/l_max_qty)*l_height)));
--
END IF;
--
IF i > 1 THEN
htp.p(TO_CHAR(l_x_start+(l_x_step/2)+(((l_width+l_x_step)*(i-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(i).l_max_cap/l_max_qty)*l_height)));
ELSE
htp.p(TO_CHAR(l_x_start+(((l_width+l_x_step)*(i-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(i).l_max_cap/l_max_qty)*l_height)));
END IF;
--
IF i = l_tab_inv.LAST THEN
--
htp.p(TO_CHAR(l_x_start+(((l_width+l_x_step)*(i-1)))+(l_x_step+l_width+l_x_step))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(i).l_max_cap/l_max_qty)*l_height)));
--
END IF;
--
END LOOP;
--
htp.p('" />');
--
htp.print('<line x1="'||TO_CHAR(l_x_start)||'" y1="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(1).l_min_cap/l_max_qty)*l_height))||'" x2="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" y2="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(1).l_min_cap/l_max_qty)*l_height))||'" stroke-width="0.5" stroke="green" />');
htp.print('');
htp.print(' </g>');
--
-- Y axis labels
--
htp.print('<g style="font-family: Verdana; font-size:12px;">');
htp.print('<text id="key2" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(5,'||TO_CHAR((l_height/2)+5)||')">GWh</text>');
--
FOR i IN 0..9 LOOP
--
htp.print('<text id="scale'||TO_CHAR(i)||'" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,'||TO_CHAR((l_height + 5)-(l_y_step*i))||')">'||TO_CHAR((l_max_qty/9000000)*i)||'</text> ');
--
END LOOP;
--
htp.print('');
htp.print('');
htp.print('');
--
-- X axis labels
--
FOR i IN 1..l_tab_inv.COUNT LOOP
--
htp.print('<text id="date'||TO_CHAR(i)||'" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate('||TO_CHAR(l_x_start+(i*(l_x_step + l_width))-4)||','||TO_CHAR(l_height+40+l_y_start)||') rotate(270)">'||TO_CHAR(l_tab_inv(i).l_date, 'DD/MM')||'</text>');
--
END LOOP;
--
-- Legends
--
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(10++l_y_start)||'" font-weight="bold">'||'Inventory Summary</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(20++l_y_start)||'" height="15" width="15" style="fill:url(#bargradient); stroke:black; stroke-width:0.5"/>');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(32++l_y_start)||'">'||'Inventory</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(40++l_y_start)||'" height="15" width="15" style="fill:white; stroke:black; stroke-width:0.5"/>');
htp.print('<line x1="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))+2)||'" y1="'||TO_CHAR(47.5++l_y_start)||'" x2="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+13))||'" y2="'||TO_CHAR(47.5++l_y_start)||'" stroke-width="0.75" stroke="red" />');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(52++l_y_start)||'">'||'Maximum Capacity</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(60++l_y_start)||'" height="15" width="15" style="fill:white; stroke:black; stroke-width:0.5"/>');
htp.print('<line x1="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))+2)||'" y1="'||TO_CHAR(67.5++l_y_start)||'" x2="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+13))||'" y2="'||TO_CHAR(67.5++l_y_start)||'" stroke-width="0.75" stroke="green" />');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(72++l_y_start)||'">'||'Minimum Inventory</text>');
--
htp.print('</g>');
htp.print('');
htp.print('</svg>');
htp.print('');
--
END barchart2;*/
--
--
--
PROCEDURE piechart2 ( p_pie_tab IN t_pie_tab ) IS
--
l_degrees NUMBER;
l_arcx NUMBER;
l_arcy NUMBER;
l_x_startdegrees NUMBER;
l_enddegrees NUMBER;
l_wedgesize NUMBER;
l_largearcflag INTEGER := 0;
l_svgtext VARCHAR2(4000);
--
l_x_origin NUMBER := 100;
l_y_origin NUMBER := 110;
l_radius NUMBER := 80;
--
BEGIN
--'Content-type: image/svg+xml'
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
htp.print(' <g style="fill-opacity:0.99; font-family: Verdana; font-size:11px;">');
--
-- Outer box
--
htp.print('<rect x="0" y="0" height="301" width="199" style="fill:#FFFFFF; stroke:black; stroke-width:0.5"/>');
--
-- Piechart Stuff
--
l_degrees := 270;
--
FOR i IN 2..p_pie_tab.COUNT LOOP
--
l_x_startdegrees := ROUND(l_degrees);
--
-- Figure out the angle (in degrees) of our current cheese
--
l_wedgesize := ( p_pie_tab(i).l_quantity / p_pie_tab(1).l_quantity ) * 360;
l_degrees := l_degrees + l_wedgesize;
l_enddegrees := ROUND(l_degrees);
--
-- If one of our cheeses is 180 or bigger we need to set the large arc flag
-- other with the arc (A) won't draw it correctly
--
IF l_wedgesize > 359 THEN
--
htp.print('<circle cx="'||TO_CHAR(l_x_origin)||'" cy="'||TO_CHAR(l_y_origin)||'" r="'||TO_CHAR(l_radius)||'" style="fill:#' ||
colour_palette(i-1) || '; stroke:black; stroke-width:1;"/>');
--
ELSE
--
IF l_wedgesize >= 180 THEN
--
l_largearcflag := 1;
--
ELSE
--
l_largearcflag := 0;
--
END IF;
--
l_svgtext :='<path d="';
--start at center of circle
l_svgtext := l_svgtext ||'M '||TO_CHAR(l_x_origin)||','||TO_CHAR(l_y_origin)||' ';
--draw out to circle edge
l_arcx := circle_pointx(l_x_startdegrees, l_radius*2);
l_arcy := circle_pointy(l_x_startdegrees, l_radius*2);
--
l_svgtext := l_svgtext || 'L' || FLOOR(l_x_origin + l_arcx) || ','||FLOOR(l_y_origin + l_arcy);
--draw arc
l_arcx := circle_pointx(l_enddegrees, l_radius*2); --get x point of the arc
l_arcy := circle_pointy(l_enddegrees, l_radius*2); --get y point of the arc
--
l_svgtext := l_svgtext||' A '||TO_CHAR(l_radius)||','||TO_CHAR(l_radius)||' 0 ' || l_largearcflag || ' 1 ' || FLOOR(l_x_origin + l_arcx) ||
',' || FLOOR(l_y_origin + l_arcy) || ' z" style="fill:#' ||
colour_palette(i-1) || '; fill-opacity: .99; stroke:black; stroke-width:1;" />';
--print out the svg path tag
htp.p(l_svgtext);
END IF;
--
END LOOP;
--
-- Print pie title
--
htp.print('<text x="100" y="15" text-anchor="middle" font-weight="bold">'||p_pie_tab(1).l_descr||'</text>');
--
-- Print Legend
--
FOR j IN 2..p_pie_tab.COUNT LOOP
--
htp.print('<rect x="4" y="'||TO_CHAR((l_y_origin+l_radius+30)+(25*(j-2)))||'" height="15" width="15" style="fill:#'||colour_palette(j-1)||'; stroke:black; stroke-width:0.5"/>');
htp.print('<text x="22" y="'||TO_CHAR((l_y_origin+l_radius+40)+(25*(j-2)))||'">'||p_pie_tab(j).l_descr||' ('||TO_CHAR(p_pie_tab(j).l_quantity)||'kWh)</text>');
--
END LOOP;
--
htp.print('</g>');
htp.print('</svg>');
--
END piechart2;
--
--
--
/*PROCEDURE barchart3(p_type IN VARCHAR2 DEFAULT 'A') IS
--
-- l_tab_inv is table of:
-- l_date
-- l_inventory
-- l_max_cap
-- l_min_cap
--
l_tab_inv lihp_home_page.t_tab_inv;
--
-- Fudged the number just a little...
--
l_max_qty NUMBER := 900000000;
--
l_x_start NUMBER := 80;
l_width NUMBER := 18;
l_x_step NUMBER := 8;
--
l_y_start NUMBER := 9.1;
l_y_step NUMBER := 14;
l_height NUMBER := 146;
--
l_idx NUMBER;
--
BEGIN
--
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
--
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" ');
htp.print(' "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
--
htp.print(' <style type="text/css">');
htp.print(' rect:hover {fill-opacity:0.9;}');
htp.print(' </style>');
--
htp.print(' <g style="fill-opacity:0.7;">');
htp.print('');
--
htp.print('<linearGradient id="bargradient" x1="0%" y1="0%" x2="0%" y2="100%">');
htp.print('<stop offset="0%" style="stop-color:#336699;"/>');
htp.print('<stop offset="100%" style="stop-color:rgb(255,255,255);"/>');
htp.print('</linearGradient>');
--
htp.print('<linearGradient id="currentgradient" x1="0%" y1="0%" x2="0%" y2="100%">');
htp.print('<stop offset="0%" style="stop-color:#cc0033;"/>');
htp.print('<stop offset="100%" style="stop-color:rgb(255,255,255);"/>');
htp.print('</linearGradient>');
--
-- Get Data
--
IF p_type = 'A' THEN
--
l_tab_inv := lihp_home_page.inventory_details;
--
ELSIF p_type = 'B' THEN
--
l_tab_inv := lihp_home_page.all_inventory_details;
--
l_max_qty := 1800000000;
--
ELSIF p_type = 'C' THEN
--
lihp_home_page.g_start_date := (TRUNC(SYSDATE) - 14) + (cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24);
lihp_home_page.g_end_date := (TRUNC(SYSDATE) + 14) + (cout_system_configuration.get_configuration_item('GAS_DAY_OFFSET')/24);
--
l_tab_inv := lihp_home_page.inventory_details;
--
l_width := 9;
l_x_step := 5;
--
END IF;
--
-- Print the boundary
--
htp.print('<rect x="0" y="0" width="'||TO_CHAR((l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step)+260)||'" height="'||TO_CHAR(l_height+50)||'" fill="none" stroke="black" stroke-width=".3" /> ');
--
-- Y axis lines
--
htp.print('<rect x="'||TO_CHAR(l_x_start)||'" y="'||l_y_start||'" width="'||TO_CHAR((l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" height="'||l_height||'" fill="none" stroke="blue" stroke-width=".2" /> ');
--
-- Print the lines
--
FOR i IN 1..9 LOOP
--
htp.print('<line x1="'||TO_CHAR(l_x_start-5)||'" y1="'||TO_CHAR((i*l_y_step)+l_y_start)||'" x2="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" y2="'||TO_CHAR((i*l_y_step)+l_y_start)||'" style="stroke: grey; stroke-width: 0.1;" />');
--
END LOOP;
--
htp.print('');
htp.print('');
--
-- Data
--
l_idx := l_tab_inv.FIRST;
--
FOR z IN 1..l_tab_inv.COUNT LOOP
--
IF TRUNC(l_tab_inv(l_idx).l_date) = TRUNC(SYSDATE) THEN
htp.print('<rect x="'||TO_CHAR((l_x_start+l_x_step)+((l_width+l_x_step)*(z-1)))||'" y="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_idx).l_inventory/l_max_qty)*l_height))||'" width="'||l_width||'" height="'||TO_CHAR((l_tab_inv(l_idx).l_inventory/l_max_qty)*l_height)||'" fill="url(#currentgradient)" stroke="black" stroke-width=".2" /> ');
ELSE
htp.print('<rect x="'||TO_CHAR((l_x_start+l_x_step)+((l_width+l_x_step)*(z-1)))||'" y="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_idx).l_inventory/l_max_qty)*l_height))||'" width="'||l_width||'" height="'||TO_CHAR((l_tab_inv(l_idx).l_inventory/l_max_qty)*l_height)||'" fill="url(#bargradient)" stroke="black" stroke-width=".2" /> ');
END IF;
--
l_idx := l_tab_inv.NEXT(l_idx);
--
END LOOP;
--
htp.print('');
--
-- Max line
--
htp.p('<polyline fill="none" stroke="red" stroke-width="1.5" points="');
--
l_idx := l_tab_inv.FIRST;
--
FOR z IN 1..l_tab_inv.COUNT LOOP
--
IF z > 1 AND l_tab_inv(l_idx).l_max_cap <> l_tab_inv(l_tab_inv.PRIOR(l_idx)).l_max_cap THEN
--
htp.p(TO_CHAR(l_x_start+(l_x_step/2)+(((l_width+l_x_step)*(z-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_tab_inv.PRIOR(l_idx)).l_max_cap/l_max_qty)*l_height)));
--
END IF;
--
IF z > 1 THEN
htp.p(TO_CHAR(l_x_start+(l_x_step/2)+(((l_width+l_x_step)*(z-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_idx).l_max_cap/l_max_qty)*l_height)));
ELSE
htp.p(TO_CHAR(l_x_start+(((l_width+l_x_step)*(z-1))))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_idx).l_max_cap/l_max_qty)*l_height)));
END IF;
--
IF l_idx = l_tab_inv.LAST THEN
--
htp.p(TO_CHAR(l_x_start+(((l_width+l_x_step)*(z-1)))+(l_x_step+l_width+l_x_step))||','||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_idx).l_max_cap/l_max_qty)*l_height)));
--
END IF;
--
l_idx := l_tab_inv.NEXT(l_idx);
--
END LOOP;
--
htp.p('" />');
--
htp.print('<line x1="'||TO_CHAR(l_x_start)||'" y1="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_tab_inv.FIRST).l_min_cap/l_max_qty)*l_height))||'" x2="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step))||'" y2="'||TO_CHAR(l_height+l_y_start-((l_tab_inv(l_tab_inv.FIRST).l_min_cap/l_max_qty)*l_height))||'" stroke-width="1.5" stroke="green" />');
htp.print('');
htp.print(' </g>');
--
-- Y axis labels
--
htp.print('<g style="font-family: Verdana; font-size:12px;">');
htp.print('<text id="key2" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(5,'||TO_CHAR((l_height/2)+5)||')">GWh</text>');
--
FOR i IN 0..9 LOOP
--
htp.print('<text id="scale'||TO_CHAR(i)||'" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate(45,'||TO_CHAR((l_height + 5)-(l_y_step*i))||')">'||TO_CHAR((l_max_qty/9000000)*i)||'</text> ');
--
END LOOP;
--
htp.print('');
htp.print('');
htp.print('');
--
-- X axis labels
--
l_idx := l_tab_inv.FIRST;
--
FOR i IN 1..l_tab_inv.COUNT LOOP
--
htp.print('<text id="date'||TO_CHAR(i)||'" style="0: 10; fill: rgb(80,80,80)" type="path" x="0" y="0" transform="translate('||TO_CHAR(l_x_start+(i*(l_x_step + l_width))-4)||','||TO_CHAR(l_height+40+l_y_start)||') rotate(270)">'||TO_CHAR(l_tab_inv(l_idx).l_date, 'DD/MM')||'</text>');
--
l_idx := l_tab_inv.NEXT(l_idx);
--
END LOOP;
--
-- Legends
--
--htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(10++l_y_start)||'" font-weight="bold">'||'Inventory Summary</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(20++l_y_start)||'" height="15" width="15" style="fill:url(#bargradient); stroke:black; stroke-width:0.5"/>');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(32++l_y_start)||'">'||'Inventory</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(40++l_y_start)||'" height="15" width="15" style="fill:white; stroke:black; stroke-width:0.5"/>');
htp.print('<line x1="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))+2)||'" y1="'||TO_CHAR(47.5++l_y_start)||'" x2="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+13))||'" y2="'||TO_CHAR(47.5++l_y_start)||'" stroke-width="1.5" stroke="red" />');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(52++l_y_start)||'">'||'Maximum Capacity</text>');
htp.print('<rect x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))||'" y="'||TO_CHAR(60++l_y_start)||'" height="15" width="15" style="fill:white; stroke:black; stroke-width:0.5"/>');
htp.print('<line x1="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2))+2)||'" y1="'||TO_CHAR(67.5++l_y_start)||'" x2="'||TO_CHAR((l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+13))||'" y2="'||TO_CHAR(67.5++l_y_start)||'" stroke-width="1.5" stroke="green" />');
htp.print('<text x="'||TO_CHAR(l_x_start + (l_tab_inv.COUNT*(l_width+l_x_step) + l_x_step*2)+20)||'" y="'||TO_CHAR(72++l_y_start)||'">'||'Minimum Inventory</text>');
--
htp.print('</g>');
htp.print('');
htp.print('</svg>');
htp.print('');
--
END barchart3;*/
--
--
--
PROCEDURE piechart3 IS
--
l_degrees NUMBER;
l_arcx NUMBER;
l_arcy NUMBER;
l_x_startdegrees NUMBER;
l_enddegrees NUMBER;
l_wedgesize NUMBER;
l_largearcflag INTEGER := 0;
l_svgtext VARCHAR2(4000);
--
l_x_origin NUMBER := 100;
l_y_origin NUMBER := 70;
l_radius NUMBER := 50;
--
l_height NUMBER := 197;
l_width NUMBER := 199;
--
l_description VARCHAR2(200);
l_procedure VARCHAR2(200);
--
BEGIN
--
-- Determine procedure due to problems with 10g
--
BEGIN
SELECT hoev.element_value
,hoev.element_procedure
INTO l_description
,l_procedure
FROM user_homepage usho
,homepage_element hoel
,homepage_element_value hoev
WHERE hoel.hoel_id = usho.hoel_id
AND hoev.hoev_id = usho.hoev_id
AND hoev.hoel_id = usho.hoel_id
AND UPPER(hoel.element_name) = UPPER('Piechart')
AND usho.syus_id = caco_utilities.get_syus_id;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
--
IF l_procedure IS NOT NULL THEN
--
execute immediate 'begin svg.g_pie_tab := '||l_procedure||'; end;';
--
END IF;
--
IF g_pie_tab.COUNT > 0 THEN
--'Content-type: image/svg+xml'
owa_util.mime_header('image/svg+xml', true, 'iso-8859-4');
htp.print('<?xml version="1.0" standalone="no"?>');
htp.print('<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">');
htp.print('<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">');
htp.print(' <g style="fill-opacity:0.99; font-family: Verdana; font-size:11px;">');
--
-- Outer box
--
htp.print('<rect x="0" y="0" height="'||TO_CHAR(l_height)||'" width="'||TO_CHAR(l_width)||'" style="fill:#FFFFFF; stroke:black; stroke-width:0.5"/>');
--
-- Piechart Stuff
--
l_degrees := 270;
--
FOR i IN 2..g_pie_tab.COUNT LOOP
--
l_x_startdegrees := ROUND(l_degrees);
--
-- Figure out the angle (in degrees) of our current cheese
--
l_wedgesize := ( g_pie_tab(i).l_quantity / g_pie_tab(1).l_quantity ) * 360;
l_degrees := l_degrees + l_wedgesize;
l_enddegrees := ROUND(l_degrees);
--
-- If one of our cheeses is 180 or bigger we need to set the large arc flag
-- other with the arc (A) won't draw it correctly
--
IF l_wedgesize > 359 THEN
--
htp.print('<circle cx="'||TO_CHAR(l_x_origin)||'" cy="'||TO_CHAR(l_y_origin)||'" r="'||TO_CHAR(l_radius)||'" style="fill:#' ||
colour_palette(i-1) || '; stroke:black; stroke-width:1;"/>');
--
ELSE
--
IF l_wedgesize >= 180 THEN
--
l_largearcflag := 1;
--
ELSE
--
l_largearcflag := 0;
--
END IF;
--
l_svgtext :='<path d="';
--start at center of circle
l_svgtext := l_svgtext ||'M '||TO_CHAR(l_x_origin)||','||TO_CHAR(l_y_origin)||' ';
--draw out to circle edge
l_arcx := circle_pointx(l_x_startdegrees, l_radius*2);
l_arcy := circle_pointy(l_x_startdegrees, l_radius*2);
--
l_svgtext := l_svgtext || 'L' || FLOOR(l_x_origin + l_arcx) || ','||FLOOR(l_y_origin + l_arcy);
--draw arc
l_arcx := circle_pointx(l_enddegrees, l_radius*2); --get x point of the arc
l_arcy := circle_pointy(l_enddegrees, l_radius*2); --get y point of the arc
--
l_svgtext := l_svgtext||' A '||TO_CHAR(l_radius)||','||TO_CHAR(l_radius)||' 0 ' || l_largearcflag || ' 1 ' || FLOOR(l_x_origin + l_arcx) ||
',' || FLOOR(l_y_origin + l_arcy) || ' z" style="fill:#' ||
colour_palette(i-1) || '; fill-opacity: .99; stroke:black; stroke-width:1;" />';
--print out the svg path tag
htp.p(l_svgtext);
END IF;
--
END LOOP;
--
-- Print pie title
--
htp.print('<text x="100" y="15" text-anchor="middle" fill="red">'||g_pie_tab(1).l_descr||'</text>');
--
-- Print Legend
--
FOR j IN 2..g_pie_tab.COUNT LOOP
--
htp.print('<rect x="4" y="'||TO_CHAR((l_y_origin+l_radius+5)+(25*(j-2)))||'" height="15" width="15" style="fill:#'||colour_palette(j-1)||'; stroke:black; stroke-width:0.5"/>');
htp.print('<text x="22" y="'||TO_CHAR((l_y_origin+l_radius+16)+(25*(j-2)))||'">'||g_pie_tab(j).l_descr||' ('||TO_CHAR(g_pie_tab(j).l_quantity, 'FM999G999G999G999G999G999G990')||' '||g_pie_tab(1).l_units||')</text>');
--
END LOOP;
--
htp.print('</g>');
htp.print('</svg>');
--
END IF;
--
END piechart3;
--
END svg;
/
Reference in New Issue View Git Blame Copy Permalink