Greyscale bars/Display: Difference between revisions

Content added Content deleted
Line 458: Line 458:
"RosettaGreys.Deposit; StdCmds.Open"
"RosettaGreys.Deposit; StdCmds.Open"
</lang>
</lang>
=={{header|Easyprog.online}}==


<lang easyprog.online>n = 8
for row range 4
sz# = 100 / n
for i range n
c# = i / (n - 1)
if row mod 2 = 1
c# = 1 - c#
.
color_red c#
color_green c#
color_blue c#
move sz# * i row * 25
rect sz# + 1 25
.
n = n * 2
.</lang>


=={{header|Euler Math Toolbox}}==
=={{header|Euler Math Toolbox}}==