Language PostScript
(printable PS - also GhostScript possible)
Date: | 04/25/06 |
Author: | Volker Beyler |
URL: | http://www.beyler.name |
Comments: | 3 |
Info: | http://en.wikipedia.org/wiki/PostScript |
Score: | ![]() |
%! % 99 Bottles Of Beer On The Wall... % prints out the complete song on any postscript-able device, % as well as in GhostScript etc. /Helvetica findfont % choose a font, I prefer Helvetica 6 scalefont % scale font to 6 pt, one page is enough... setfont /str 3 string def /bottles 99 def 99 -1 0 { 99 bottles 8 mul 20 add moveto bottles 0 gt { bottles str cvs show bottles 1 gt {( bottles of beer on the wall, ) show} {( bottle of beer on the wall, ) show} ifelse bottles str cvs show bottles 1 gt {( bottles of beer. ) show} {( bottle of beer. ) show} ifelse (Take one down and pass it around, ) show /bottles bottles 1 sub def } { (No more bottles of beer on the wall, no more bottles of beer. ) show (Go to the store and buy some more, ) show /bottles bottles 99 add def % "/bottles 99 def" would be sufficient, % but I wanted to "buy" some beer... } ifelse bottles 0 gt { bottles str cvs show bottles 1 gt {( bottles of beer on the wall.) show} {( bottle of beer on the wall.) show} ifelse } { (no more bottles of beer on the wall.) show } ifelse } for showpage
Download Source | Write Comment
Alternative Versions
Version | Author | Date | Comments | Rate |
---|---|---|---|---|
Postscript with graphics | Mark Conger | 04/02/12 | 0 | ![]() ![]() |
demonstrates more language features | Tadziu Hoffmann | 08/30/08 | 0 | ![]() ![]() |
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments
this is correct. As A4 sheets are common in my place, I used those.
If you exchange the line
99 bottles 8 mul 20 add moveto
with the line
99 bottles 7 mul 20 add moveto
it works fine on letter format, too.
Thanks for the feedback!