Colour bars/Display: Difference between revisions

Content added Content deleted
No edit summary
Line 486: Line 486:
EndIf</lang>
EndIf</lang>



=={{header|R}}==
<lang R>
pal <- c("black", "red", "green", "blue", "magenta", "cyan", "yellow", "white")
par(mar = rep(0, 4)) # set margins to zero so image will fill display
image(matrix(1:8), col = pal, axes = FALSE)
</lang>


=={{header|Run BASIC}}==
=={{header|Run BASIC}}==