Module: PieChart

Included in:
Graph
Defined in:
lib/pie_chart.rb

Instance Method Summary collapse

Instance Method Details

#draw_basic_pie_graph(data, data_description, x_pos, y_pos, radius = 100, draw_labels = Rchart::PIE_NOLABEL, r = 255, g = 255, b = 255, decimals = 0) ⇒ Object

This function will draw a classical non-exploded pie chart.

  • To do so you must specify the data & data_description array.Only one serie of data is allowed for pie graph.

  • You can associate a description of each value in another serie by marking it using the set_abscise_label_serie function.

  • You must specify the center position of the chart. You can also optionally specify the radius of the pie and if the percentage should be printed.

  • r,g,b can be used to set the color of the line that will surround each pie slices.

  • You can specify the number of decimals you want to be displayed in the labels (default is 0 )

By default no labels are written around the pie chart. You can use the following modes for the draw_labels parameter

  • Rchart

    PIE_NOLABEL No labels displayed

  • Rchart

    PIE_PERCENTAGE Percentages are displayed

  • Rchart

    PIE_LABELS Series labels displayed

  • Rchart

    PIE_PERCENTAGE_LABEL Series labels & percentage displayed

This will draw a pie graph centered at (150-150) with a radius of 100, no labels

  • chart.draw_basic_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150)

This will draw a pie graph centered at (150-150) with a radius of 50 and percentages

  • chart.draw_basic_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,50,Rchart::PIE_PERCENTAGE)

This will draw a pie graph centered at (150-150) with a radius of 100, captions and black borders

  • chart.draw_basic_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,100,Rchart::PIE_PERCENTAGE,0,0,0)



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
 
# File 'lib/pie_chart.rb', line 19

