Colour bars/Display: Difference between revisions
Content added Content deleted
(Added Befunge example) |
m (Added the Sidef language) |
||
Line 894: | Line 894: | ||
contents=new ColorBars() |
contents=new ColorBars() |
||
}</lang> |
}</lang> |
||
=={{header|Sidef}}== |
|||
{{trans|Perl}} |
|||
<lang ruby>require 'GD'; |
|||
var colors = Hash.new( |
|||
white => [255, 255, 255], |
|||
red => [255, 0, 0], |
|||
green => [0, 255, 0], |
|||
blue => [0, 0, 255], |
|||
magenta => [255, 0, 255], |
|||
yellow => [255, 255, 0], |
|||
cyan => [0, 255, 255], |
|||
black => [0, 0, 0], |
|||
); |
|||
var barwidth = 160/8; |
|||
var image = %s'GD::Image'.new(160, 100); |
|||
var start = 0; |
|||
colors.values.each { |rgb| |
|||
var paintcolor = image.colorAllocate(rgb...); |
|||
image.filledRectangle(start * barwidth, 0, start*barwidth + barwidth - 1, 99, paintcolor); |
|||
start++; |
|||
}; |
|||
%f'colorbars.png'.open('>:raw').print(image.png);</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |