Autor: Kiko

Codi utilitzat:

/* Generador de Poesia
 
 Aquest programa crea una estructura que ha de ser completada
 per els humans que col·laborin en la creació literària. És una 
 mescla de col·laboracions entre algoritmes, aleatorietat i humans.
 Aquesta versió juga amb l'escriptura en paral·lel dels versos per remesclar-los després.
 */


// Variables del projecte (es poden canviar)
int NombreEstrofes = int(random(1, 5)); // Escull a l'atzar un nombre d'estrofes
int NumeroVersos = int(random(2, 5)); // Escull a l'atzar un número de versos per estrofa
String ParaulesClau[] = {"axioma", "bri", "inhospit", "entranyes", "evaporar", "buidor", "argolles", "frisança"}; // Recomanat fer un mínim de 3 paraules clau
String Noms[] = {"Oncle de Banyoles", "Laia", "Clara", "Quico", "Queral"}; //podeu afegir o treure persones sempre entre cometes i separats per comes.
String Escriptor1 = ""; //creem una variable que serà l'autor d'un dels versos en paral·lel
String Escriptor2 = ""; //creem una variable que serà l'autor de l'altre vers en paral·lel
String Revisor = ""; // creeem una variable que serà el mesclador del versos anteriors
String Accio[] = {"basat en", "que contingui", "antagoninc a"};//els escriptors hauran d'utilitzar les paraules clau amb algun d'aquests condicionants.
String TextResultant  = ""; // creem una variable que anirà recollint tot el text del procés. Començem en blanc. 
String NomDocument = "";

// Configuració per una execució del programa

void setup() { // configurem l'entorn on farem el poema obrim '{' i seguim fins a tancar-les '}' 
  NouFullEnBlanc("20X20");
  NouBorrador("indiferent");
  Titol ();  //funció que fa escriure el títol
  EscriurePoema(); // Funció que fa escriure el poema als autors
  Signar(); // Funció que fa signar
  Resultat(); // Funció que guarda el document en un arxiu txt.
}

// Bucle principal i funcions a seguir

void NouFullEnBlanc(String formatDeFull) {
  // un humà agafa un full que correspongui al valor que s'ha escrit al cridar la funció

  TextResultant = TextResultant + "Aquest document s'ha de treballar en un full " + formatDeFull + "\n" + "En/na " + Noms[int(random(Noms.length))] + " agafa el full i el col·loca en un lloc on totes hi puguin participar i s'encarrega d'anar-lo movent segons les necessitats. \n";

  // "\n" és un salt de línea;
}

void NouBorrador(String formatDeFull) {
  // un humà agafa un full per fer servir de borrador, que correspongui al valor que s'ha escrit al cridar la funció
  TextResultant = TextResultant + "En/na " + Noms[int(random(Noms.length))] + " ha d'agafar tres fulls borrador de format " + formatDeFull + " i s'encarrega de moure'ls entre els/les participants en cas de necessitar-lo \n";
}

void Titol() {
  // es defineix el títol del poema i es demana que algú ho escrigui en el full en blanc.
  NomDocument = "'Poema del "+ day() + " del " + month() + " de " + year() + " sobre " + ParaulesClau[int(random(ParaulesClau.length))] + " entre d'altres coses' ";

  TextResultant = TextResultant + "En/na " + Noms[int(random(Noms.length))] + ", amb un rotulador o color diferent, escriu el títol al full en blanc: " + NomDocument + "\n \n";
}