def draw_basic_pie_graph(data,data_description,x_pos,y_pos,radius=100,draw_labels=Rchart::PIE_NOLABEL,r=255,g=255,b=255,decimals=0)
  data_description = validate_data_description("draw_basic_pie_graph",data_description,false)
  validate_data("drawBasicPieGraph",data)
  # Determine pie sum
  series = 0
  pie_sum = 0
  i_values = []
  r_values  = []
  i_labels  = []
  data_description["values"].each do|col_name|
    if (col_name != data_description["position"])
      series = series+1
      data.each do |key|
        if (!key[col_name].nil?)
          pie_sum = pie_sum + key[col_name]
          i_values << key[col_name]
          i_labels   << key[data_description["position"]]
        end
      end
    end
  end


  # Validate serie
  if ( series != 1 )
    raise_fatal("Pie chart can only accept one serie of data.")
  end
  splice_ratio         = 360.0 / pie_sum
  splice_percent       = 100.0 / pie_sum

  #Calculate all polygons
  angle    = 0
  top_plots = []
  i_values.each_with_index do |value,key|

    top_plots[key]= [x_pos]
    top_plots[key]<< y_pos
    # Process labels position & size
    caption = ""
    if ( !(draw_labels == Rchart::PIE_NOLABEL) )
      t_angle  = angle+(value*splice_ratio/2)
      if (draw_labels == Rchart::PIE_PERCENTAGE)
        caption  = ((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      elsif (draw_labels == Rchart::PIE_LABELS)
        caption  = i_labels[key]
      elsif (draw_labels == Rchart::PIE_PERCENTAGE_LABEL)
        caption  = i_labels[key].to_s+"\r\n"+"."+((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      elsif (draw_labels == Rchart::PIE_PERCENTAGE_LABEL)
        caption  = i_labels[key].to_s+"\r\n"+"."+((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      end
      position   = image_ftb_box(@font_size,0,@font_name,caption)
      text_width  = position[2]-position[0]
      text_height = (position[1].abs)+(position[3].abs)

      tx = Math.cos((t_angle) * Math::PI / 180 ) * (radius+10) + x_pos

      if ( t_angle > 0 && t_angle < 180 )
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (radius+10) + y_pos + 4
      else
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (radius+4) + y_pos - (text_height/2)
      end
      tx = tx - text_width if ( t_angle > 90 && t_angle < 270 )

      c_text_color = allocate_color(@picture,70,70,70)
      image_ttf_text(@picture,@font_size,0,tx,ty,c_text_color,@font_name,caption)
    end
    # Process pie slices
    i_angle = angle
    while(i_angle <=angle+value*splice_ratio)

      top_x = (Math.cos(i_angle * Math::PI / 180 )) * radius + x_pos
      top_y = (Math.sin(i_angle * Math::PI/ 180 ))  * radius + y_pos
      top_plots[key] << (top_x)
      top_plots[key] <<(top_y)
      i_angle = i_angle+0.5
    end
    top_plots[key]<< x_pos
    top_plots[key] << y_pos
    angle = i_angle
  end
  poly_plots = top_plots
  # Draw Top polygons
  poly_plots.each_with_index do |value,key|
    image_filled_polygon(@picture, poly_plots[key], @palette[key]["r"],@palette[key]["g"],@palette[key]["b"])
  end
  	draw_circle(x_pos-0.5,y_pos-0.5,radius,r,g,b)
  	draw_circle(x_pos-0.5,y_pos-0.5,radius+0.5,r,g,b)
  # Draw Top polygons
  top_plots.each_with_index do  |value,key|
    j = 0
    while(j<=top_plots[key].count-4 )
      draw_line(top_plots[key][j],top_plots[key][j+1],top_plots[key][j+2],top_plots[key][j+3],r,g,b)
      j =j+2
    end
  end
end

#draw_flat_pie_graph(data, data_description, x_pos, y_pos, radius = 100, draw_labels = Rchart::PIE_NOLABEL, splice_distance = 0, decimals = 0, all_black = false) ⇒ Object

This function will draw a flat 2D pie graph. To do so you must specify the data & data_description array.

  • Only one serie of data is allowed for pie graph.

  • You can associate a description of each value in another serie by marking it using the set_abscise_label_serie function. You must specify the center position of the chart.

  • You can also optionally specify the radius of the pie and if the percentage should be printed.

  • If splice_distance is greated than 0, the pie will be exploded.

  • You can specify the number of decimals you want to be displayed in the labels (default is 0 )

By default no labels are written around the pie chart. You can use the following modes for the draw_labels parameter:

  • Rchart

    PIE_NOLABEL No labels displayed

  • Rchart

    PIE_PERCENTAGE Percentages are displayed

  • Rchart

    PIE_LABELS Series labels displayed

  • Rchart

    PIE_PERCENTAGE_LABEL Series labels & percentage displayed

This will draw a pie graph centered at (150-150) with a radius of 100, no labels

  • chart.draw_flat_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150)

This will draw a pie graph centered at (150-150) with a radius of 50 and percentages

  • chart.draw_flat_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,50,Rchart::PIE_PERCENTAGE)

This will draw a pie graph centered at (150-150) with a radius of 100, captions and slightly exploded

  • chart.draw_flat_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,100,Rchart::PIE_PERCENTAGE,4)



358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
 
# File 'lib/pie_chart.rb', line 358

def draw_flat_pie_graph(data,data_description,x_pos,y_pos,radius=100,draw_labels=Rchart::PIE_NOLABEL,splice_distance=0,decimals=0,all_black=false)
  data_description = validate_data_description("draw_flat_pie_graph",data_description,false)
  validate_data("draw_flat_pie_graph",data)
  shadow_status = @shadow_active
  @shadow_active = false
  # Determine pie sum
  series = 0
  pie_sum = 0
  i_values = []
  r_values  = []
  i_labels  = []
  data_description["values"].each do|col_name|
    if (col_name != data_description["position"])
      series = series+1
      data.each do |key|
        if (!key[col_name].nil?)
          pie_sum = pie_sum + key[col_name]
          i_values << key[col_name]
          i_labels   << key[data_description["position"]]
        end
      end
    end
  end

  #Validate serie
  if ( series != 1 )
    raise_fatal("Pie chart can only accept one serie of data.")
    return -1
  end

  splice_ratio   = 360.0 / pie_sum
  splice_percent = 100.0 / pie_sum
  # Calculate all polygons
  angle = 0
  top_plots = []
  i_values.each_with_index do |value,key|
    x_offset = Math.cos((angle+(value*1.0/2*splice_ratio)) * Math::PI / 180 ) * splice_distance
    y_offset = Math.sin((angle+(value*1.0/2*splice_ratio)) * Math::PI / 180 ) * splice_distance

    top_plots[key] = [(x_pos + x_offset).round]
    top_plots[key] << (y_pos + y_offset).round
    if ( all_black )
      rc = @shadow_r_color
      gc = @shadow_g_color
      bc = @shadow_b_color
    else
      rc = @palette[key]["r"]
      gc = @palette[key]["g"]
      bc = @palette[key]["b"]
    end
    x_line_last = ""
    y_line_last = ""
    #	 Process labels position & size
    caption = ""
    if ( !(draw_labels == Rchart::PIE_NOLABEL) )
      t_angle   = angle+(value*splice_ratio/2)
      if (draw_labels == Rchart::PIE_PERCENTAGE)
        caption  = ((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      elsif (draw_labels == Rchart::PIE_LABELS)
        caption  = i_labels[key]
      elsif (draw_labels == Rchart::PIE_PERCENTAGE_LABEL)
        caption  = i_labels[key].to_s+".\r\n"+((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      elsif (draw_labels == Rchart::PIE_PERCENTAGE_LABEL)
        caption  = i_labels[key].to_s+".\r\n"+((value * (10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      end
      position   = image_ftb_box(@font_size,0,@font_name,caption)
      text_width  = position[2]-position[0]
      text_height = (position[1].abs)+(position[3].abs)

      tx = Math.cos((t_angle) * Math::PI / 180 ) * (radius+10+splice_distance) + x_pos
      if ( t_angle > 0 && t_angle < 180 )
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (radius+10+splice_distance) + y_pos + 4
      else
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (radius+splice_distance+4) + y_pos - (text_height*1.0/2)
      end
      tx = tx - text_width if ( t_angle > 90 && t_angle < 270 )
      c_text_color = allocate_color(@picture,70,70,70)
      image_ttf_text(@picture,@font_size,0,tx,ty,c_text_color,@font_name,caption)
    end

    # Process pie slices
    if ( !all_black )
      line_color =allocate_color(@picture,rc,gc,bc)
    else
      line_color = allocate_color(@picture,rc,gc,bc)
    end
    x_line_last = ""
    y_line_last = ""
    i_angle=angle
    while(i_angle<=angle+value*splice_ratio)
      pos_x = Math.cos(i_angle * Math::PI / 180 ) * radius + x_pos + x_offset
      pos_y = Math.sin(i_angle * Math::PI / 180 ) * radius + y_pos + y_offset
      top_plots[key]<< (pos_x).round
      top_plots[key] << (pos_y).round
      if ( i_angle == angle || i_angle == angle+value*splice_ratio || i_angle+0.5 > angle+value*splice_ratio)
        draw_line(x_pos+x_offset,y_pos+y_offset,pos_x,pos_y,rc,gc,bc)
      end
      if ( x_line_last != "" )
        draw_line(x_line_last,y_line_last,pos_x,pos_y,rc,gc,bc)
      end
      x_line_last = pos_x
      y_line_last = pos_y
      i_angle=i_angle+0.5
    end

    top_plots[key] << (x_pos + x_offset).round
    top_plots[key]<< (y_pos + y_offset).round
    angle = i_angle
  end
  poly_plots = top_plots
  # Draw Top polygons
  poly_plots.each_with_index do  |value,key|
    if ( !all_black )
      image_filled_polygon(@picture,poly_plots[key],@palette[key]["r"],@palette[key]["g"],@palette[key]["b"])
    else
      image_filled_polygon(@picture,poly_plots[key],@shadow_r_color,@shadow_g_color,@shadow_b_color)
    end
  end
  @shadow_active = shadow_status

end

#draw_flat_pie_graph_with_shadow(data, data_description, x_pos, y_pos, radius = 100, draw_labels = Rchart::PIE_NOLABEL, splice_distance = 0, decimals = 0) ⇒ Object

This function is an alias of the draw_flat_pie_graph function.



334
335
336
337
 
# File 'lib/pie_chart.rb', line 334

def draw_flat_pie_graph_with_shadow(data,data_description,x_pos,y_pos,radius=100,draw_labels=Rchart::PIE_NOLABEL,splice_distance=0,decimals=0)
  draw_flat_pie_graph(data,data_description,x_pos+@shadow_x_distance,y_pos+@shadow_y_distance,radius,Rchart::PIE_NOLABEL,splice_distance,decimals,true)
  draw_flat_pie_graph(data,data_description,x_pos,y_pos,radius,draw_labels,splice_distance,decimals,false)
end

#draw_pie_graph(data, data_description, x_pos, y_pos, radius = 100, draw_labels = Rchart::PIE_NOLABEL, enhance_colors = true, skew = 60, splice_height = 20, splice_distance = 0, decimals = 0) ⇒ Object

This function will draw a 3D pie graph.

  • To do so you must specify the data & data_description array.

  • Only one serie of data is allowed for pie graph.

  • You can associate a description of each value in another serie by marking it using the set_abscise_label_serie function. You must specify the center position of the chart.

  • You can also optionally specify the radius of the pie, if the percentage should be printed, the 3D skew factor and the height of all splices.

  • If enhance_colors is set to true, pie edges will be enhanced.

  • If splice_distance is greated than 0, the pie will be exploded.

  • You can specify the number of decimals you want to be displayed in the labels (default is 0 ).

By default no labels are written around the pie chart. You can use the following modes for the draw_labels parameter:

  • Rchart

    PIE_NOLABEL No labels displayed

  • Rchart

    PIE_PERCENTAGE Percentages are displayed

  • Rchart

    PIE_LABELS Series labels displayed

  • Rchart

    PIE_PERCENTAGE_LABEL Series labels & percentage displayed

This will draw a pie graph centered at (150-150) with a radius of 100, no labels

  • chart.draw_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150)

This will draw a pie graph centered at (150-150) with a radius of 50 and percentages

  • chart.draw_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,50,Rchart::PIE_PERCENTAGE)

This will draw a pie graph centered at (150-150) with a radius of 100, captions and a skew factor of 30

  • chart.draw_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,100,Rchart::PIE_PERCENTAGE,true,30)

This will draw a pie graph (..) exploded

  • chart.draw_pie_graph(chart_data.get_data,chart_data.get_data_description,150,150,100,Rchart::PIE_PERCENTAGE,true,30,10,10)



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
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
 
# File 'lib/pie_chart.rb', line 137

def draw_pie_graph(data,data_description,x_pos,y_pos,radius=100,draw_labels=Rchart::PIE_NOLABEL,enhance_colors=true,skew=60,splice_height=20,splice_distance=0,decimals=0)
  data_description = validate_data_description("draw_pie_graph",data_description,false)
  validate_data("draw_pie_graph",data)

  #Determine pie sum
  series = 0
  pie_sum= 0
  rpie_sum = 0
  i_values = []
  r_values  = []
  i_labels  = []
  series = 0

  data_description["values"].each do|col_name|
    if (col_name != data_description["position"])
      series = series+1
      data.each do |key|
        if (!key[col_name].nil?)
          if (key[col_name] == 0)
            i_values  << 0
            r_values  << 0
            i_labels  << 0
            i_labels<< key[data_description["position"]]
          else
            pie_sum+=  key[col_name]
            i_values << key[col_name]
            i_labels << key[data_description["position"]]
            r_values << key[col_name]
            rpie_sum += key[col_name]
          end
        end
      end
    end
  end

  # Validate serie

  #RaiseFatal("Pie chart can only accept one serie of data.")
  #puts "Error Pie chart can only accept one serie of data." if ( series != 1 )
  splice_distance_ratio = splice_distance
  skew_height          = (radius * skew) / 100
  splice_ratio         = ((360 - splice_distance_ratio *i_values.count*1.0)  / pie_sum)
  splice_percent       = 100.0 / pie_sum
  r_splice_percent      = 100.0 / rpie_sum
  #Calculate all polygons
  angle    = 0
  c_dev = 5
  top_plots = []
  bot_plots = []
  atop_plots = []
  abot_plots = []
  i_values.each_with_index do |value,key|
    x_cent_pos = Math.cos((angle-c_dev+(value*splice_ratio+splice_distance_ratio)/2) * 3.1418 / 180 ) * splice_distance + x_pos
    y_cent_pos = Math.sin((angle-c_dev+(value*splice_ratio+splice_distance_ratio)/2) * 3.1418 / 180 ) * splice_distance + y_pos
    x_cent_pos2 = Math.cos((angle+c_dev+(value*splice_ratio+splice_distance_ratio)/2) * 3.1418 / 180 ) * splice_distance + x_pos
    y_cent_pos2 = Math.sin((angle+c_dev+(value*splice_ratio+splice_distance_ratio)/2) * 3.1418 / 180 ) * splice_distance + y_pos
    top_plots[key] = [(x_cent_pos).round]
    bot_plots[key] = [(x_cent_pos).round]
    top_plots[key] << (y_cent_pos).round
    bot_plots[key] << (y_cent_pos + splice_height).round
    atop_plots[key] = [x_cent_pos]
    abot_plots[key] = [x_cent_pos]
    atop_plots[key] << y_cent_pos
    abot_plots[key]   << y_cent_pos + splice_height
    # Process labels position & size
    caption = ""
    if ( !(draw_labels == Rchart::PIE_NOLABEL) )

      t_angle   = angle+(value*splice_ratio/2)
      if (draw_labels == Rchart::PIE_PERCENTAGE)
        caption  = ((r_values[key] * (10**decimals) * r_splice_percent)/(10**decimals)).round.to_s+"%"
      elsif (draw_labels == Rchart::PIE_LABELS)
        caption  = i_labels[key]
      elsif (draw_labels == Rchart::PIE_PERCENTAGE_LABEL)
        caption  = i_labels[key].to_s+"\r\n"+(((value * 10**decimals) * splice_percent)/(10**decimals)).round.to_s+"%"
      end
      position   = image_ftb_box(@font_size,0,@font_name,caption)
      text_width  =position[2]-position[0]
      text_height = ( position[1]).abs+(position[3]).abs

      tx = Math.cos((t_angle) * Math::PI / 180 ) * (radius + 10)+ x_pos

      if ( t_angle > 0 && t_angle < 180 )
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (skew_height + 10) + y_pos + splice_height + 4
      else
        ty = Math.sin((t_angle) * Math::PI / 180 ) * (skew_height + 4) + y_pos - (text_height/2)
      end
      if ( t_angle > 90 && t_angle < 270 )
        tx = tx - text_width
      end
      #c_text_color = $this->AllocateColor(@picture,70,70,70)
      c_text_color = allocate_color(@picture,70,70,70)
      image_ttf_text(@picture,@font_size,0,tx,ty,c_text_color,@font_name,caption)
    end

    # Process pie slices

    i_angle = angle
    i_angle = i_angle.to_f

    while(i_angle <=angle+value*splice_ratio)

      top_x = (Math.cos(i_angle * Math::PI / 180 )) * radius + x_pos
      top_y = (Math.sin(i_angle * Math::PI/ 180 )) * skew_height + y_pos

      top_plots[key] << (top_x).round
      bot_plots[key] <<(top_x).round
      top_plots[key] <<(top_y).round
      bot_plots[key] << (top_y + splice_height).round
      atop_plots[key] << top_x
      abot_plots[key] << top_x
      atop_plots[key] << top_y
      abot_plots[key] << top_y + splice_height
      i_angle=i_angle+0.5
    end
    top_plots[key] << (x_cent_pos2).round
    bot_plots[key] << (x_cent_pos2).round
    top_plots[key] << (y_cent_pos2).round
    bot_plots[key] << (y_cent_pos2 + splice_height).round
    atop_plots[key] << x_cent_pos2
    abot_plots[key] << x_cent_pos2
    atop_plots[key] << y_cent_pos2
    abot_plots[key] << y_cent_pos2 + splice_height
    angle = i_angle + splice_distance_ratio
  end

  # Draw Bottom polygons
  i_values.each_with_index do |val,key|
    c_graph_lo = allocate_color(@picture,@palette[key]["r"]-20,@palette[key]["g"]-20,@palette[key]["b"]-20)
    image_filled_polygon(@picture,bot_plots[key],@palette[key]["r"]-20,@palette[key]["g"]-20,@palette[key]["b"]-20)
    if (enhance_colors)
      en = -10
    else
      en = 0
    end
    j =0
    while(j<=(abot_plots[key].length)-4)
      draw_line(abot_plots[key][j],abot_plots[key][j+1],abot_plots[key][j+2],abot_plots[key][j+3],@palette[key]["r"]+en,@palette[key]["g"]+en,@palette[key]["b"]+en)
      j= j+2
    end
  end

  # Draw pie layers
  if ( enhance_colors )
    color_ratio = 30 / splice_height
  else
    color_ratio = 25 / splice_height
  end
  i = splice_height-1
  while(i>=1)
    i_values.each_with_index do |val,key|
      c_graph_lo = allocate_color(@picture,@palette[key]["r"]-10,@palette[key]["g"]-10,@palette[key]["b"]-10)
      plots =[]
      plot = 0
      top_plots[key].each_with_index do |value2,key2|
        plot = plot+1
        if ( plot % 2 == 1 )
          plots <<  value2
        else
          plots << value2+i
        end
      end
      image_filled_polygon(@picture,plots,@palette[key]["r"]-10,@palette[key]["g"]-10,@palette[key]["b"]-10)
      index       = (plots).count
      if (enhance_colors )
        color_factor = -20 + (splice_height - $i) * color_ratio
      else
        color_factor = 0
      end

      draw_antialias_pixel(plots[0],plots[1],@palette[key]["r"]+color_factor,@palette[key]["g"]+color_factor,@palette[key]["b"]+color_factor)
      draw_antialias_pixel(plots[2],plots[3],@palette[key]["r"]+color_factor,@palette[key]["g"]+color_factor,@palette[key]["b"]+color_factor)
      draw_antialias_pixel(plots[index-4],plots[index-3],@palette[key]["r"]+color_factor,@palette[key]["g"]+color_factor,@palette[key]["b"]+color_factor)
    end
    i = i-1
  end
  #Draw Top polygons
  key = i_values.length-1
  while(key>=0)
    c_graph_lo = allocate_color(@picture,@palette[key]["r"],@palette[key]["g"],@palette[key]["b"])
    image_filled_polygon(@picture,top_plots[key],@palette[key]["r"],@palette[key]["g"],@palette[key]["b"])

    if ( enhance_colors )
      en = 10
    else
      en = 0
    end
    j = 0

    while(j<=(atop_plots[key]).length-4)
      draw_line(atop_plots[key][j],atop_plots[key][j+1],atop_plots[key][j+2],atop_plots[key][j+3],@palette[key]["r"]+en,@palette[key]["g"]+en,@palette[key]["b"]+en)
      j = j+2
    end
    key = key -1
  end
end