1steenfa: Bot: Kosmetische Änderungen

2012-06-08T15:09:32Z

Bot: Kosmetische Änderungen

← Nächstältere Version		Version vom 8. Juni 2012, 15:09 Uhr
Zeile 1:		Zeile 1:
	#!/usr/bin/env python		# !/usr/bin/env python
	# <pre>		# <pre>
	'''Generate Metapost Bullshitbingo cards.		'''Generate Metapost Bullshitbingo cards.

T: aus :Bild:2011-02-12-bullshitbingo.tar

2011-02-13T12:31:44Z

aus Bild:2011-02-12-bullshitbingo.tar

Neue Seite

#!/usr/bin/env python
# <pre>
'''Generate Metapost Bullshitbingo cards.
Feed it with newline separated wordlist with utf-8 encoded words (sic!) and pipe the result to "bbcard.mp".
(To then create the cards, follow the documentation in "bbcard.mp").
The metapost code will generate a random sheet with 4 BullshitBingo-cards on it named bbcards.ps,
or if it receives a parameter "n" it generates the files bbcards.1 to bbcards.n
@author 4tmuelle, slightly modified by 7giese
'''

import subprocess
import sys
import os

try:
if os.geteuid() == 0:
print >>sys.stderr, 'You are root! Go away, N00B!'
sys.exit(1)
except OSError:
pass
print >>sys.stderr, 'Reading utf-8 encoded wordlist from stdin!'

bullshit_metapost = r'''
% bullshit bingo card
% prepared by patrick tj mcphee, december 2002 ptjm@interlog.com
% released to the public domain. have fun

% to run off a single card, give a command like
% mpost bbcard
% and the card will written to bbcard.ps

% to run off cards for several players, try
% mpost '\nocards := 7; input bbcard'
% and the cards will be written to bbcard.1, bbcard.2, .., bbcard.7

% to add additional phrases, duplicate one of the lines starting with
% i := i + 1; bs[i] :=
% and replace the phrase in quotes
% I keep them in alphabetical order to ease maintenance, but you don't
% have to. I suggest commenting out phrases which are not known in
% your community and adding the irritating ones which are.

input breakwidth;

defaultfont := "ptmr8r";

prologues := 2;

string bs[];
i := 0;

$$$BULLSHIT_WORDLIST$$$

bsmax := i;

radius := .5 cm;

offset := 1 cm;
boxwid := 1.9 cm;

% co-ordinates for the grid
pair bpos[], bpos[].ll, bpos[].ul, bpos[].ur, bpos[].lr;
for i = 0 upto 4:
for j = 0 upto 4:
bpos[i+j*5+1] := ((j+0.5)*boxwid, (i+0.5)*boxwid);
bpos[i+j*5+1].ll := (j*boxwid, i*boxwid);
bpos[i+j*5+1].ul := (j*boxwid, (i+1)*boxwid);
bpos[i+j*5+1].lr := ((j+1)*boxwid, i*boxwid);
bpos[i+j*5+1].ur := ((j+1)*boxwid, (i+1)*boxwid);
endfor;
endfor;

picture bbcard[];

% the grid itself
bbcard[0] := image(
z1 = (0, radius) = z2 - (0, 5boxwid - 2radius) =
z6 - (5boxwid, 0) = z8 - (radius, -radius);
z3 = z8 + (0, 5boxwid) = z4 - (5boxwid-2radius, 0);
x5 = x6; y5 = y2;
x7 = x4;
y7 = y8;

pickup pencircle xscaled 4pt yscaled 1pt rotated 30;

draw z1---z2..z3---z4..z5---z6..z7---z8..cycle;

fill ((unitsquare shifted -(.5,.5)) scaled boxwid) shifted bpos[13] withcolor .8 white;

pickup pencircle scaled 1pt;
for i = 2 upto 5:
draw bpos[i].ll--bpos[i+20].lr;
endfor;

for i = 10 step 5 until 25:
draw bpos[i].ul--bpos[i-4].ll;
endfor;
);

% handle > 1 card if nocards was set on the command-line
if known nocards:
for bsno = 1 upto nocards:
else:
if unknown bsno:
bsno := -1;
fi;
fi;

% select the strings for each card
% after we're done, we set the middle square to `Free Square'
% dups[] is used to keep track of already used values to eliminate
% duplicates within each grid (a playing card has four grids on it)

for bb = 1 upto 4:
string bstring[];
numeric dups[];

for i = 1 upto 25:
j := 1+floor(uniformdeviate bsmax);

forever:
exitif unknown dups[j];
j := 1+floor(uniformdeviate bsmax);
endfor;
dups[j] := i;
bstring[i] = bs[j];
endfor;

bstring[13] := "Free Square";

bbcard[bb] := image(
draw bbcard[0];
for i = 1 upto 25:
label(breaktowidth(bstring[i], 1.5cm, 11pt), bpos[i]);
endfor;
);
endfor;

beginfig(bsno);
picture p;
p := ("Bullshit Bingo" infont defaultfont scaled 2)
shifted ((offset, 3offset)+2.25*ulcorner bbcard[0]);

fill ((llcorner p)..(ulcorner p).. tension 2 .. (urcorner p)..
(lrcorner p) .. tension 2 .. cycle)
withcolor .5 white;
draw p withcolor white;

draw ("Advanced Playing Card" infont defaultfont scaled 1.2)
shifted ((lrcorner p) + (10pt, 6pt));
draw ("Stay awake!" infont defaultfont)
shifted ((lrcorner p) + (10pt, -14pt));
draw ("Watch for duplicates!" infont defaultfont)
shifted ((lrcorner p) + (10pt, -25pt));
draw ("Have fun!" infont defaultfont)
shifted ((lrcorner p) + (10pt, -36pt));

draw bbcard[1] shifted (offset, offset);
draw bbcard[2] shifted ((1.25offset, offset)+lrcorner bbcard[0]);
draw bbcard[3] shifted ((1.25offset, 2offset)+urcorner bbcard[0]);
draw bbcard[4] shifted ((offset, 2offset)+ulcorner bbcard[0]);
endfig;

if known nocards:
endfor;
fi;

end;
'''

wordlist = []
for word in sys.stdin.readlines():
wordlist.append(word.decode('utf-8').strip())

bullshitwordlist = '\n'.join(['''i := i + 1; bs[i] := "%s";''' % word for word in wordlist])

print >>sys.stderr, 'Writing Metapost file to bbcard.mp!'
file('bbcard.mp', 'w').write(
bullshit_metapost.replace('$$$BULLSHIT_WORDLIST$$$', bullshitwordlist).encode('latin1'))

if len(sys.argv) > 1:
number_of_cards = int(sys.argv[1])
cmd = ['mpost', r'\nocards := %s; input bbcard' % number_of_cards]
else:
cmd = ['mpost', 'bbcard.mp']

print >>sys.stderr, 'Trying to run %s!' % ' '.join(cmd)
subprocess.check_call(cmd)
#</pre>

BullshitBingo/Generator.py - Versionsgeschichte

1steenfa: Bot: Kosmetische Änderungen

T: aus :Bild:2011-02-12-bullshitbingo.tar