Greyscale bars/Display: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 1,739:
pass
</syntaxhighlight>
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ $ "turtleduck.qky" loadfile ] now!
[ 1280 1 ] is width ( --> s )
[ 720 1 ] is height
[ dip [ 1 - dup ]
255 * swap /
1 swap
3 of dup colour fill
[ 2 times
[ width 2over v/ walk
-1 4 turn
height 4 1 v/ walk
-1 4 turn ]
2drop ] ] is bar ( n n --> )
[ 1 over times
[ over i bar
width 2over v/ fly ]
2drop ] is line ( n --> )
[ turtle
width 2 1 v/ fly
1 4 turn
height 2 1 v/ fly
1 2 turn
height fly
-1 4 turn
' [ 8 16 32 64 ]
2 times
[ behead line
1 4 turn
height -2 1 v/ fly
1 4 turn
behead line
1 2 turn ]
drop ] is greyscale-bars ( --> )
greyscale-bars</syntaxhighlight>
{{out}}
[[File:Quackery greyscale.png|center|thumb]]
=={{header|R}}==
| |||