acta_de_apertura_benign.ps

%!PS-Adobe-3.0
%%Creator: Ignacio E. Losiggio
%%CreationDate: Wed Sep 27 20:39:00 2017
%%Pages: 1
%%DocumentData: Clean7Bit
%%LanguageLevel: 2
%%DocumentMedia: A4 595 842 0 () ()
%%BoundingBox: 0 0 595 842
%%EndComments

% collection key getbehind (collection key get) collection
/getbehind {
  1 index 3 1 roll get exch
} bind def

/arraymap {
  [ 3 1 roll forall ]
} bind def

%robado de https://en.wikibooks.org/wiki/PostScript_FAQ#How_to_concatenate_strings.3F
/concatstringarray  %  [(a) (b) ... (z)] --> (ab...z)  
{ 0 1 index { length add } forall string     
  0 3 2 roll      
  { 3 copy putinterval
    length add 
  }
  forall pop  
} bind def

% Sacar la fecha actual
/ahoramesmo {
  (%Calendar%) /IODevice resourcestatus
  3 1 roll pop pop
  {
    (%Calendar%) currentdevparams
    dup /DateTime known
    { /DateTime get }
    { [ exch 
        /Day getbehind (/) exch /Month getbehind (/) exch /Year getbehind
        ( ) exch
        /Hour getbehind (:) exch /Minute getbehind (:) exch /Second get
      ] { 128 string cvs } arraymap concatstringarray } ifelse
  }
  { (Not available) } ifelse
} def

% Imprimo algo
/fontsize 48 def

/ypos 780 def
/newline {
  40 ypos moveto
  /ypos ypos fontsize sub def
} def

/Courier findfont fontsize scalefont setfont
newline (Acta de apertura) show
/fontsize 24 def
/Courier findfont fontsize scalefont setfont
newline (Fecha de apertura: ) show ahoramesmo show
newline (  Maquina de voto: Impresora) show
newline (            Lugar: ekoparty2017) show
showpage