Focal Point Banner
Community Center Education Summit Technical Support User Groups
Let's Get Social!

Facebook Twitter LinkedIn YouTube
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] Pie Chart Enhancements
Go
New
Search
Notify
Tools
Reply
  
[CLOSED] Pie Chart Enhancements
 Login/Join
 
Gold member
posted
Hi

I created a pie chart from the tool and it works great. Just wondering if there are any additional animation or feature enhancements for this which can be done with code and not available in GUI in the tool? Please suggest if any. I remember seeing a pie chart where clicking on a slice would move it little bit away from the pie. Not sure how to get this here.
-*IA_GRAPH_BEGIN
-*Do not delete or modify the comments above
ENGINE INT CACHE SET ON
SET PAGE-NUM=NOLEAD
SET HTMLENCODE=ON
SET ARGRAPHENGINE=JSCHART
SET EMBEDHEADING=ON
SET GRAPHDEFAULT=OFF
-DEFAULTH &WF_STYLE_UNITS='PIXELS';
-DEFAULTH &WF_STYLE_HEIGHT='405.0';
-DEFAULTH &WF_STYLE_WIDTH='770.0';
-DEFAULTH &WF_TITLE='WebFOCUS Report';
GRAPH FILE car
-* Created by Info Assist for Graph
SUM CAR.BODY.SALES
BY CAR.ORIGIN.COUNTRY
ON GRAPH PCHOLD FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS &WF_STYLE_WIDTH
ON GRAPH SET VAXIS &WF_STYLE_HEIGHT
ON GRAPH SET LOOKGRAPH PIE
ON GRAPH SET AUTOFIT ON
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
setPieFeelerTextDisplay(1);
*END
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/ibi_themes/Warm.sty,$
TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, PAGESIZE=LEGAL, $
TYPE=DATA, COLUMN=N1, BUCKET=color, $
TYPE=DATA, COLUMN=N2, BUCKET=measure, $
*GRAPH_SCRIPT
setReportParsingErrors(false);
setSelectionEnableMove(false);
setTransparentBorderColor(getSeries(4), true);
setDataTextDisplay(true);
setPieLabelDisplay(4);
setTextFormatPreset(getPieSliceLabel(),6);
setPieFeelerTextDisplay(2);
setDisplay(getLegendArea(),false);
setPieSliceDelete(0,false);
setPieSliceDelete(1,false);
setPieSliceDelete(2,false);
setPieSliceDelete(3,false);
setPieSliceDelete(4,false);
setPieSliceDetach(getSeries(*), 0);
setTextFormatPreset(getGaugeValue(),6);
setPiesPerRow(1);
setTextFormatPreset(getY1Label(),6);
setTextFormatPreset(getPieRingLabel(),6);
setPieTilt(0);
setPieDepth(0);
setDepthRadius(0);
setDepthAngle(0);
*GRAPH_JS_FINAL
"pieProperties": {
    "holeSize": "65%"
},
"introAnimation": {
    "enabled": true
},
"agnosticSettings": {
    "chartTypeFullName": "Pie_Ring"
}
*END
ENDSTYLE
END
-RUN
-*IA_GRAPH_FINISH

Thanks

This message has been edited. Last edited by: FP Mod Chuck,


WebFOCUS 8202
All formats
 
Posts: 43 | Registered: September 13, 2017Reply With QuoteReport This Post
Virtuoso
posted Hide Post
Refer to manual :
Creating HTML5 Charts

WebFOCUS Graphics


WF 7.7.05M, 8.1.05M, 8.2.0.1M gen240 Windows, HTML, Excel, PDF
In Focus since 2007
 
Posts: 1807 | Location: Montreal Area, Qc, CA | Registered: September 25, 2013Reply With QuoteReport This Post
Gold member
posted Hide Post
quote:
Originally posted by MartinY:
Refer to manual :
Creating HTML5 Charts

WebFOCUS Graphics


However I try I am not able to get pie ring label in 2 lines. Currently country name and sales amount are side by side. Can I get country name in 1 line and amount below in in 2nd line?


WebFOCUS 8202
All formats
 
Posts: 43 | Registered: September 13, 2017Reply With QuoteReport This Post
Gold member
posted Hide Post
I found this. Are you looking similar to this?

 SET HOLDLIST = PRINTONLY
TABLE FILE CAR
SUM 
 COMPUTE PCTVAL/D5.2=PCT.DEALER_COST; NOPRINT
 COMPUTE GVALUES/A50='"' || COUNTRY || ' ' | FTOA(DEALER_COST, '(D7.0)', 'A9') 
         || '\n(' | FTOA(PCTVAL, '(D5.2)', 'A8') || '%)",';
BY COUNTRY NOPRINT
ON TABLE SAVE
END
-RUN

