Skip to content
Navigation Menu
{{ message }}
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathchart_png_samp.pls
More file actions
257 lines (227 loc) · 10.1 KB
/
chart_png_samp.pls
File metadata and controls
257 lines (227 loc) · 10.1 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
*---------------------------------------------------------------
.
. Program Name: chart_png_samp.pls
. Description: PL/B and Google Charts and PNG Generation
. See link:
. "https://developers.google.com/chart/interactive/docs/quick_start"
. "https://developers.google.com/chart/interactive/docs/printing"
.
. For web server change plbwebstartwv.html to look like
. example_plbwebstartwv.html
.
.
. Revision History:
.
. Date: 07/15/2025
. Original code
.
INCLUDE plbequ.inc
INCLUDE plbmeth.inc
INCLUDE plbstdlib.inc
// Runtime status variables
isGui BOOLEAN
isWebSrv BOOLEAN
isPlbSrv BOOLEAN
isWebview BOOLEAN
isWebCliApp BOOLEAN
isSmallScreen BOOLEAN
// Global data
mainForm PLFORM chart_png_samp.plf
Client CLIENT
htmlBuffer DIM 4096
htmlPart1 INIT "<head>":
"<script type='text/javascript' src='https://www.google.com/jsapi'></script>",0xD,0xA:
"<script type='text/javascript'>",0xD,0xA:
"// Load the Visualization API and the piechart package.",0xD,0xA:
"google.load('visualization', '1.0', {'packages':['corechart']});",0xD,0xA:
"// Set a callback to run when the Google Visualization API is loaded.",0xD,0xA:
"google.setOnLoadCallback('ready');",0xD,0xA:
"// Callback that creates and populates a data table,",0xD,0xA:
"// instantiates the pie chart, passes in the data and",0xD,0xA:
"// draws it.",0xD,0xA:
"function drawChart() {",0xD,0xA:
"// Create the data table.",0xD,0xA:
"var data = new google.visualization.DataTable();",0xD,0xA
htmlPart2 INIT "// Wait for the chart to finish drawing before calling the getImageURI() method.",0xD,0xA:
"google.visualization.events.addListener(chart, 'ready', function () {",0xD,0xA:
"document.getElementById('chart_png').innerHTML = '<a href=#"' + chart.getImageURI() + '#">Printable version</a>';",0xD,0xA:
"});",0xD,0xA:
"chart.draw(data, options);",0xD,0xA:
"}",0xD,0xA:
"</script>",0xD,0xA:
"</head>",0xD,0xA:
"<body>",0xD,0xA:
"<!--Div that will hold the pie chart-->",0xD,0xA:
"<div id='chart_png' style='display: none'></div>",0xD,0xA:
"<div id='chart_div'></div>",0xD,0xA:
"<script type='text/javascript'>",0xD,0xA:
"drawChart();",0xD,0xA:
"</script>",0xD,0xA:
"</body>",0xD,0xA
htmlChart1 INIT "data.addColumn('string', 'Topping');",0xD,0xA:
"data.addColumn('number', 'Slices');",0xD,0xA:
"data.addRows([",0xD,0xA:
" ['Mushrooms', 3],",0xD,0xA:
" ['Onions', 1],",0xD,0xA:
" ['Olives', 1],",0xD,0xA:
" ['Zucchini', 1],",0xD,0xA:
" ['Pepperoni', 2]",0xD,0xA:
" ]);",0xD,0xA:
"// Set chart options",0xD,0xA:
"var options = {'title':'How Much Pizza I Ate Last Night',",0xD,0xA:
" 'width':500,",0xD,0xA:
" 'height':400};",0xD,0xA:
"// Instantiate and draw our chart, passing in some options.",0xD,0xA:
"var chart = new google.visualization.PieChart(document.getElementById('chart_div'));",0xD,0xA
htmlChart2 INIT "data.addColumn('string', 'Task');",0xD,0xA:
"data.addColumn('number', 'Hours per Day');",0xD,0xA:
" data.addRows([",0xD,0xA:
" ['Work', 11],",0xD,0xA:
" ['Eat', 2],",0xD,0xA:
" ['Commute', 2],",0xD,0xA:
" ['Watch TV', 2],",0xD,0xA:
" ['Sleep', 7]",0xD,0xA:
" ]);",0xD,0xA:
"var options = {",0xD,0xA:
"title: 'My Daily Activities',",0xD,0xA:
" is3D: true,",0xD,0xA:
" 'width':500,",0xD,0xA:
" 'height':400};",0xD,0xA:
"// Instantiate and draw our chart, passing in some options.",0xD,0xA:
"var chart = new google.visualization.PieChart(document.getElementById('chart_div'));",0xD,0xA
pngData DIM ^65000
pngBinary DIM ^65000
seq FORM "-1"
pngFile FILE BUFFER=65000
*---------------------------------------------------------------
// <program wide variables>
*................................................................
.
. Code start
.
CALL Main
LOOP
EVENTWAIT
REPEAT
STOP
*................................................................
.
. Check what type of runtime support we have
.
CheckStatus LFUNCTION
ENTRY
runtimeData DIM 50
runtimeVersion DIM 5
unused DIM 1
plbRuntime DIM 9
WidthData DIM 5
checkWidth FORM 5
.
. Check for character mode runtime
.
GETMODE *GUI=isGui
IF (isGui)
.
. check windows console.
.
CLOCK VERSION,runtimeData
UNPACK runtimeData,runtimeVersion,unused,plbRuntime
CHOP plbRuntime
IF (NOCASE plbRuntime == "PLBCON")
CLEAR isGui
ENDIF
IF (NOCASE plbRuntime == "PLBWEBSV")
SET isWebSrv
ENDIF
IF (NOCASE plbRuntime == "PLBSERVE")
SET isPlbSrv
ENDIF
ENDIF
IF (isGui)
WINHIDE
Client.Getstate Giving isWebCliApp Using $CLI_STATE_CORDOVA
Client.Getstate Giving isWebview Using $CLI_STATE_BOOTSTRAP5
.
. Check for a small screen (such as iphone)
.
IF (isWebSrv)
Client.GetWinInfo Giving WidthData Using 0x2
MOVE WidthData To checkWidth
MOVE (checkWidth <= 700) to isSmallScreen
ENDIF
ENDIF
FUNCTIONEND
*................................................................
.
. Chart 1
.
Chart1 LFUNCTION
ENTRY
PACK htmlBuffer,htmlPart1,htmlChart1,htmlPart2
htmlChart.InnerHtml Using htmlBuffer
SETPROP btnOutPng,*enabled=$TRUE
FUNCTIONEND
*................................................................
.
. Chart 2
.
Chart2 LFUNCTION
ENTRY
PACK htmlBuffer,htmlPart1,htmlChart2,htmlPart2
htmlChart.InnerHtml Using htmlBuffer
SETPROP btnOutPng,*enabled=$TRUE
FUNCTIONEND
*................................................................
.
. Output a PNG file
.
OutputPng LFUNCTION
ENTRY
scanFP INTEGER 2
result FORM 4
htmlChart.GetAttr giving pngData using "chart_png","html"
SCAN "data:image/png;base64,", pngData
IF EQUAL
MOVEFPTR pngData,scanFP
SCAN "#>", pngData
IF EQUAL
LENSET pngData
RESET pngData,(scanFP+22)
DECODE64 pngData,pngBinary
PREP pngFile, "chart.png"
WRITE pngFile,SEQ;*LL,pngBinary;
CLOSE pngFile
ALERT NOTE,"The file chart.png has been generated.",result
ENDIF
ENDIF
FUNCTIONEND
*................................................................
.
. Main - Main program entry point
.
Main LFUNCTION
ENTRY
result FORM 4
CALL CheckStatus
IF (!isGui)
KEYIN "This runtime can't run this program. ",result
STOP
ENDIF
IF (!isWebview)
ALERT STOP,"This program requires WebView support.",result
STOP
ENDIF
.
. On smaller screens change to % positioning for left and width
.
IF (isWebCliApp || isSmallScreen)
SETMODE *PERCENTCONVERT=1
ENDIF
FORMLOAD mainForm
IF (!isWebSrv)
PACK htmlBuffer,htmlPart1,htmlChart1,htmlPart2
htmlChart.InnerHtml Using htmlBuffer
ENDIF
SETPROP btnOutPng,*enabled=$FALSE
SETFOCUS btnChart1
FUNCTIONEND
You can’t perform that action at this time.