Raster bars: Difference between revisions

=={{header|Ada}}==

{{libheader|SDLAda}}

 

with SDL.Video.Windows.Makers;

Window.Finalize;

SDL.Finalise;

 

=={{header|Go}}==

</pre>

 

 

import (

log.Fatal(err2)

}

 

 

=={{header|Julia}}==

 

const can = GtkCanvas()

end

end

 

=={{header|Nim}}==

{{trans|Julia}}

{{libheader|gintro}}

 

 

let app = newApplication(Application, "Rosetta.rasterbars")

discard app.connect("activate", activate)

 

=={{header|Phix}}==

Some grey bars that vaguely shimmer as they march up the screen... (did not turn out quite as well as hoped)

 

=={{header|Raku}}==

* Press Q to exit.

 

Int :b(:$bar-height) is copy = 60; #= Height of the individual "Raster bars", minimum 32 (pixels)

Int :d(:$dir) is copy = -1; #= Scroll direction: -1 is "up" 1 is "down"

}

$fps

 

Screenshot still of typical run: [https://github.com/thundergnat/rc/blob/master/img/Raster-bars-Perl6.png (offsite .png image)]

 

(Small) Moving gif of swaying bars: [https://github.com/thundergnat/rc/blob/master/img/Raster-bars-swaying-Raku.gif (offsite .gif image)]

 

=={{header|Wren}}==

 

As DOME has no facility to create an animated .gif file, the moving image is displayed but not saved.

import "graphics" for Canvas, Color

 

}