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,

Refer to manual :
Creating HTML5 Charts

WebFOCUS Graphics

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?

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 

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.

I am using 8.1.05

Whats your version?

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