GRAPH FILE CAR
SUM DEALER_COST
ACROSS COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH SET GRAPHSTYLE *
setSeriesLabelArray(
-INCLUDE SAVE
);
setMarkerDisplay(true);
setConnectLineMarkers(false);
setConnectScatterMarkers(false);
setO1LabelDisplay(true);
setO1AxisSide(0);
setO1MajorGridDisplay(true);
setO1MajorGridStyle(0);
setO1MinorGridDisplay(false);
setAxisAssignment(0,0);
setY1LabelDisplay(true);
setY1AxisSide(0);
setY1MajorGridDisplay(true);
setY1MajorGridStyle(0);
setY1MinorGridDisplay(false);
setTextFormatPreset(getY1Label(),-1);
setTextFormatPattern(getY1Label(),"#.##");
setPieFeelerTextDisplay(1);
setPieLabelDisplay(2);
setTextFormatPreset(getPieSliceLabel(),2);
setRiserBorderMode(1);
setSeriesDefaultTransparentBorderColor(true);
setUseSeriesBorderDefaults(true);
setLegendDisplay(false);
setFontSizeAbsolute(getY1Title(),true);
setFontSizeAbsolute(getY1Label(),true);
setFontSizeAbsolute(getY2Title(),true);
setFontSizeAbsolute(getY2Label(),true);
setFontSizeAbsolute(getO1Title(),true);
setPlace(true);
ENDSTYLE
ON GRAPH SET STYLE *
     PAGESIZE='Letter',
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='TIMES NEW ROMAN',
     SIZE=10,
     BACKCOLOR='NONE',
     STYLE=NORMAL,
$
ENDSTYLE
END 


WebFOCUS 7.X.X, 8.X.X
Windows, All Outputs
 
Posts: 45 | Registered: February 02, 2016Reply With QuoteReport This Post
Gold member
posted Hide Post
quote:
Originally posted by pav:
I found this. Are you looking similar to this?

 SET HOLDLIST = PRINTONLY
TABLE FILE CAR
SUM 
 COMPUTE PCTVAL/D5.2=PCT.DEALER_COST; NOPRINT
 COMPUTE GVALUES/A50='"' || COUNTRY || ' ' | FTOA(DEALER_COST, '(D7.0)', 'A9') 
         || '\n(' | FTOA(PCTVAL, '(D5.2)', 'A8') || '%)",';
BY COUNTRY NOPRINT
ON TABLE SAVE
END
-RUN

GRAPH FILE CAR
SUM DEALER_COST
ACROSS COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH SET GRAPHSTYLE *
setSeriesLabelArray(
-INCLUDE SAVE
);
setMarkerDisplay(true);
setConnectLineMarkers(false);
setConnectScatterMarkers(false);
setO1LabelDisplay(true);
setO1AxisSide(0);
setO1MajorGridDisplay(true);
setO1MajorGridStyle(0);
setO1MinorGridDisplay(false);
setAxisAssignment(0,0);
setY1LabelDisplay(true);
setY1AxisSide(0);
setY1MajorGridDisplay(true);
setY1MajorGridStyle(0);
setY1MinorGridDisplay(false);
setTextFormatPreset(getY1Label(),-1);
setTextFormatPattern(getY1Label(),"#.##");
setPieFeelerTextDisplay(1);
setPieLabelDisplay(2);
setTextFormatPreset(getPieSliceLabel(),2);
setRiserBorderMode(1);
setSeriesDefaultTransparentBorderColor(true);
setUseSeriesBorderDefaults(true);
setLegendDisplay(false);
setFontSizeAbsolute(getY1Title(),true);
setFontSizeAbsolute(getY1Label(),true);
setFontSizeAbsolute(getY2Title(),true);
setFontSizeAbsolute(getY2Label(),true);
setFontSizeAbsolute(getO1Title(),true);
setPlace(true);
ENDSTYLE
ON GRAPH SET STYLE *
     PAGESIZE='Letter',
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='TIMES NEW ROMAN',
     SIZE=10,
     BACKCOLOR='NONE',
     STYLE=NORMAL,
$
ENDSTYLE
END 

This is not working for me somehow. I get error with INCLUDE.


WebFOCUS 8202
All formats
 
Posts: 43 | Registered: September 13, 2017Reply With QuoteReport This Post
Gold member
posted Hide Post
I am using 8.1.05

Whats your version?


WebFOCUS 7.X.X, 8.X.X
Windows, All Outputs
 
Posts: 45 | Registered: February 02, 2016Reply With QuoteReport This Post
Platinum Member
posted Hide Post
quote:
Originally posted by WebFOCUS_Dev:
This is not working for me somehow. I get error with INCLUDE.


Add -MRNOEDIT before the -INCLUDE
  
-MRNOEDIT -INCLUDE SAVE


Hallway
WF(Prod):8202M
WF(Test):8202M
OS/Platform:Win 10
Outputs:All
 
Posts: 217 | Location: Salt Lake City, UT, USA | Registered: November 18, 2015Reply With QuoteReport This Post
  Powered by Social Strata  
 

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] Pie Chart Enhancements

Copyright © 1996-2018 Information Builders, leaders in enterprise business intelligence.