void EscriurePoema() {
  // S'escriu el poema vers a vers per torns dels participants i revisat per un altre participant.
  TextResultant = TextResultant + "A partir d'ara es fa servir un bolígraf o llapis regular. \n";
  TextResultant = TextResultant + "S'escriurà un poema amb " + NombreEstrofes + " estrofes de " + NumeroVersos + " versos cada estrofa. \nDos participants escriuran un vers simultàniament i després un tercer participant els mesclarà per crear-ne un de nou.\n";
  for (int estrofa = 0; estrofa < NombreEstrofes; estrofa ++) { // Mentres que hi hagi estrofes pendents, es fa començar una estrofa.
    TextResultant = TextResultant + "\n Començem una estrofa nova. \n";
    for (int vers = 0; vers < NumeroVersos; vers ++) { // Mentres que hi hagi estrofes pendents, es fa començar una estrofa.
       Escriptor1 = Noms[int(random(Noms.length))];//s'assigna un participant com a Escriptor1
       Escriptor2 = Noms[int(random(Noms.length))];//s'assigna un participant com a Escriptor2
       Revisor = Noms[int(random(Noms.length))];//s'assigna un participant com a Revisor
          while (Escriptor1 == Revisor || Escriptor1 == Escriptor2 || Escriptor2 == Revisor){ //ens assegurem que els escriptors i revisor són participants diferents.
            Escriptor1 = Noms[int(random(Noms.length))];//en cas de coincidir, s'assigna un nou participant
            Escriptor2 = Noms[int(random(Noms.length))];//en cas de coincidir, s'assigna un nou participant
            Revisor = Noms[int(random(Noms.length))];//en cas de coincidir, s'assigna un nou participant
          }
      if (vers < NumeroVersos-1) {
        TextResultant = TextResultant + "En/na " + Escriptor1 + " escriu al full de borrador1 un vers " +Accio[int(random(Accio.length))] + " la paraula clau " + ParaulesClau[int(random(ParaulesClau.length))] + "\n";
        TextResultant = TextResultant + "En/na " + Escriptor2 + " escriu al full de borrador2 un vers " +Accio[int(random(Accio.length))] + " la paraula clau " + ParaulesClau[int(random(ParaulesClau.length))] + "\n";
        TextResultant = TextResultant + "En/na " + Revisor + " remescla els dos versos creats en un de sol en el full borrador3, sense passar-lo a net. \n";
      } else {
        TextResultant = TextResultant + "En/na " + Escriptor1 + " escriu al borrador1 l'últim vers de l'estrofa, " +Accio[int(random(Accio.length))] + " la paraula clau " + ParaulesClau[int(random(ParaulesClau.length))] + "\n";
        TextResultant = TextResultant + "En/na " + Escriptor2 + " escriu al borrador2 l'últim vers de l'estrofa, " +Accio[int(random(Accio.length))] + " la paraula clau " + ParaulesClau[int(random(ParaulesClau.length))] + "\n";
        TextResultant = TextResultant + "En/na " + Revisor + " remescla els dos versos creats en un de sol en el full borrador3, sense passar-lo a net. \n"; 
        TextResultant = TextResultant + "Entre totes es decideix passar en net totes les parts de l'estrofa, revisant i modificant amb total llibertat.\nFixeu-vos que en realitat, s'han obtingut tres poemes\n";
      }
    }
  }
  TextResultant = TextResultant + "\n Deixem un espai en blanc. \n";
}
void Signar() {
  // es demana als creadors del poema que el signin.
  for (int i = 0; i < Noms.length; i ++) { // Mentres que hi hagi autors a la llista de noms
    TextResultant = TextResultant + "En/na " + Noms[i] + " signa el poema en el document final. \n";
  }
  TextResultant = TextResultant + "\n En/na "+Noms[int(random(Noms.length))] + " declama el poema 1 en veu alta.";
  TextResultant = TextResultant + "\n En/na "+Noms[int(random(Noms.length))] + " declama el poema 2 en veu alta.";
  TextResultant = TextResultant + "\n En/na "+Noms[int(random(Noms.length))] + " declama el poema 3 en veu alta.";
}
void Resultat() {
  String TextResultant2[] = {TextResultant};
  saveStrings(NomDocument + millis() + ".txt", TextResultant2);
  println(TextResultant);
  exit();
}

Instruccions generades:

Poemes resultants:

M'abraço al perímetre, 
pell i argolla, 
principi i final 
devorant-se l'origen. 
Subruixen quantitats
industrials d'espores 
pels narius 
un infinit de microvides
arran de terra 
digereix amb avidesa 
fang i argila, 
el magma sòlid de l'espera
 sense desig, 
menjo la quietud.

Un bri ebri al bric de vi
Em submergeixo en la
immensitat dels budells
El dubte sura a cada
partícula
Desconèixe'm del temps
que em perd i m'evapora
el secret inútil 
de les teves arrels
s'arrauleix sincer 
en el silenci frisant.

M'abraço a un bri de pell,
devorant el vi de l'origen, 
el perímetre ebri.
Em submergeixo allà on
subruixen espores 
de la immensitat.
L'infinit sura 
arran de cada partícula
El fang del temps és
pèrdua àvida, 
l'argila digerida s'evapora.
El secret sòlid de les teves
arrels 
s'arrauleix sense desig 
en la quietud sincera.