Myhar: soliloqui e pippe mentali

Saggezza popolare per veronesi all'estero (I).

2012-01-23T16:50:00.002+01:00

If my granny got wheels he would be a barrow.

Storie della Transpolesana

2011-11-25T08:26:00.001+01:00

Ho visto una Audi rispettare le regole del codice della strada, ho visto una Audi rispettare gli altri senza arroganza, ho visto una Audi che non è un pericolo su ruote ed è una cosa così rara che merita un post..
Era era una Audi bianca con la targa che finiva con JB, merita un saluto e un "buon viaggio" perché è guidata da una persona normale.

IL2 Complete Edition

2011-11-21T16:43:00.000+01:00

Si comincia male... per giocarci con Windows 7 ho dovuto istallarlo su un sistema con Windows XP e poi copiare la cartella.

Il gioco è sempre molto bello e molto difficile. Inizio guidando il mio fidato IL2 ed ecco il mio primo atterraggio integro (a parte i fori dei proiettili). In futuro ci saranno altre notizie in merito alla mia carriera di pilota.

[GT 5] Endurance I: Grand Valley

2011-11-16T20:53:00.000+01:00

Finalmente alla Polyphony hanno scoperto come salvare durante le endurance e quindi mi sono cimentato in questa ultima parte del gioco.

L'avversario più forte ha una auto da circa 350 cavalli, si tratta di vetture sportive non particolarmente spinte.
Ho deciso di rendermi la vita difficile, ma non impossibile, usando una auto agile che mi aveva sempre dato difficoltà nel tenere bada la sua esuberanza:

Elise RM 96
120 CV, 695kg, 444 pp (nessuna modifica)
La preparazione della vettura è fatta per consentire una ottima percorrenza di curva dove guadagno molto sugli avversari, la bassa potenza non mi avrebbe comunque permesso di raggiungere alte velocità sul rettilineo ed ho deciso di puntare quindi sulla ripresa.
Questi i parametri utilizzati:

aerodinamica 15 40
zavorra 50kg -50 (spostata sulla anteriore)
no modifiche al motore (attenzione che si tratta della Elise 96 Modificata Race)
cambio con velocità max 230km/h (in questo caso ho sbagliato, la quinta marcia è un mulo spompato, in fondo al rettilineo arrivo a malapena a 208km/h, meglio impostare 220km/h per avere marce più corte)
frizione disco doppio
volano semiprofessionale
LSD personalizzabile 10/10/10 (la chiave di volta, fino ad ora non ero mai riuscito a capire come guidare le auto PP o le CP, sempre sovrasterzo al limite del testacoda perché io, abituato a guidare AA e AP, non risco a dosare il gas in uscita dalle curve; con questa impostazione si perdono cavalli ma si ottiene un docile gattino anche nelle curce più impegnative; ovviamente i più spavaldi potranno usare valori più alti irrigidendo e innervosendo la vettura)
sospensioni personalizzabili mantenute molto morbide per evitare scherzi altezza 0 0
3,5 5.34 4
4 4
3 3campanatura 0,8 0,6convergenza 0.00 0.20
pneumatici racing Ant morbida Post media (ripensandoci di potrebbe fare la gara con gli pneumatici sportivi)

Note: la prima parte della gara è dura, le auto avversarie sono più veloci e si accumulano rapidamente una trentina di secondi di distacco, dal ventesimo giro si cominciano ad inanellare tempi attorno a 2'10" e in questo modo si guadagnano almeno 3 secondi a giro sugli avversari (miglior tempo 2'09", peggiore 2'14"). Con due cambi gomme (non per usura ma proprio per fare dei salvataggi) sono riuscito a doppiare tutti gli avversari poco prima della fine della gara.

[PS3] Terminato Mass Effect 2

2011-11-04T11:01:00.000+01:00

Ottimo prodotto di intrattenimento digitale. Difficoltà molto ben pesata, boss finale onesto e molte quest secondarie da affrontare un po' come si vuole. La storia si dipana bene ed in maniera molto lineare (pochi colpi di scena), per il giocatore casual, riprendere dopo qualche giorno non è un problema.
Durata di circa 40 ore che al giorno d'oggi è quasi un record.
Per gli interessati alle statistiche e ai trofei qua ci sono i miei.

[NDS] Terminato Might and Magic Clash of Heroes.

2011-10-15T14:44:00.000+02:00

Ottimo gioco per NDS. Molto ripetitivo data la natura del gioco (a puzzle), però la sfida/difficoltà crescente e le vicende parallele della trama fanno sì che si arrivi volentieri fino in fondo. Il boss finale è difficile ma non impossibile, prova ne è che dopo cinque o sei di tentativi sono riuscito a batterlo.Rigiocabilità nulla: non è un gioco di ruolo nel rifare il gioco cambierebbe poco o nulla.Consigliato se il prezzo è sotto i 20€.

[PC] Terminato Assassin Creed

2011-10-01T14:40:00.000+02:00

Finale orrendo, controlli da tastiera e mouse che fanno impazzire e la cpu che non riesce a gestire il personaggio, il quale invece di difendersi e contrattaccare si arrampica e salta... Il gioco che già rasentava la sufficienza, grazie a queste carenze diventa una vera ciofeca. Sicuramente il mio dual core non ha i requisiti per fare girare i giochi moderni (MafiaII richiede come minimo un quad core) ma mi aspetto un minimo di scalabilità e di intelligenza artificiale adattativa (nel senso che se sono incapace, adatti i nemici alla mia incapacità). Quando mi riprenderò dalla delusione proverò Assassin Creed II (che ho già preso per PS3) nella speranza che la versione console non abbia i problemi mostrati su pc.

GT5 Vincere la NASCAR in B-Spec

2011-09-24T10:33:00.000+02:00

Finalmente ce l'ha fatta...

I settaggi della vettura si possono trovare qua:
http://www.gamefaqs.com/boards/941103-gran-turismo-5/57796526

[PS3] Terminato Valkyria Chronicles

2011-09-17T09:28:00.000+02:00

Questo intrattenimento digitale della Sega è uno dei prodotti che mi ha divertito di più negli ultimi anni. Unisce alcune modalità di gioco differenti ma rimane soprattutto un tattico a turni son una forte componente fps.
Lo stile grafico è di tipo "cartone animato" ma con colori acquerellati e il mondo tridimensionale è molto ben delineato.
La trama principale si svolge secondo la trama di un libro storico sul conflitto che sta alla base della storia. Però bisogna ricordarsi di tornare indietro a rivedere qualche pagina a mano a mano che si sbloccano alcune sotto trame (io per una svista non lo ho fatto ed ho recuperato queste parti alla fine perdendomi però alcune sorprese perché ormai si erano svelate).
Grande gioco con una buona rigiocabilità e alcune DLC che ne allungano la vita.

Terminato Heroes of Might and Magic V

2011-08-22T15:50:00.023+02:00

In realtà lo ho terminato più di due anni fa, ma mi sono dimenticato di pubblicare il post.
Come forma di intrattenimento digitale la serie Heroes of Might and Magic (HoMaM) è tra le mie preferite per vari aspetti che anche in questa puntata della si sono confermati (almeno in parte).
Si tratta di uno strategico-tattico a turni, la grafica è passata dalla classica isometrica al 3d.
Tra gli aspetti positivi c'è il miglioramento della gestione delle risorse e quindi della parte strategica (quella che tra le due mi interessa di meno) e una più dinamica gestione dello scontro tattico con l'interessante utilizzo anche della visualizzazione 3d.
Tra i difetti posso ricordare la implementazione di una sorta di "evento a sorpresa" praticamente in ogni mappa della lunga storia; questo evento fa sì che, di solito verso la fine della fatica mentre ci si prepara allo scontro finale, un fortissimo drappello di nemici si materializzi davanti al villaggio più indifeso, vanificando così la partita.
Altro difetto sono i filmati, poco interessanti e spesso con audio impreciso, la trama ne risulta penalizzata.
Malgrado ciò il divertimento è assicurato. Interessante il tool di costruzione della mappe.
Da rigiocare.

[Wii] Terminato NyxQuest: Kindred Spirit

2011-07-13T19:46:00.001+02:00

Il gioco sembra semplice e banale ma in realtà presenta qualche insidia che lo rende una sfida interessante. Si può fare anche in modalità cooperativa, anzi è proprio questa modalità ad avermelo fatto amare: è stato il primo gioco iniziato e terminato assieme a mia figlia, una esperienza molto bella che ci ha unito in modo particolare. Le difficoltà da superare diventano più semplici in modalità cooperativa, ma necessita una certa coordinazione tra i giocatori che si supportano per superare i vari livelli. La durata è sufficientemente lunga da divertire senza stressare, per il prezzo a cui è venduto è un buon affare se ci si vuole svagare senza doversi impegnare troppo.

Storia di vita vissuta con una morale.

2011-03-22T15:36:00.001+01:00

Domenica scorsa passeggiavo per il parco del mio paese in compagnia di un amico e il sole scaldava i nostri visi ma non i nostri cuori; così i discorsi lentamente scivolavano verso l'amara considerazione che ormai, alla nostra età, è difficile incontrare una donna perché abbiamo sempre meno occasioni "pubbliche", i fasti della gioventù ormai sono passati e il tempo ci ha rinchiuso nei nostri gusci sicuri; da quanto ormai non andiamo in discoteca? vent'anni? forse venticinque? e così via discorrendo... Avanzando in queste considerazioni sulla nostra vita sociale schizofrenica: durante la settimana scoppiettante e praticamente nulla nei sabato sera, giungemmo davanti al campo di tiro con l'arco dove solitamente mi alleno. Notai subito una vettura parcheggiata giusto davanti al cancello del campo ed iniziai indispettito a commentare la cosa mentre il mio amico notò la presenza di "una giovane attraverso il ponte".
Piccola dissertazione sulla cascata: si tratta di uno stramazzo con una passerella davanti, quindi una persona in piedi sulla passerella, da lontano sembra che emerga dalle acque sotto un ponte, da qui la visione del mio amico; una foto dello stramazzo preso dalla passerella si può vedere qua, e qua la mappa del luogo.
Mi avvicino alla giovane e, soprassedendo al fatto che teneva un mano un enorme sasso, le chiedo se è sua la vettura parcheggiata davanti al "mio" portone. Lei lancia il sassone in acqua e poi si avvicina a me confermando la proprietà dell'auto; in quel momento oltre a notare la avvenenza della ragazza, noto che nello stagno sotto la passerella galleggia una enorme nutria in avanzato stato di decomposizione. Imperterrito le spiego che dovrebbe spostare la vettura, ma nel frattempo si fa largo nella mia mente l'immagine di questa tipa che sta evidentemente prendendo a sassate un animale morto. Alla fine realizzo che il "problema vettura in mezzo alle balle" non è proprio prioritario, e al contrario mi sembra molto più divertente aiutare la tizia nel suo tentativo si martoriare la bestiola. Il mio amico ha un sussulto di lucidità in quella situazione assurda e si presenta, a quel punto mi presento pure io e lei mi dice il suo nome. Due secondi dopo lei mi dice che si è dimenticata il mio nome (e te pareva), glielo ripeto ma non le confesso che ho già dimenticato il suo (la nutria assorbiva i miei pensieri).
Terminate le presentazioni di rito la ragazza mi chiarisce che vuole semplicemente liberare il cadavere dalle alghe e lasciare che la corrente la porti via, dentro di me ammiro il senso di ordine poetico della protagonista di questa storia e quindi mi ingegno nel recupero un lungo bastone nel campo di tiro con l'arco. Alla fine riusciamo ad allontanare la nutria che seguiamo con lo sguardo mentre naviga esanime trascinata dalla corrente. Scambiamo ancora qualche frase di circostanza e scopro che la ragazza possiede un arco, quale coincidenza! La invito calorosamente a venirmi a trovare il prossimo sabato sul campo per scoccare qualche freccia assieme (chissà se verrà? a me piacerebbe...) e per invogliarla le prometto che le farò trovare altri animali morti da prendere a sassate.
Lei monta in auto e schizza via alzando nuvolette di polvere, io la seguo con lo sguardo finché non scompare in lontananza.

La morale: ormai le mie uniche occasioni per parlare con una bella ragazza sono ridotte a riuscire ad incontrare delle tipe che stanno prendendo a sassate dei cadaveri sotto un ponte.

ISPF EDIT change incondizionato posizionale.

2011-02-10T09:31:00.000+01:00

Si tratta di una banalità ma me lo dimentico sempre ed ogni volta devo affrontare la lettura dell'help (che non è propio comodissimo da sfogliare). Ecco quindi alcuni esempi del comando a memoria futura:
c all p'^' ' ' 18 80
cambia qualunque carattere alfanumerico con spazio tra colonna 18 e 80
c p'=======' "SRCHFOR '" 1 all
cambia una stringa di 7 caratteri qualsiasi che comincia a colonna 1 con una altra stringa (attenzione: dato che la seconda stringa è più lunga che possono essere "compressi" gli spazi dopo)
Dall'help ISPF:
The special characters that can be used in a "from" picture string are:
      = - any character                 . - invalid characters
      § - alphabetic characters         - - non-numeric characters
      £ - numeric characters            < - lower case alphabetics
      $ - special characters            > - upper case alphabetics
      ^ - non-blank characters

GT5: gamepaly delirante

2011-01-24T09:40:00.000+01:00

Ieri ho provato la mia prima endurance su questo gioco molto belllo sotto tutti gli aspetti fatto salvo che per le scelte di gameplay evidentemente orientate ai bimbimincha.
La prima gara di endurance si dipana su 60 giri di un circuito da circa 2'10" a giro (ovviamente dipende alla vettura scelta) ed io lo ho affrontato con successo usando la Honda MUGEN MOTUL CIVIC Si Race Car '87 vinta da qualche altra parte precedentemente. Dopo un paio di ore abbondanti e due cambi gomme ho vinto la gara ed ho guadagnato la "bellezza" di 130mila crediti ed una auto Honda (HSC '03) per una totale di circa 900mila crediti. Cosa c'è che non va allora?
In primo luogo che questa endurance non ha inspiegabilmente limiti alle auto che si possono usare quindi avrei potuto usare una auto di formula uno (si noti le11 vetture avversarie sono delle "ordinarie stradali" attorno ai 240cv e che io ho vinto agevolmente con una auto da 160cv).
Un secondo punto è legato alla folle scelta di non poter usare Bob nelle endurance Aspec, questo mi fa supporre che le due gare da 24 ore dovrò farmele da solo (cosa che nella reltà non avviene) quindi le endurance stanno rapidamente per prendere poco appeal.
Terzo punto a sfavore è che il reward economico è minore che non fare un evento stagionale per il quale basta una mezz'ora, mentre il reward in termini di esperienza è quasi nullo.
Quindi?
La conclusione è che il gameplay è stato volutamente tarato per un pubblico al quale non appartengo più quindi come per il brand Final Fantasy è giunto il momento di lasciare la serie e dedicarsi a qualche intrattenimento digitale più maturo.

[Ubuntu] ICQ not working

2011-01-05T13:29:00.000+01:00

preso da http://ubuntuforums.org/showthread.php?t=1635653 lo riporto qui per memoria futura dato che i forum spesso "affondano"

Originally Posted by vivedekananda

Re: Pidgin: ICQ not working

I managed to get it work. Go to modify accoount->advanced;
change server to login.icq.com port 5190;
uncheck all three checkboxes (ssl, cleint login,use proxy server).
Enconding is ISO-8859-1.

Hope this will work for you as well.

S.Cooper

2010-12-30T12:35:00.000+01:00

"Sebbene il nostro sia un universo deterministico, ogni individuo ha il pieno controllo delle sue scelte."

14 dicembre 2010

2010-12-15T11:20:00.000+01:00

Il Sole è appena scivolato sotto l'orizzonte e già la Luna ricorre Giove.
Ascolta... arriva la nebbia.

firma di prova

2010-12-03T16:53:00.002+01:00

[SQL] Update da ricordare nei giorni tristi

2010-11-24T12:03:00.000+01:00

-- fix LOCK
UPDATE myschema.mytable
SET myLOCK = ''
WHERE myPROG IN (
SELECT RS1.PROG FROM (
    SELECT A.myPROG AS PROG,
           SUM (
               CASE A.myAMBI
                    WHEN 'QA' THEN 100
                    WHEN 'DA' THEN 010
                    WHEN 'BA' THEN 001
                    ELSE 0
               END ) AS SOMMA
    FROM myschema.mytable A
    WHERE A.myAMBI IN ('BA','DA','QA')
    AND myLOCK <> ''
    GROUP BY A.myPROG
    ) AS RS1
WHERE RS1.SOMMA < 100
)
AND (myAMBI = 'DA' OR myAMBI = 'BA')

Dharma

2010-11-23T09:32:00.000+01:00

Pur sapendo come stanno le cose, fa bene offrire un velo di mistero che poi è bello poter scostare per godere della luce della conoscenza.

[PS3] Finito Bioshock 2

2010-11-18T18:45:00.000+01:00

Un altro capolavoro, quasi migliore del primo, giocato su PS3 con grande soddisfazione (giocato a difficoltà ridotta data la mia niubbaggine col controller).
Doppiaggio eccezionale, musiche bellissime, ottima ambientazione e grafica molto gradevole. Ovviamente nulla di nuovo dopo il primo bioshock ma alcuni aggiustamenti al gameplay me lo fanno preferire. La trama del primo era forse più lineare e chiara ma anche in questo caso è proprio la storia ed i suoi protagonisti a farla da padrone (ed è un FPS...).
Il finale mi ha commosso, e per uno sparatutto è proprio un qualcosa di eccezionale.
Ancora una volta l'asticella si è alzata, vediamo chi riesce a raggiungerla...

[PS3] Finito Gran Turismo 5 Prologue

2010-10-08T14:55:00.000+02:00

Ottimo gioco, ovviamente acerbo ma che lascia presagire quello che sarà tra qualche giorno il nuovo episodio del brand. Interessanti le modalità online ed alcune sfide verso la fine del gioco sono abbastanza difficili (ma non impossibili).

Auto usate nelle prove e che possono vincere (non tutte potrebbero essere disponibili la prima volta che si prova):
S-10 Chevrolet Corvette Z06 tuned
S-9 Ferrari F40
S-7 Mine's
S-5 Nissan GTR-05
S-4 Ferrari 509
S-3 Ford GT 06
S-2 Audi R8

[Giochi] Finito Neverwinter Nights

2010-09-19T14:00:00.025+02:00

Terminato per la ennesima volta e con l'ennesimo personaggio.

Il gioco è bello anche dopo tanto tempo, il gameplay forse comincia a risentire degli anni. La grafica è un po' datata ma gira su praticamente qualunque pc, il gioco è portabile sotto linux e questo è un altro pregio non da poco.

La storia è forse un po' esile ma questo gioco segnò uno spartiacque (nel bene e nel male) tra un modo di giocare più riflessivo e un modo più dinamico e alla fine quello che conta è il divertimento che un prodotto offre.

I personaggi sviluppati nel corso degli anni sono:

chierico: personaggio storico che porto con me dai tempi di D&D cartaceo;
bardo: trasformata in una spadaccina, molto divertente;
stregone: all'inizio difficile poi forse troppo facile da usare ed un po' ripetitivo;
ranger: giudizio non pervenuto...

Lavoro per ambosessi

2010-09-05T12:00:00.003+02:00

"I candidati ambosessi..."

Ma per trovare un lavoro devo per forza essere ambosesso o mi basta il mio?

Terminato ancora Portal

2010-08-22T14:06:00.000+02:00

La prima volta che lo ho giocato non ne ebbi una buona impressione. Ora (con gli "achievements") lo ho rigiocato e mi è proprio piaciuto. Qui i miei risultati (ci sto ancora lavorando).

Terminato ancora Half Life 2

2010-08-12T23:08:00.000+02:00

Ho iniziato e rigiocato ancora questo indiscusso capolavoro, perché ho scoperto che c'erano degli "achievements" da prendere sulla piattaforma steam. Me ne manca ancora qualcuno ma con calma ce la farò. Ecco il collegamento per vederli.

Estate

2010-08-04T11:12:00.001+02:00

Gli elfi non sudano.

Terminato Uncharted 2

2010-08-01T15:53:00.000+02:00

Accidenti... il giudizio è e deve essere negativo e bastava poco perché non fosse così. Vediamo i pro e i contro:

+ Leggermente più lungo del precedente, trama ben articolata, dialoghi ben doppiati, divertente.
+ Sparatorie più impegnative del precedente ma nel complesso meglio bilanciate.
+ Enigmi più radi ma leggermente più impegnativi (per quanto rimanga un gioco di azione).

- L'unica cosa negativa ma che distrugge il giudizio del gioco è il boss finale, inutilmente difficile, si ha la sensazione che tutto quello che era stato fatto precedentemente in tutto il gioco sia completamente inutile ai fini del finale. Siamo di fronte al classico boss difficile da far fuori anche dopo aver capito che non serve sparare a lui ma alle "bolle blu". A cosa serve affrontare tutte le difficoltà del gioco per poi arrivare lì ed essere "impreparati" ad un combattimento del genere? Dopo 5 tentativi ho mollato il gioco e non lo riproverò più (ovviamente chi ha tempo da perdere troverà divertimento a non finire nel rifare per un pomeriggio intero la stessa scena).

Stesso giudizio che formulai per Resident Evil 5, se non fosse per il finale inutilmente difficile il gioco sarebbe molto bello, così è diventato frustrante e brutto.

[PS3] Terminato Uncharted

2010-07-19T16:02:00.000+02:00

Molto molto bello!
Pro: immediato da capire, cinematografico con alcune scene degne di un bel film, trama semplice e lineare ma ben costruita per essere un gioco d'azione/sparatutto, salvataggi continui quindi in caso di game over si riparte da un minuto prima, enigmi semplici ma ben congegnati (con tanto di help ingame se ci si incanta), brillanti dialoghi in italiano, ri-giocabile per trovare i tesori nascosti.
Contro: forse un po' cortino,

Sono troppo avanti...

2010-07-19T13:19:00.000+02:00

Sei anni fa andavo con la mia ragazza in giro per le montagne della Svizzera e lei mi insegnò una disciplina salutare che si chiamava "nordic walking". Tornato in Italia ho provato a spiegare la bellezza e i benefici di questa tecnica e sono stato guardato dagli interlocutori come un pazzo. Ora ne parlano in televisione da qualche mese e sembra essere diventata la moda dell'estate; gli stessi che allora mi sdegnarono oggi magari sono diventati praticanti appassionati.

Bah! D'altro canto... è così...

Terminato King's Bounty the Lenged

2010-07-14T16:33:00.000+02:00

I pregi.

Molto bello, gdr strategico con combattimenti a turni; surreale la trama e i dialoghi, senza contare le mogli ed i figli (io ho sposato una rana trasformata in principessa a suon di baci).

La trama un po' lunga ed a volte si perde il filo. Ovviamente il gioco è basato su combattimenti a turni su mappa esagonale quindi abbastanza ripetitivo, le situazione che si presentano sono però interessanti. Vale l'acquisto. Gira anche su portatili non top della gamma. A differenza di HoMaM non ci sono città da gestire e nemici che compaiono all'improvviso dal nulla. Protezioni non invasive.

I difetti.

I dialoghi sono scritti con caratteri piccolissimi (nel seguito Armored Princess i caratteri sono più grandi). Gli ultimi due scontri sono contro avversari molto forti e se non si sono fatte proprio tutte le missioni non si riesce ad avere un "comando" sufficiente a reclutare una armata abbastanza grande da poterli superare (ammetto di aver barato in questo caso aumentandomi la caratteristica "comando" di un po'). Mancanza di un indicatore di direzione per le missioni, in particolare alcune devono essere "riconsegnate" molto indietro rispetto al punto dove le si risolve.

Rovereto2010

2010-06-02T07:48:00.000+02:00

Ai campionati europei di Rovereto, sabato scorso ho avuto la fortuna di vedere all'opera alcuni "big" dell'arceria mondiale. Ho ritagliato alcune foto per mettere in evidenza gli "stili" diversi di ancoraggio delle tre ragazze della nazionale italiana (una delle "ragazze", la più affascianante, ha la mia età :-) ). Mi ha colpito la posizione della mano sinistra della Valeeva: impugnatura alta, difficile ma molto redditizia; confrontata con la Tomasi si vede immediatamente la differenza di presa sulla grip: la sua mano "bassa" è una presa comune tra gli arcieri (pure io tiro così ma non arrivo neanche lontanamente alla sua bravura); terzo caso è la Lionetti che usa una posizione intermedia. Queste tre modalità di tenere l'impugnatura (tutte da manuale, cfr. Haywood - Passi verso il sucesso) mi hanno molto incuriosito e forse farò qualche prova. Molto bello il gomito destro e la presa della mano destra sulla corda della Valeeva che mi ricordano quanta strada devo ancora fare per migliorare il mo stile.

Prima uscita hunter field.

2010-05-22T20:33:00.005+02:00

Non ho mai fatto hunter & field e questa specialità è sempre rimasta nel mio immaginario come un passaggio obbligato nella mia maturazione arcieristica.
Dopo tre anni di tiro alla targa ero un po' titubante nel cimentarmi sulle difficoltà del tiro di campagna: distanze sconosciute e posizione di tiro non standard mi hanno sempre fatto desistere (fino ad ora); il fatto di tirare sul nostro campo a distanze fisse e contro un bersaglio sempre uguale mi aiuta ad essere ripetitivo e dato che sono abbastanza scarso questo è un ottimo esercizio dal quale non potrò mai affrancarmi.
Però la passione per queste targhe nere col centro giallo è stata troppo forte! Alla fine mi sono deciso e sono andato a Spormaggiore (Val di Non) dove gli Arcieri Val di Non e Sole (http://www.arcnonesole.it/) hanno approntato un bellissimo percorso (sede di un paio di gare di notevole rilevanza).
Tornare nella regione dove ho vissuto per dodici anni è sempre una emozione particolare: vi trovo un amore ed un rispetto per gli alberi, le foreste e la natura che nel Deserto Padano (ops... Pianura Padana) sono utopia. La fresca aria di montagna mi ha salutato all'arrivo e dopo aver pagato l'ingresso... (ebbene sì, il percorso è a pagamento, ma il servizio offerto vale la spesa) mi sono subito gettato nel campo di prova. Una volta regolato il mirino sulle varie distanze mi sono fatto un primo giro del percorso, che si compone di 24 piazzole tutte a distanze sconosciute (le piazzole sono segnate magnificamente, ma immagino che giustamente non ci siano i picchetti per non favorire nessuno in vista delle prossime gare). Nelle due foto ho immortalato la piazzola due dove ho tirato decentemente. Devo riconoscere che la mia paura di perdere frecce si è dimostrata infondata (quasi): pur non avendo ancora esperienza nello stimare le distanze le frecce sono sempre arrivate sul bersaglio (sulla parte nera del bersaglio e raramente sul giallo). Solo una freccia è andata perduta ma si è trattato di un momento si leggerezza da parte mia, infatti si trattava della prima piazzola in forte pendenza verso l'alto e oltre all'apnea ero infastidito dal sole negli occhi. Se mi fossi spostato di un paio di metri, ora la freccia sarebbe ancora con me, ma ho voluto fare lo spaccone...
Il percorso è segnato molto bene e i bersagli sono in ottime condizioni, le targhe erano praticamente nuove ed alcune erano immacolate. Consigliatissime delle scarpe da montagna perché il terreno fuori dal percorso è accidentato e quindi il recupero delle frecce a volte diventa laborioso per il sottobosco infido.
Insomma una giornata bellissima passata immerso nella natura, rinfrancato dalla mia prestazione (sufficiente) non vedo l'ora di tornarci a fare un altro giro.

Pubblicità deliranti: il climatizzatore.

2010-05-09T15:41:00.001+02:00

"Una tipa vestita come se stesse uscire a cena ha delle allucinazioni e vede dei mostriciattoli che camminano sul tavolino. Lei è felice e sorride."

Questo dovrebbe convincermi che quella marca è meglio di altre perché lisergica?

Grazie Eyjafjallajokull!

2010-04-19T09:11:00.002+02:00

Un sentito grazie al vulcano islandese che, bloccando gli aeroporti tedeschi, ha impedito una riunione alla quale non volevo assistere...
Il nome di 'sto posto sembra uno di quelli che si inventa Giovanni/Schifatterking durante lo sketch della divinità nordiche.

L'é 'na val che se brusa (II)

2010-04-16T08:38:00.004+02:00

Precedentemente ho detto una trentina di alberi. Sembra che fossero circa 150... E sembra che siano stati tagliati senza una vera autorizzazione... Il caso sta diventando sempre più intrigante...

L'é 'na val che se brusa (I)

2010-04-15T16:06:00.002+02:00

I prezzi delle spedizioni in abbonamento postale sono stati quintuplicati.
L'anno prossimo dovremo disdire abbonamenti a riviste e giornali che cresceranno stimo di 15€, ci toccherà comprare playboy in edicola...

Bovolone e la sua amministrazione amano gli alberi?

2010-04-14T23:50:00.001+02:00

La risposta è "Evidentemente no!" e a riprova ne è il continuo scempio che fanno della risorsa. Sto percorrendo una via già battuta qualche tempo fa, e questo a causa dell'ennesimo insensato attacco al buon senso che la amministrazione comunale ha perpetrato ai danni un una ventina (forse più) di poveri alberi rei di:
- frangere il vento evitando lo scoperchiamento delle case circostanti,
- trattenere la polvere alzata dal vento ora indisturbato,
- assorbire l'inquinamento delle automobili,
- tenere saldo il terreno impedendo al fosso di franare su se stesso
- servire da abitazione a tutta una microfauna che serve a mantenere vivo quel deserto asfaltato che sono le nostre città;
- pulire la terra dalle schifezze che buttiamo sopra e che altrimenti andrebbero nelle falde.

Queste colpe hanno segnato la loro sorte. L'amministrazione comunale si è macchiata della ennesima eco-vaccata. Si noti che se a fronte del taglio avessero piantato sulla stessa sede due alberi per ogni caduto allora avrebbero avuto il mio plauso ma così non fu e non sarà, al grido di "desertificazione per tutti!" anche la nostra amministrazione comunale ci accompagna nel terzo mondo bruciando le tappe.

Il fatto di aver vinto le elezioni regionali con un risultato quasi bulgaro nel mio ridente paese (dai risultati deduco che l'unico ad aver votato contro al regime sono io) autorizza l'amministrazione a fare un po' quello che vuole sentendosi avallata dal plebiscito xenofobo che la ha premiata.

Il dramma è che "la società civile" non si è mossa e anzi plaude:
- i politici e gli amministratori che dovrebbero capire quanto un po' di alberi siano una risorsa e che piantarne di nuovi vuol dire pensare al futuro ed a chi verrà dopo di loro, semplicemente se ne fregano (o sono incompetenti fino quasi ad essere dannosi);
- i falegnami che dovrebbero adorare gli alberi come divinità che donano loro il pane, non muovono un dito, tutti a testa china a lavorare ("tira e tàs");
- i contadini che non hanno ancora capito che un filare di alberi è quanto di più utile possano avere nelle loro savane chimiche e preferiscono avere cento metri quadri in più da coltivare a tabacco, rimangono inerti (eppure qualcuno tra di loro è pure laureato).

La conclusione emotiva potrebbe essere "mi indigno" o "ci vorrebbe una rivoluzione" però purtroppo in entrambi i casi la situazione non cambierebbe (a guardare la politica nazionale si vede come dal passato non abbiamo imparato proprio nulla).
Un altro pensiero che mi sta sfiorando è "me ne vado", prendo armi e bagagli e cambio nazione, fuggo prima che mi facciano mettere un stella gialla sulla camicia...

E invece la conclusione di oggi, di fronte all'ennesimo scempio del buon senso da parte di amministratori, politici e imprenditori col cervello di un unno (uno solo per tutti) è diversa:
che il sacrificio di questi alberi mi sia di sprone per continuare ad impegnarmi ad educare i miei concittadini, i vicini di casa, gli studenti, le persone che vivono accanto a me ad una serie di qualità che abbiamo perse di vista e che i nostri nonni invece conoscevano; istillare lentamente una maggiore attenzione a quello che accade attorno, avvicinarli all'associazionismo e ad una nuova mentalità basata su:
- rispetto
- sostenibilità
- ascolto e comprensione
- senso della collettività

Sarà una utopia, sarà una impresa folle, ma se riuscirò a far ripartire anche solo neurone nelle persone che ho accanto potrò ritenermi soddisfatto.

Chi trova un amico...

2010-03-18T14:55:00.003+01:00

Ci pensavo da un po' lo ammetto... Inizialmente sentivo il bisogno di una compagna, di una presenza nella mia vita e nelle mie sere, ma poi una compagna rompe con i suoi problemi, si arriva a discutere per argomenti futili, guardando le esperienze di amici e colleghi sposati il dare/avere è tutto sbilanciato (non per nulla lo si chiama amore). Giunsi a pensare che fosse meglio un gatto, però sporca, ha delle necessità, e poi lo lascerei a casa da solo per lunghi periodi e poi va in calore (mentre la compagna non lo fa per definizione)...

Insomma mi piacerebbe avere una presenza in casa, qualcosa che si muova e magari la vedo passare davanti a me ogni tanto, si accontenta di una piccola attenzione ogni tanto, che non sporchi anzi dia una mano nelle pulizie, che quando diventa fastidioso si possa mettergli un tappo senza rimorsi...

Alla fine ho comprato un robottino per fare le pulizie... e risponde a quasi tutti i miei requisiti, dalle premesse la relazione sarà lunga e di reciproca soddisfazione... (e se andasse in calore? dovrei farlo sterilizzare?)

Barca (feature S.)

2010-03-15T19:15:00.003+01:00

E' da un po' che mi succede di restare in bilico tra due mondi e quando domenica scorsa ti ho vista venirmi incontro, è successo di nuovo.
La primavera è alle porte: quando esco dal lavoro, curvo come se portassi con me gli errori dei manager che stanno affondando questa impresa, mentre salgo la rampa di cemento che sembra l'uscita dall'Ade; ma come si fa a far entrare i propri dipendenti in una azienda facendoli scendere sottoterra lungo una rampa? e allora già che ci siamo perché non incidere scene del Dorè nel cemento? oppure perché non assoldare sgherri con fruste e forconi?; dicevo quando esco alla luce della sera respiro a fondo... E mi guardo attorno mentre riemergo dalla terra come uno zombie informatico, la faccia grigia dalle radiazioni del monitor, gli occhi socchiusi di chi non vede la luce da una eternità, trascinando un portatile (trasportabile è meglio) come un pietrone dantesco per espiare non so quale colpa. Mi guardo attorno e non è ancora sera e l'aria è tra il frizzante e il fresco e odora di promesse nascoste nelle silhouette scure degli alberi.
Respiro l'aria sottile di una primavera che qua non vuole ancora iniziare davvero e quest'aria rende sottile anche me, e in un attimo ho diciotto anni, in un attimo sono tornato adolescente e attorno a me tutto odora di futuro incerto, di promesse non ancora mancate, di desideri segreti ancora non compresi.
E io sono ora e sono allora... Per un respiro intero esisto in due tempi, diviso tra una età dove tutto è ancora possibile come un fiume nel quale gettarsi e farsi trascinare della corrente e un presente come un'ansa d'acqua immobile nella quale mi sono incagliato. La vertigine mi assale e viene dalla consapevolezza improvvisa che il fiume è lì e se mi spingo un po' mi staccherò dalla riva, pronto a portarmi via ancora come allora e come allora forse a depositarmi ancora su una riva fangosa oppure chissà... arrivare al placido mare alla fine del viaggio...

E' da un po' che mi succede di restare in bilico tra due mondi e quando domenica scorsa ti ho vista venirmi incontro, è successo di nuovo.
Hai oltrepassato il portone ed ho respirato... Ho respirato due volte perché non potevo credere che fossi tu... Sorridevi con gli occhi ed io mi sono trovato di nuovo in bilico e sottile diviso tra due mondi, quello dellle possibilità e quello delle probabilità. Volevo avvicinarmi a te e sintire l'afflato di futuro incerto, di promesse non ancora mancate, di desideri segreti ancora non compresi...
In testa mi ronzava "respiro e l'aria è fresca" della canzone e volevo farmi trascinare da te al largo verso porti lontani di cui ho sentito parlare nei racconti dei vecchi marinai...

Le 6 paramita

2010-02-14T20:25:00.000+01:00

Tratto dalla bellissima pagina
http://www.culturabuddhista.it/insegnamenti/pratica%20integrale.htm

Come dunque, o Drdhamati, il bodhisattva produce in ogni istante le sei paramita?

1. Il bodhisattva ha rinunciato a tutto e il suo pensiero è senza bramosia e attaccamento: questa la sua danaparamita.
2. La sua mente è buona, tranquilla, priva di male: questa la sua silaparamita.
3. La sua mente è indistruttibile e non è ferita da nessuna cosa: questa la sua ksantiparamita.
4. Considera attentamente e analizza la mente e ne riconosce il carattere di discernimento: questa la sua viryaparamita.
5. E' assolutamente tranquillo e capace di domare la sua mente: questa la sua dhyanaparamita.
6. Esamina, conosce e penetra il carattere della mente: ecco la sua prajnaparamita.

Finito medal of honour Pacific Assault

2010-02-07T14:44:00.001+01:00

Non regge il confronto con i precedenti episodi della serie soprattutto per alcuni aspetti legati al gameplay. Innanzitutto si è in squadra e questo da un lato apre nuovi scenari alla modalità di gioco, dall'altro la squadra spesso non ha una AI adeguata alla situazione (devo ammettere che spesso si sono comportati meglio del previsto) la problematica è legata all'attivarsi di script e fa sì che l'attore principale continui a correre avanti nella speranza di sbloccare lo script che lo fa vincere... infatti se ci si pianta in un punto e si comincia a camperare i nemici continueranno ad arrivare all'infinito, quindi tutto si risolve nel continuare ad avanzare per farli smettere... nella speranza che i compagni ci seguano.
La grafica è notevole anche se ricorda Vietcong come implementazione, con tutti i pregi (difficoltà di vedere i nemici, fruscii sospetti etc) e i difetti (punti della mappa all'apparenza attraverzabili e impossibili da superare, l'AI dei memici cheatta e mi vede dietro ad un cespuglio o una roccia etc); quindi alla fine ci si ritrova ad aver concluso il gioco dicendo "bello!" e con grande soddisfazione ma di fronte al fatto che non ho ottenute tutte le medaglie non mi è venuta neanche un po' di voglia di rifarlo come invece era avvenuto per tutti i precedenti capitoli.

Terminato Vampire: the masquerade

2010-01-31T21:44:00.002+01:00

O meglio affermare: abbandonato... Qualche anno fa lo avrei ritenuto un capolavoro ma giocato oggi (dopo aver visto altri titoli) non dice molto. I bachi sono fastidiosissimi (più di una volta ho dovuto trespolare con la console per attraversare un cancello) però l'ambientazione è fatta molto bene e in alcuni punti mi sono immerso nel gioco con molta partecipazione. Purtroppo è dispersivo e molto libero nella trama, ogni tanto si vaga per la città nella speranza di trovare qualcosa. Questo non è un pregio per videogiocatori senza tempo da perdere come sto diventando io.

Nota: Baco. Finita la missione principale e sedate le due matte dovrei andare a trovare un Nosferatu nel deposito del carburante, il cancello però non si è sbloccato; soluzione: all'icona del gioco aggiungere -console in modo da attivare la console comandi col tasto ~, in console digitare noclip per poter attraversare i muri (e i cancelli chiusi), per uscire dalla console dare il comando toggleconsole oppure attivare la tastiera inglese (Alt+Maiusc) perché il gioco riconosce male la tastiera italiana.

3a categoria

2010-01-24T18:57:00.001+01:00

Finalmente con la gara di Castel d'Ario del 17 (e complici le mie nuove frecce) sono riuscito a superare quota 500/600 per la seconda volta, il che ha comportato il passaggio alla categoria superiore. Ero rimasto solo io in 4a...

linux apt-get dietro al proxy aziendale

2010-01-10T16:08:00.000+01:00

Da terminale:
$ export http_proxy="http://user:password@proxy:porta
$ sudo apt-get update

Osservare la disposizione dei parametri della export questa è una soluziona temporanea, al primo riavvio tutto ritorna come prima.

Finito Bioshock

2010-01-03T20:22:00.001+01:00

Capolavoro assoluto questo BIOSHOCK, un doppiaggio eccezionale, un intrattenimento di prima qualità e una giocabilità altissima. Altri commenti su Metracritic fanno capire che non esagero.

Ventiquattro ore di divertimento puro secondo xfire, se fosse stato più lungo forse avrebbe stufato, se fosse stato più breve avrebbe lasciato adito a critiche. Rigiocabilità non so quanta, ora che lo ho appena finito con ancora gli occhi lucidi per la gioia di aver partecipato ad una esperienza eccezionale non ho intenzione di riprenderlo, ma di sicuro il seguito verrà messo nella lista dei desideri. Difetti? Uno c'è (almeno

): le richieste grafiche sono alte e fanno scattare il mio pc (AMD dual core 3600 + geforce 8600) ho dovuto quindi mettere le impostazioni medie per la grafica e la difficoltà a media per non avere difficoltà con eventuali scatti. A parte questo la

storia si è dipanata davanti ai miei occhi (e soprattutto orecchie) fluidamente grazie ai nastri che ho ascoltato avidamente tra una sparacchiatina e l'altra. Le due immagini sono tratte dal filmato di inizio e di fine del gioco (nessuno spoiler). Io ho seguito la via "del bene" (e non me ne pento) e quindi non so se il finale sarebbe stato diverso.

Personalizzare prompt DOS

2009-11-15T09:02:00.000+01:00

Per personalizzare un po' il prompt DOS (windows XP) e definire qualche alias con linux.

Ho preso spunto da qui.

REM 1. definisce alcuni alias
REM 2. si posiziona nella cartella radice user
REM 3. modifica titolo finestra
REM 4. ridefinisce prompt
REM toglie msgs
@echo off
REM attiva alcuni alias (non sono certo che funzioni)
doskey /macrofile=%windir%\system32\aliases.txt
REM -- alias.txt --
REM ls=dir $*
REM mv=move $*
REM ---------------
REM cambia punto di partenza
cd C:\Documents and Settings\v000173
REM titolo finestra
title V000173 - %CD%
REM prompt
"%comspec%" /k prompt %username%@%computername%$$$p$_$G

Gran Turismo 4 - la vendetta di Bob...

2009-11-09T15:40:00.002+01:00

... ovvero fatto in B-Spec.
E' passato molto tempo da quando ho giocato l'ultima volta con GT4 e ne sentivo la mancanza. Ho quindi deciso di rifare il gioco ma questa volta con alcune regole diverse: correrà Barrichello (come chiamo la modalità B-Spec, Bob per gli anglofoni) e comprerò la maggior quantità di auto possibile (magari un paio delle rarissime auto nere).
Nella tabella sotto è riportata la lista delle mie scelte per quanto riguarda la modalità B-Spec: la prima colonna è il progressivo della gara svolta mentre nella seconda colonna gli eventi sono raggruppati in ordine logico, la terza colonna è l'auto effettivamente utilizzata per vincere la competizione (non riporto i setup e gli upgrade, B-Spec ha spesso bisogno di un aiutino). In originale questo documento era variopinto un foglio di calcolo in Google Documents, purtroppo mostrarlo qua dentro è un lavoro troppo oneroso e mi devo accontentare di una lista scarna.

Mi sono stati particolarmente utili i seguenti documenti:
http://mastergames.forumcommunity.net/?t=15091392
http://www.gamefaqs.com/console/ps2/file/561066/38622
http://www.extremegame.it/gt4/viewtopic.php?f=14&t=1716
http://www.gamefaqs.com/console/ps2/file/561066/34379

Ordine	Gara	Auto utilizzata
	Lega Principiante
1	Sunday Cup	Nissan skyline GT-R '89 (usato)
4	FF Challenge	Mazda Kusabi '03
7	FR Challenge	Nissan Fairlady Z Concept LM Race Car '02
2	4WD Challenge	Nissan skyline GT-R '89 (usato)
13	MR Challenge	Honda NSX-R '92 (usata)
17	Light Weight Cup	Autobianchi A112 Abarth '79
29	Spider & Roadster	Chevrolet Corvette Convertible (C1) '54
52	Sport Truck Race	Dodge RAM (nuovo)
	Lega Professionista
10	Clubman Cup	Nissan Fairlady Z Concept LM Race Car '02
11	Tuning Car Grand Prix	Nissan Fairlady Z Concept LM Race Car '02
15	Race of NA Sports	Cadillac Cien '02
12	Race of Turbo Sports	Nissan Option Stream Z '04 / Nissan Fairlady Z Concept LM Race Car '02
30	Boxer Spirit	Subaru Impreza Super Touring Car '01
37	World Classic Car	Chevrolet Corvette Stingray Coupe (C2) '63
32	World Compact Car	Ginetta G4 ' 64
61	Supercar Festival	Honda NSX-R Prototipe LM Road Car '02
62	Gran Turismo World	Formula Gran Turismo '04 / Toyota GT-One Race Car (Black)
	Lega Estrema
73	Gran Turismo All Stars	Toyota GT-One Race Car (Black) / Formula Gran Turismo '04 (ori)
74	Dream Car Championship	Toyota GT-One Race Car (Black)
77	Polyphony Digital Cup	Subaru Impreza Super Touring Car '01
75	Like the Wind	Toyota GT-One Race Car (Black)
81	Formula Gran Turismo	Formula Gran Turismo '04
67	Real Circuits Tours	Formula Gran Turismo '04
83	Premium Sport Lounge	Lotus Esprit Sport 350 '00
	Condizioni Speciali
14	Rally d' Umbria A	Toyota RSC Rally Raid Car '02
5	Rally di Capri A	Nissan skyline GT-R '89 (usato)
33	Rally Gran Canyon A	Subaru Impreza Rally Car Prototype '01
34	Rally Whistler A	Subaru Impreza Rally Car Prototype '01
35	Rally di Chamonix A	Subaru Impreza Rally Car Prototype '01
20	Rally George V A	Pontiac Sunfire GXP Concept '02
36	Rally Alpi Svizzere A	Subaru Impreza Rally Car Prototype '01
56	Tour di Tahiti A	Subaru Impreza Rally Car Prototype '01
21	Bagnato Tsukuba A	Pontiac Sunfire GXP Concept '02
57	1° Rally Yosemite A	Subaru Impreza Rally Car Prototype '01
64	2° Rally Yosemite A	Subaru Impreza Rally Car Prototype '01
79	Rally d' Umbria IB	Subaru Impreza Super Touring Car '01
22	Rally di Capri IB	Toyota RSC Rally Raid Car '02
82	Rally Gran Canyon IB	Subaru Impreza Super Touring Car '01
50	Rally Whistler IB	Subaru Impreza Rally Car Prototype '01
84	Rally di Chamonix IB	Subaru Impreza Rally Car Prototype '01
80	Rally George V IB	Subaru Impreza Super Touring Car '01
85	Rally Alpi Svizzere IB	Mitsubishi CZ-3 Tarmac Rally Car '02
91	Tour di Tahiti IB	Subaru Impreza Rally Car Prototype '01
98	Bagnato Tsukuba IB	Sauber Mercedes C9 RC
102	1° Rally Yosemite IB	Subaru Impreza Rally Car Prototype '01
108	2° Rally Yosemite IB	Subaru Impreza Rally Car Prototype '01
116	Rally d' Umbria IA	Formula Gran Turismo '04
117	Rally di Capri IA	Formula Gran Turismo '04
120	Rally Gran Canyon IA	Suzuki Escudo Dirt Trial Car '98
126	Rally Whistler IA	Suzuki Escudo Dirt Trial Car '98
137	Rally di Chamonix IA	Suzuki Escudo Dirt Trial Car '98
118	Rally George V IA	Formula Gran Turismo '04
112	Rally Alpi Svizzere IA	Subaru Impreza Rally Car Prototype '01 / Lancia delta HF int. '02
140	Tour di Tahiti IA	Suzuki Escudo Dirt Trial Car '98
99	Bagnato Tsukuba IA	Sauber Mercedes C9 RC
119	1° Rally Yosemite IA	Subaru Impreza Rally Car Prototype '01
141	2° Rally Yosemite IA	Suzuki Escudo Dirt Trial Car '98
	Gare Americane
27	Campionato Americano	Chevrolet Camaro LM Race Car '01
25	Stelle e Striscie	Chevrolet Chevelle SS 454 '70
18	Coupè Gran Turismo	Cadillac Cien '02
16	Coupè GT Classiche	Chevrolet Chevelle SS 454 '70
	Gare Europee
89	Campionato Paneuropeo	Jaguar XJR-9 LeMans Race Car
96	Campionato GT Britannico	TVR Cerbera Speed Six
103	Campionato Modelli Leggeri Britannici	Ginetta G4 ' 64
142	TourenWagen Meisterschaft	Mercedes Benz CLK Touring Car '00
143	Festa Italiana	Cizeta v16t
135	Championnat France Entière	Clio Renault sport v6
109	Lega Classiche Europee	Jaguar E-Type Coupe '61
94	Lega 3 Porte Europee	Renault Clio Renault Sport V6 24V 2000
107	Mille Miglia	AC car 427
132	Schwarzwald Liga A	Volkswagen Lupo 1.4 '02
106	Schwarzwald Liga B	Audi Nuvolari Quattro '03
	Gare Giapponesi
6	Campionato Giapponese	Toyota RSC Rally Raid Car '02
76	Campionato GT Giapponese	Toyota GT-One Race Car (Black)
54	Auto Classiche Giapponesi anni 70	Nissan 240ZG (HS30) '71
86	Auto Giapponesi anni 80	Mazda MX-5 '89
59	Auto Giapponesi anni 90	Sileighty '98
53	Auto Compatte Giapponesi	Honda S800 RSC Race Car '86
	Gare di Endurance
44	300 Km Grand Valley	Minolta Toyota 88C-V Race Car '89
45	200 Miglia Lagua Seca	Minolta Toyota 88C-V Race Car '89
88	4 Ore su Roadster	Mazda MX-5 '89
46	300 KM a Tokyo R246	Minolta Toyota 88C-V Race Car '89
55	150 Miglia Super Speedway	Formula Gran Turismo '04
47	Nurburgring 24h	Minolta Toyota 88C-V Race Car '89
90	Nurburgring 4h	Jaguar XJ220 LM Race Car '01
63	1000Km Suzuka	Formula Gran Turismo '04 (troppo)
60	Motegi 8h	FTO Super Touring Car '97
72	Tsukuba 9h	Audi Nuvolari quattro '03
93	Sarthe Circuit 24 Hours I	Jaguar XJR-9 LeMans Race Car
124	Sarthe Circuit 24 Hours II	Minolta Toyota 88C-V Race Car '89
105	1000Km Fuji	Audi R8 '01
58	Infineon World Sport Car Trophy	Formula Gran Turismo '04
40	200 Miglia El Capitan	Cien
62 (II)	200 Miglia New York	??? Subaru Impreza Rally Car Prototype '01 ???
	Concessionarie Giapponesi
92	Daihatsu Gara Copen	Daihatsu Copen Detach.
70	Daihatsu Gara Midget II - Daihatsu Midget '63	Daihatsu Midget II
42	Mazda Club RE	Mazda BP Falken Rx-7 (D1GP) '03
71	Mazda Coppa Roadster NR-A	Mazda MX-5 '89
43	Mazda Coppa RX-8 NR-A	Mazda RX-8 Concept (Type-I) '01
95	Subaru Gara Subaru 360	Subaru 360
23	Subaru Coppa delle Pleiadi	Subaru Impreza Rally Car Prototype '01
38	Honda Raduno Type R	Honda NSX-R Concept '01
68	Honda Gara Civic	Honda Civic Type R (EP) '01
51	Mitsubishi Raduno Evolution	Mitsubishi Lancer Evolution IV Rally Car '97
97	Mitsubishi Coppa Mirage	Mitsubishi Mirage
100	Suzuki Coppa Auto Suzuki	Suzuki ALTO WORKS SUZUKI SPORT LIMITED 1997
101	Suzuki Concept Car Suzuki	Suzuki Concept-S2 '03
69	Isuzu Auto Sportive Classiche	Isuzu piazza XE
87	Nissan Gara Emblema Rosso	Nissan GT-R Concept LM Race Car 2002
138	Nissan I Fratelli Micra	Nissan March G#
41	Nissan Silvia & Company	Nismo 270R '94
8	Nissan Club Z	Nissan Fairlady Z Concept LM Race Car '02
139	Toyota Gara Altezza	Lexus GS300 ?
144	Toyota Gara Yaris - Toyota Yaris RS Turbo (J) '02	Toyoya Yaris U Euro
	Concessionaria Coreana
65	Hyunday Festival Auto Sportive	Hyunday HCD6 '01
	Concessionarie Tedesche
110	Audi Tourist Trophy	Audi TT coupe 1.8T quattro (usata)
111	Audi Coppa A3	Audi A3 3.2 quattro
134	Mercedes Leggende Frecce d' Argento	Mercedes E190 Evolution II Touring Car '92
113	Mercedes Challenge SL	Mercedes-Benz SL 500 '98 (usata)
114	Volkswagen Coppa Maggiolino	Volkswagen Beetle Cup '00 nuovo
48	Volkswagen Coppa Lupo	Volkswagen Lupo 1.4 '02
115	Volkswagen Coppa Gti	Volkswagen GTi IV '01 (usata)
117	Bmw Trofeo Serie 1	BMW serie 1d
133	Bmw Club M	Bmw M3 GTR Race Car '01
118	Opel Trofeo Speedster	Opel Speedster NA (nuova)
	Concessionarie Inglesi
121	Aston Martin Festival	Aston Martin Vanquish '04
127	Mini Raduno Miniauto Sportive	Mini Cooper-S
122	Triumph Coppa Spitfire	Triumph Spitfire 1500
131	Lotus Trofeo Elise	Lotus Elise Sport 190
104	Lotus Classiche Lotus	Lotus Europa Special '71
123	TVR	TVR Cerbera Speed Six
125	MG Festival	MGF '97
	Concessionaria Italiana
145	Alfa Romeo Coppa GTA	Alfa Romeo 147 GTA
	Concessionarie Francesi
136	Citroen Classiche 2Cv	Citroen 2CV Type-A '54
128	Peugeot Coppa 206	Peugeot 206 Rally Car '99
24	Alpine Coppa Renault Alpine	Alpine A310 1600 VE '73 / Alpine a110 1600s
129	Renault Trofeo Clio	Renault Clio v6 24v '00
130	Renault Coppa Megane	Renault Megane 2.0
	Concessionarie Americane
146	Shelby Coppa Shelby Cobra	Shelby S1
36	Chevrolet Festival Corvette	Corvette C1 '54
26	Chevrolet Raduno Camaro	Chevrolet Camaro LM Race Car '01
147	Chrysler Trofeo Crossfire	Chrysler Crossfire
148	Saleen Club Saleen S7	Saleen S7
	Completamento gioco
39	Completamento gioco 25%
78	Completamento gioco 50%
	Completamento gioco 100%
	Completamento missioni
31	Missioni completate 01-10
	Missioni completate 11-20
66	Missioni completate 21-24
	Missioni completate 25-29
	Missioni completate 30-34
	Patente B Nazionale
3	Bronzo
3	Argento
	Oro
	Patente A Nazionale
9	Bronzo
	Argento
	Oro
	Patente B Internazionale
19	Bronzo
	Argento
	Oro
	Patente A Internazionale
28	Bronzo
	Argento
	Oro
	Patente Speciale
49	Bronzo
	Argento
	Oro

I podcast e Juice

2009-11-02T20:25:00.001+01:00

Ottimo programma, ci ho messo una mezza vita a capire le potenzialità dei podcast e Juice è quello che mi serviva per apprezzare questa tecnologia.
La mia natura masochista mi ha però costretto a istallarlo su Vista (che come sistema operativo non è male, considerato che è stato progettato per essere una radiosveglia); per permettere a Juice di lavorare correttamente (per ora, finché Vista non se ne accorge) ho dovuto metterlo in compatibilità XP SP2. Ora cercherò qualcosa di simile per la ubuntu.

Anf anf...

2009-10-25T21:05:00.000+01:00

Reduce da trasferta a Monaco di Baviera e successiva partecipazione a gara di tiro con l'arco sono lesso... Urge ricarca di energie...

OMVS e web (character translation table).

2009-10-18T11:16:00.000+02:00

"OMVS" è la partizione unix sui sistemi di tipo ZOs e spesso c'è un HTTP server (e anche qualcosa di più) attestato su questa. La tentazioen di scrivere qualche paginetta web è quindi forte, purtroppo anche in questo caso la codifica dei caratteri memorizzati non corrisponde a quello che risulta nel browser. Ecco quindi una altra tabellia di conversione tra quello che si scrive e quello che si ottiene.
La prima riga è il carattere ottenuto, la seconda il carattere da scrivere e le altre due righe sono il carattere esadecimale da usare nella partizione (hex on).
NB quella ceh segue NON è una tabella di conversione tra EBCDIC e ASCII, è una tabella di conversione tra OMVS e WEB, in mezzo c'è un server http e chissà cosa altro che cambia i valori quindi questa conversione è sicuramente valida per me nel luogo dove lavoro ma non so se funziona in altri ambiti.

âäàáãåçñ¢.<(+|&éêëèíîïìß!$*);^
âä{áãå\ñ°.<(+!&]êë}íîï~ßé$*);^
44444444444444445555555555555555
0123456789ABCDEF0123456789ABCDEF
--------------------------------
-/ÂÄÀÁÃÅÇÑ¦,%_>?øÉÊËÈÍÎÏÌ`:#@'="
-/ÂÄÀÁÃÅÇÑò,%_>?øÉÊËÈÍÎÏÌù:£§'="
66666666666666667777777777777777
0123456789ABCDEF0123456789ABCDEF
--------------------------------
Øabcdefghi«»ðýþ±°jklmnopqrªºæ¸Æ¤
Øabcdefghi«»ðýþ±[jklmnopqrªºæ¸Æ€
88888888888888889999999999999999
0123456789ABCDEF0123456789ABCDEF
--------------------------------
µ~stuvwxyz¡¿Ð[Þ®¬£¥·©§¶¼½¾Ý¨¯]´×
µìstuvwxyz¡¿ÐÝÞ®¢#¥·©@¶¼½¾¬|¯¨´×
AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB
0123456789ABCDEF0123456789ABCDEF
--------------------------------
{ABCDEFGHIôöòóõ}JKLMNOPQR¹ûüùúÿ
àABCDEFGHIôö¦óõèJKLMNOPQR¹ûü`úÿ
CCCCCCCCCCCCCCCCDDDDDDDDDDDDDDDD
0123456789ABCDEF0123456789ABCDEF
--------------------------------
\÷STUVWXYZ²ÔÖÒÓÕ0123456789³ÛÜÙÚŸ
ç÷STUVWXYZ²ÔÖÒÓÕ0123456789³ÛÜÙÚ
EEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFF
0123456789ABCDEF0123456789ABCDEF

WORKDAY parte V: esempi di chiamate

2009-10-11T09:50:00.001+02:00


/* rexx */                                                              
/* test function for EMMCALF */                                        
                                                                        
/* say how much workdays between dates */                               
                                                                        
   y1=2009;m1=10;d1=14;                                                 
   y2=2009;m2=10;d2=19;                                                 
                                                                        
   retcode=EMMCALF('CNTW ST=('d1 m1 y1') EN=('d2 m2 y2') /VERB')       
   say 'cntwrkds('d1 m1 y1 d2 m2 y2') ->' retcode                       
                                                                        
/* check if (d m y) is workday */                                       
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=06;                                                                
   retcode=EMMCALF('ISWO ST=('d m y') /VERB')                          
   say 'isworkday('d m y') ->' retcode                                  
                                                                        
                                                                        
/* calculate days from 1,1,0001 to dd,mm,yy */                          
                                                                        
   d=6                                                                  
   m=10                                                                 
   y=2009                                                               
   retcode=EMMCALF('ABSD ST=('d m y') /VERB')                          
   say 'ABSDays('d m y') ->' retcode                                    
   /* 734081 sarà giusto? */                                            
                                                                        
                                                                        
/* check if (d m y) is valid date */                                    
                                                                        
   y=2009;                                                              
   m=14;                                                                
   d=05;                                                                
   retcode=EMMCALF('DATE ST=('d m y') /VERB')                          
   say 'DATEok('d m y') ->' retcode                                     
/* calculate the day before dd,mm,yy */                                 
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('DECD ST=('d m y') /VERB')                          
   say 'DECDay('d m y') ->' retcode                                     
                                                                        
                                                                        
/* calculate the day after dd,mm,yy */                                  
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('INCD ST=('d m y') /VERB')                          
   say 'INCDay('d m y') ->' retcode                                     
                                                                        
                                                                        
/* check if date d m y is eastersunday */                               
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=6 ;                                                                
   retcode=EMMCALF('EASTS ST=('d m y') /VERB')                         
   say 'EASTSunday('d m y') ->' retcode                                 
   y=2009;                                                              
   m=04;                                                                
   d=12;                                                                
   retcode=EMMCALF('EASTS ST=('d m y') /VERB')                         
   say 'EASTSunday('d m y') ->' retcode                                 
                                                                        
                                                                        
/* check if date d m y is goodfriday */                                 
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('GOODF ST=('d m y') /VERB')                         
   say 'GOODFriday('d m y') ->' retcode                                 
   y=2009;                                                              
   m=04;                                                                
   d=10;                                                                
   retcode=EMMCALF('GOODF ST=('d m y') /VERB')                         
   say 'GOODFriday('d m y') ->' retcode                                 
                                                                        
                                                                        
/* check if date d m y is eastermonday */                               
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('EASTM ST=('d m y') /VERB')                         
   say 'EASTMonday('d m y') ->' retcode                                 
   y=2009;                                                              
   m=04;                                                                
   d=13;                                                                
   retcode=EMMCALF('EASTM ST=('d m y') /VERB')                         
   say 'EASTMonday('d m y') ->' retcode                                 
                                                                        
                                                                        
/* check if y is legal leapyear */                                      
                                                                        
   y=2009;                                                              
   retcode=EMMCALF('LEAPY ST=('y') /VERB')                             
   say 'LEAPYear('y') ->' retcode                                       
   y=2008;                                                              
   retcode=EMMCALF('LEAPY ST=('y') /VERB')                             
   say 'LEAPYear('y') ->' retcode                                       
                                                                        
                                                                        
/* calculates the day number in a week */                               
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('WEEKD ST=('d m y') /VERB')                         
   say 'WEEKDay('d m y') ->' retcode                                    
                                                                        
                                                                        
/* calculates the week number for given date */                         
                                                                        
   y=2009;                                                              
   m=10;                                                                
   d=05;                                                                
   retcode=EMMCALF('WEEKN ST=('d m y') /VERB')                         
   say 'WEEKNumber('d m y') ->' retcode                                 
                                                                        
                                                                        
exit 0                                                                  
/* EOF */

WORKDAY parte IV: altre funzioni

2009-10-04T09:44:00.000+02:00

Ultima parte con le funzioni, seguiranno le chiamate di test.


/*                                                                      
 * FUNCTION:      cf_goodfriday();                                      
 * PURPOSE:       test if given date is goodfriday.                     
 * RETURNS:       int, 1 if goodfriday else 0.                          
 * EXAMPLE:       if (cf_goodfriday(d,m,y)) { ... }                     
 * NOTE:                                                                
 */                                                                     
cf_goodfriday: procedure expose reutrn cf.                              
  parse arg d m y option .                                              
  /*                                                                    
   *  if the day after tomorrow is eastersunday then                    
   *  today is the goodfriday                                           
   */                                                                   
  OutIncday=cf_incday(d m y);                                           
  parse var OutIncday retcode';'d m y                                   
  if retcode<>0 then return '-1'                                        
  OutIncday=cf_incday(d m y);                                           
  parse var OutIncday retcode';'d m y                                   
  if retcode<>0 then return '-1'                                        
  /*                                                                    
  if cf_eastersunday(d m y) then say 'cf_goodfriday' 1 d m y            
  else say 'cf_goodfriday' 0 d m y                                      
  */                                                                    
  if cf_eastersunday(d m y) then reutrn=1                               
  else reutrn=0                                                         
  if option='VERB' then reutrn=reutrn';'d m y                           
  return reutrn                                                         
/* EOF */                                                               
/*                                                                      
 * FUNCTION:    cf_incday();                                            
 * PURPOSE:     primitive to calculate the day after d,m,y.             
 * RETURNS:     int, 0 if there is legal successor day else -1          
 * EXAMPLE:                                                             
 * NOTE:                                                                
 */                                                                     
cf_incday: procedure expose outdate cf.                                 
  parse arg di mi yi option .                                           
  if (cf_dateok(di mi yi)) then                                         
  do                                                                    
    if (cf_dateok(di+1 mi yi)) then                                     
    do                                                                  
      di=di+1;                                                          
    end                                                                 
    else                                                                
    if (cf_dateok(1 mi+1 yi)) then                                      
    do                                                                  
      di = 1;                                                           
      mi = mi+1;                                                        
    end                                                                 
    else                                                                
    if (cf_dateok(1 1 yi+1)) then                                       
    do                                                                  
      di = 1;                                                           
      mi = 1;                                                           
      yi = yi+1;                                                        
    end                                                                 
    outdate = '0;'di mi yi                                              
    return outdate                                                      
  end                                                                   
  else                                                                  
  do                                                                    
    outdate = '-1;'di mi yi                                             
    return outdate                                                      
  end                                                                   
/* EOF */                                                               

/*                                                                      
 * FUNCTION: cf_leapyear()                                              
 * PURPOSE:  check if y is legal leapyear                               
 * RETURNS:  int, 1 if y is leapyear else 0                             
 * EXAMPLE:  if (cf_leapyear(year)) then ...                            
 * NOTE:     no range checking                                          
 */                                                                     
cf_leapyear: procedure expose reutrn cf.                                
  parse arg y option .                                                  
  select                                                                
     when (y<1752 & y//4=0) then reutrn=1     /* pre gregorian */       
     when (y>1752 & (y//4=0 & (y//100<>0 ! y//400=0))) then reutrn=1    
     otherwise reutrn=0                                                 
  end                                                                   
  /*say 'cf_leapyear' reutrn*/                                          
  if option='VERB' then reutrn=reutrn';'y                               
return reutrn                                                           
/* EOF */                                                               
                                                                        
                                                                        
/*                                                                      
 * FUNCTION:      cf_weekday()                                          
 * PURPOSE:       calculates the day number in a week.                  
 * RETURNS:       int, number 1..7. Mon=1, Tue=2, ..., Sun=7.           
 * EXAMPLE:       x = cf_weekday(d m y);                                
 * NOTE:          This function uses the 'Zellers Congruence'           
 */                                                                     
cf_weekday: procedure expose wd cf.                                     
  parse arg d m y option .                                              
  wd=0;                                                                 
  if (m > 2) then /* adjust for february */                             
    m = m-2;                                                            
  else                                                                  
  do                                                                    
    m = m+10;                                                           
    y = y-1;                                                            
  end                                                                   
  wd = ((13*m-1)%5)+d+(y-(100*(y%100)))+,                               
       ((y-(100*(y%100)))%4)+((y%100)%4)-(y%100)-(y%100)+77;            
  wd = wd-(7*(wd%7));                                                   
  if (wd = 0) then                                                      
    wd = 7;                                                             
  /*say 'cf_weekday:' wd d m y*/                                        
  if option='VERB' then wd=wd';'d m y                                   
return wd;                                                              
/* EOF */                                                               
                                                                        
/*                                                                      
 * FUNCTION:      cf_weeknum()                                          
 * PURPOSE:       calculates the week number for given date.            
 * RETURNS:       int, between 1 and 53.                                
 * EXAMPLE:       thisweek = cf_weeknum(d,m,y);                         
 * NOTE:                                                                
 */                                                                     
cf_weeknum: procedure expose wn cf.                                     
  parse arg d m y option .                                              
  wn=0;                                                                 
  wn = ((cf_absdays(d m y) - cf_absdays(1 1 y),                         
     + cf_weekday(1 1 y)+6) / 7);                                       
  if (cf_weekday(1 1 y) > 4) then                                       
    if (wn-1 = 0) then                                                  
      wn = cf_weeknum(31 12 y-1);                                       
  if (wn = 53 & cf_weekday(1 1 y+1) < 5) then                           
    wn = 1;                                                             
/*say 'cf_weeknum:' wn*/                                                
  if option='VERB' then wn=wn';'d m y                                   
return wn;                                                              
/* EOF */                                                               

/* REXX                                                                 
 * FUNCTION:      cf_isworkday(given_date)                              
 * PURPOSE:       test if given_date is workday in Italy.               
 * RETURNS:       int, 1 if workday else 0.                             
 * EXAMPLE:       if (cf_workday(d m y) = 1) then ...                   
 *                                                                      
 */                                                                     
cf_isworkday: procedure expose wkd cf.                                  
  parse arg d m y option .                                              
  wkd = 0;                                                              
                                                                        
  /*                                                                    
   *  test that if not weekend and if it isn't constant holiday,        
   *  like Christmas or Misummer (Ferragosto) days                      
   */                                                                   
  if (cf_weekday(d m y) < 6 &,                                          
      substr(cf.m,d,1) ='0') then                                       
    wkd = 1;                                                            
  /*                                                                    
   *  then test those holidays that have no constant place in           
   *  calendar                                                          
   */                                                                   
                                                                        
  if (cf_goodfriday(d m y)   !,                                         
      cf_eastersunday(d m y) !,                                         
      cf_eastermonday(d m y)) then                                      
    wkd = 0;                                                            
if option='VERB' then wkd=wkd';'d m y                                   
return wkd;                                                             
                                                                        
/* EOF */                                                               
                                                                        
                                                                        
calf:                                                                   
                                                                        
  /* some variable initialization (to be sxposed) */                    
  cf.minyear = 2000;                                                    
  cf.maxyear = 2012; /* the world will end */                           
  /* here should be an input check */                                   
                                                                        
                                                                        
  /*                                                                    
   *  Stem cf. holds the Constant Holidays in a year                    
   *  1 stands for holiday and 0 for workday if it isn't weekend or     
   *  some nonconstant holiday.                                         
   *                                                                    
   *  - list of constant holidays:                                      
   *                                                                    
   *    (The Italian calendar)                                          
   *    (TODO: multiple calendars localized for nations DEU ENG OST)    
   *    01-01-YYYY    The New years day.                                
   *    25-04-YYYY    Liberation.                                       
   *    01-05-YYYY    The First of May.                                 
   *    02-06-YYYY    Republic.                                         
   *    15-08-YYYY    MidSummer.                                        
   *    25-12-YYYY    The Christmas day.                                
   *    26-12-YYYY    The 2. Christmas day.                             
   *    be careful because of stem exposure                             
   *    here can also be inserted end-of-months (freeze) and so on      
   */                                                                   
constholiday:                                                           
   /* make snafucated again */                                          
   /*----1234567890123456789012345678901-------------*/                 
  cf.1 ="1000000000000000000000000000000"     /* Jan */                 
  cf.2 ="00000000000000000000000000000 "      /* Feb */                 
  cf.3 ="0000000000000000000000000000000"     /* Mar */                 
  cf.4 ="000000000000000000000000100000 "     /* Apr */                 
  cf.5 ="1000000000000000000000000000000"     /* May */                 
  cf.6 ="010000000000000000000000000000 "     /* Jun */                 
  cf.7 ="0000000000000000000000000000000"     /* Jul */                 
  cf.8 ="0000000000000010000000000000000"     /* Aug */                 
  cf.9 ="000000000000000000000000000000 "     /* Sep */                 
  cf.10="0000000000000000000000000000000"     /* Oct */                 
  cf.11="100000000000000000000000000000 "     /* Nov */                 
  cf.12="0000000100000000000000011000000"     /* Dec */                 
  cf.01="1000000000000000000000000000000"     /* Jan */                 
  cf.02="00000000000000000000000000000 "      /* Feb */                 
  cf.03="0000000000000000000000000000000"     /* Mar */                 
  cf.04="000000000000000000000000100000 "     /* Apr */                 
  cf.05="1000000000000000000000000000000"     /* May */                 
  cf.06="010000000000000000000000000000 "     /* Jun */                 
  cf.07="0000000000000000000000000000000"     /* Jul */                 
  cf.08="0000000000000010000000000000000"     /* Aug */                 
  cf.09="000000000000000000000000000000 "     /* Sep */                 
                                                                        
return 0                                                                
/* EOF */                                                               
/*--------------------------------------------------------------------*\
 *  Eventually snafucate                                              * 
\*--------------------------------------------------------------------*/

WORKDAY parte III: ieri e Pasqua

2009-09-27T12:16:00.004+02:00

Decrementa di un giorno e calcola la Pasqua (e pasquetta)


/*                                                                      
 * FUNCTION:     cf_decday()                                            
 * PURPOSE:      primitive to calculate the day before d,m,y.           
 * RETURNS:      int, 0 if there is legal previous day else -1.         
 * EXAMPLE:                                                             
 * NOTE:                                                                
 */                                                                     
cf_decday: procedure expose outdate cf.                                 
  parse arg d m y option .                                              
  days.1 = "31";days.2 = "31";days.3 = "28";days.4 = "31";              
  days.5 = "30";days.6 = "31";days.7 = "30";days.8 = "31";              
  days.9 = "31";days.10= "30";days.11= "31";days.12= "30";              
                                                                        
  if (cf_dateok(d m y)) then                                            
  do                                                                    
    if (cf_dateok(d-1 m y)) then                                        
      d = d-1                                                           
    else                                                                
    if (cf_dateok(days.m m-1 y)) then                                   
    do                                                                  
      d = days.m                                                        
      m = m-1                                                           
      if (m = 2) then                                                   
        d = d + cf_leapyear(y)                                          
    end                                                                 
    else                                                                
    if (cf_dateok(31 12 y-1)) then                                      
    do                                                                  
      d = 31;                                                           
      m = 12;                                                           
      y = yd-1;                                                         
    end                                                                 
    outdate = '0;'d m y                                                 
    return outdate                                                      
  end                                                                   
  else                                                                  
  do                                                                    
    outdate = '-1;'d m y                                                
    return outdate                                                      
  end                                                                   
/* EOF */                                                               
                                                                        
/*                                                                      
 * FUNCTION:      cf_eastermonday()                                     
 * PURPOSE:       used to test if given date is eastermonday.           
 * RETURNS:       int, 1 if eastermonday else 0.                        
 * EXAMPLE:       if (cf_eastermonday(d m y)) then                      
 * NOTE:                                                                
 */                                                                     
cf_eastermonday: procedure expose reutrn cf.                            
  parse arg d m y option .                                              
  /*                                                                    
   *  if yesterday was eastersunday then today is eastermonday.         
   */                                                                   
  OutDecday = cf_decday(d m y);                                         
  parse var OutDecday retcode';'d m y                                   
  if retcode<>0 then return '-1'                                        
  /*                                                                    
  say 'eastermonday DEC' d m y                                          
                                                                        
  if cf_eastersunday(d m y) then say 'cf_eastermonday' 1 d m y          
  else say 'cf_eastermonday' 0 d m y                                    
  */                                                                    
  if cf_eastersunday(d m y) then reutrn=1                               
  else reutrn=0                                                         
  if option='VERB' then reutrn=reutrn';'d m y                           
  return reutrn                                                         
/* EOF */                                                               

/*                                                                      
 * FUNCTION:      cf_eastersunday();                                    
 * PURPOSE:       check if date d,m,y is eastersunday.                  
 * RETURNS:       int, 1 if date is, else return 0.                     
 * EXAMPLE:       if (cf_eastersunday(d m y)) then ...                  
 *                                                                      
 * NOTE:          This function is based on Gauss algorithm             
 *                                                                      
 */                                                                     
cf_eastersunday: procedure expose ef cf.                                
  parse arg d1 m1 y1 option .                                           
  dx = d1;                                                              
  mx = m1;                                                              
  Y  = y1;                                                              
  M  = 24; /* range 1900-2199 */                                        
  N  = 5;  /* range 1900-2099 */                                        
  a  = Y//19;                                                           
  b  = Y//4;                                                            
  c  = Y//7;                                                            
  d  = (19*a+M)//30;                                                    
  e  = (2*b+4*c+6*d+N)//7;                                              
  if ((22+d+e) <= 31) then                                              
  do                                                                    
    m1 = 3;                                                             
    d1 = 22+d+e;                                                        
  end                                                                   
  else                                                                  
  do                                                                    
    m1 = 4;                                                             
    d1 = d+e-9;                                                         
  end                                                                   
  if (m1 = 4) then                                                      
  do                                                                    
     if (d1 = 26) then                                                  
       d1 = 19;                                                         
     if ((d1 = 25) & (a > 10)) then                                     
       d1 = 18;                                                         
  end                                                                   
  /* debug                                                              
  if (mx = m1 & dx = d1) then say 'cf_eastersunday' 1 d1 m1 y1          
  else say 'cf_eastersunday' 0 d1 m1 y1                                 
  */                                                                    
  if (mx = m1 & dx = d1) then ef=1                                      
  else ef=0                                                             
  if option='VERB' then ef=ef';'d1 m1 y1 dx mx y1                       
  return ef                                                             
/* EOF */

WORKDAY parte II: prime funzioni

2009-09-20T12:10:00.004+02:00

Ecco le prime routine.

absdays non ha senso in quanto altri più autorevoli hanno già deciso che l'inizio per il conteggio delle date è il primo di gennaio del 1904, ma questa funzione è utile in questo contesto.
cntwrkds è la routine che conta i giorni ed è quella ceh referenzia le altre.


/* REXX */                                                              
/*                                                                      
 *  FUNCTION:    cf_absdays()                                           
 *  PURPOSE:     calculate 'absolute' days                              
 *  RETURNS:     int, days from 01-01-0001                              
 *  EXAMPLE:                                                            
 *  NOTE:        not verified                                           
 */                                                                     
cf_absdays: procedure expose ad cf.                                     
   parse arg d m y option                                               
   tboyr.0 ="0"  ; tboyr.1 ="31"; tboyr.2 ="59"; tboyr.3 ="90";         
   tboyr.4 ="120";tboyr.5 ="151";tboyr.6 ="181";tboyr.7 ="212";         
   tboyr.8 ="243";tboyr.9 ="273";tboyr.10="304";tboyr.11="334";         
   /*                                                                   
   ad = tboyr.m-1,  /* days from given month to beginning of year     */
      + y * 365  ,  /* add years multiplied with days in normal year  */
      + d        ,  /* add days from beginning of the month           */
      + y % 4    ,  /* add 1 day from every 4th year                  */
      - y % 100  ,  /* substract the years that were divisible by 100 */
      + y % 400  ,  /* add the years that were divisible by 400       */
      + 1;          /* add one, because the counting starts from day 1*/
      */                                                                
   m_1= m-1;                                                            
                                                                        
   ad = tboyr.m_1,                                                      
      + y * 365  ,                                                      
      + d        ,                                                      
      + y % 4    ,                                                      
      - y % 100  ,                                                      
      + y % 400  ,                                                      
      + 1;                                                              
                                                                        
   /* requested year may need adjusting, if leap year */                
   if (m <= 2) then                                                     
      ad = ad-cf_leapyear(y);                                           
                                                                        
                                                                        
if option='VERB' then ad=ad';'d m y                                     
return ad                                                               
/* EOF */                                                               
                                                                        
                                                                        
/*                                                                      
 * FUNCTION:    cf_cntwrkds()                                           
 * PURPOSE:     counts workdays between d2,m2,y2 - d1,m1,y1             
 * RETURNS:     int workdays between days if applicable else -1.        
 * EXAMPLE:                                                             
 * NOTE:                                                                
 */                                                                     
cf_cntwrkds: procedure expose count cf.                                 
  parse arg d1 m1 y1 d2 m2 y2 option .                                  
                                                                        
  i=0;days=0;count=0;                                                   
  days = cf_absdays(d2 m2 y2) - cf_absdays(d1 m1 y1)                    
  if (days < 0) then                                                    
  return '-1'                                                           
  else                                                                  
  do i=0 to days                                                        
     if (cf_isworkday(d1 m1 y1)) then                                   
     do                                                                 
       count = count+1;                                                 
     end                                                                
     incdate=cf_incday(d1 m1 y1);                                       
     parse var incdate retcode';'d1 m1 y1                               
     if retcode<>0 then return '-1'                                     
  end                                                                   
  if option='VERB' then count=count';'d1 m1 y1 d2 m2 y2                 
  return count                                                          
/* EOF */                                                               

/*                                                                      
 * FUNCTION:     cf_dateok()                                            
 * PURPOSE:      primitive to determine if integers d, m and y form     
 *               together a valid date.                                 
 * RETURNS:      int, 1 if d,m,y is valid date else returns 0.          
 * EXAMPLE:                                                             
 * NOTE:                                                                
 */                                                                     
cf_dateok: procedure expose cf.                                         
  parse arg d m y option .                                              
  maxday=0;                                                             
  reutnr=1;                                                             
  select                                                                
    when m= 1!, /* 31 days */                                           
         m= 3!,                                                         
         m= 5!,                                                         
         m= 7!,                                                         
         m= 8!,                                                         
         m=10!,                                                         
         m=12 then maxday=31;                                           
    when m= 4!, /* 30 days */                                           
         m= 6!,                                                         
         m= 9!,                                                         
         m=11 then maxday=30;                                           
    when m= 2 then maxday=28+cf_leapyear(y) /*febbraio*/                
    otherwise reutnr=0;                                                 
  end                                                                   
                                                                        
  if ((d < 1) ! (d > maxday)) then                                      
    reutnr=0;                                                           
                                                                        
  if ((y < cf.minyear) ! (y > cf.maxyear)) then                         
    reutnr=0                                                            
  if option='VERB' then reutnr=reutnr';'d m y                           
  return reutnr                                                         
/* EOF */

WORKDAY parte I: funzioni di calendario

2009-09-13T14:15:00.005+02:00

Inizia qui la scrittura in più parti di una funzione che restituisca un booleano True/1 se il la data passata in input è un giorno lavorativo. Alla fine ci si ritroverà con un pool di funzioni che danno diverse risposte riguardo alla data compreso un controllo di coerenza.
Il progetto prende spunto da un lavoro in C di Riku Meskanen che si può trovare sulla "ricerca codice" di Google (Codesearch) oppure qua ( via ftp ).

Non mi sono limitato a convertire il codice ma ho inoltre attualizzato alcune parti per renderle usabili in Regina/Rexx (linux) e TSO/E Rexx mainframe, ho inoltre sfruttato le peculiarità del linguaggio Rexx ove possibile. Gli algoritmi sono stati ricontrollati e parzialmente sistemati (convergenza di Zeller, algoritmo di Gauss...). La versione qui riportata è stata inizialmente scritta per linux, poi portata su mainframe.

Il codice originale di Riku è sotto GNU GENERAL PUBLIC LICENSE (che non riporto per brevità) il codice che compare qua è sotto LICENZA CREATIVE COMMONS (vuol dire che se la copiate dovete dire che gli autori siamo noi) per quanto non contemplato nella precedente.

La routine è tutta un unico sorgente, ma qui per non allungare troppo, la spezzerò in più parti, deve essere riassemblata o devono essere gestiti gli scambi di informazioni in modo corretto (ci sono degli stem che devono essere condivisi).

Alla fine del codice ci sarann delle chiaamte di esempio/test.


/*  REXX */           
/*                                                                      
 *  File:           EMMCALF.rexx                                       
 *  Library:        calendar (Italian  version)                         
 *  Description:    main task is to calculate workdays difference       
 *                  between two dates, as a corollary and to            
 *                  fullfill the task many other calendar               
 *                  informations are obtained that can be called:       
 *                  no default values are admitted, all values must     
 *                  be submitted by caller: this code is an algorithm   
 *                  implementation and not an interface, users should   
 *                  externally provide needed interface and messages    
 *                  This function is not efficient because many values  
 *                  are recalculated and checked many times. Some       
 *                  work has to be done to make it CPU less consuming.  
 *                                                                      
 *  PN: this library never validates input values, submit correct       
 *      values or invoke DATEok function before all other calls         
 *                                                                      
 *  PN: this code largely uses reutnr and other messed up variable names
 *      in observance of "How to Write Unmaintainable Code" laws        
 *                                                                      
 *  BTW: "option" is an option                          
 *                                                                      
 *                                                                      
 *  Sintax:                                                             
 *  +-----------------------------------------------------------------+ 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(DATEok   STart=(dd mm ccyy) /VERB)                 ! 
 *  !              check if dd,mm,yy forms valid date                 ! 
 *  !             => 1/0/-1 /VERB=;dd mm ccyy                         ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(ISWOrkday STart=(dd mm ccyy) /VERB)                ! 
 *  !              test if given date is workday                      ! 
 *  !             => 1/0/abend /VERB=;dd mm ccyy                      ! 
 *  !                                                                 !
 *  !             => 1/0/abend /VERB=;dd mm ccyy                      ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(CNTWrkds STart=(d1 m1 ccy1) ENd=(d2 m2 ccy2))      ! 
 *  !              counts workdays between d2,m2,y2 - d1,m1,y1        ! 
 *  !             => integer/0/-1 /VERB=;d1 m1 ccy1 d2 m2 ccy2        ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(ABSDays  STart=(dd mm ccyy) /VERB)                 ! 
 *  !              calculate days from 1,1,0001 to dd,mm,yy           ! 
 *  !             => integer/0/-1 /VERB=;dd mm ccyy                   ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(DECDay   STart=(dd mm ccyy) /VERB) -> 0;d m y [-1] ! 
 *  !              calculate the day before dd,mm,yy                  ! 
 *  !             => 0;(dd mm ccyy)-1/-1;dd mm ccyy     /VERB=same    ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(INCDay   STart=(dd mm ccyy) /VERB) -> 0;d m y [-1] ! 
 *  !              calculate the day after dd,mm,yy                   ! 
 *  !             => 0;(dd mm ccyy)+1/-1;dd mm ccyy     /VERB=same    ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(EASTSunday STart=(dd mm ccyy) /VERB)-> 1/0         ! 
 *  !              check if date d m y is eastersunday                ! 
 *  !             => 1/0 /VERB=;dP mP ccyyP (Easter) dd mm ccyy       ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(GOODFriday STart=(dd mm ccyy) /VERB)-> 1/0         ! 
 *  !              check if date d m y is goodfriday                  ! 
 *  !             => 1/0 /VERB=;dG mG ccyyG (GoodFr) dd mm ccyy       ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(EASTMonday STart=(dd mm ccyy) /VERB)-> 1/0         ! 
 *  !              check if date d m y is eastermonday                ! 
 *  !             => 1/0 /VERB=;dM mM ccyyM (EasMon) dd mm ccyy       ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(LEAPYear STart=(ccyy) /VERB)                       ! 
 *  !              check if y is legal leapyear                       ! 
 *  !             => 1/0 /VERB=;ccyy                                  ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(WEEKDay STart=(dd mm ccyy) /VERB) -> int           ! 
 *  !              calculates the day number in a week                ! 
 *  !             => int/0 /VERB=;dd mm ccyy                          ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(WEEKNumber STart=(dd mm ccyy) /VERB -> int         ! 
 *  !              calculates the week number for given date          ! 
 *  !             => int/0 /VERB=;dd mm ccyy                          ! 
 *  !                                                                 ! 
 *  ! >>--EMMCALF(???)                                               ! 
 *  !              not recognized command                             ! 
 *  !             => -1                                               ! 
 *  !                                                                 ! 
 *  ! TODO:                                                           ! 
 *  ! >>--EMMCALF(HOLYdays STart=(dd mm ccyy) /VERB                  ! 
 *  !              tells if holyday in CALF calendar                  ! 
 *  !             => 1/0 /VERB=;dd mm ccyy                            ! 
 *  ! TODO: manage/strip days/months with trailing zeros (01,02...)   ! 
 *  !                                                                 ! 
 *  !                                                                 ! 
 *  !                                                                 ! 
 *  !                                                                 ! 
 *  ! EXAMPLES provided at bottom                                     ! 
 *  !                                                                 ! 
 *  +-----------------------------------------------------------------+ 
 *                                                                      
 *  Version:        2.2                                                 
 *  Author:         a_minardi@hotmail.com (Antonio Minardi)             
 *  Original C:     (Riku Meskanen)                                     
 *  Last Revised:   dd.mm.2009                                          
 *  TODO:           check input parameters                              
 *                                                                      
 *  (c) Copyright Antonio Minardi 2009                                  
 *      adapted from original C from Riku Meskanen                      
 *  (c) Copyright Riku Meskanen, 1987 - 1993                            
 *                                                                      
 */                                                                     
                                                                        
                                                                        
parse arg Param                                                         
parse var Param CalFunkt Resto                                         
                                                                        
initCalf = calf()                                                       
                                                                        
/* make snafucated */                                                   
                                                                        
select                                                                  
  when abbrev(CalFunkt,'CNTW',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk 'EN'junk'=('d2 m2 yyy2')' ,
              junk '/'option                                            
    answ = cf_cntwrkds(d1 m1 yyy1 d2 m2 yyy2 option)                    
    /* integer or -1 error */                                           
  end                                                                   
  when abbrev(CalFunkt,'ABSD',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_absdays(d1 m1 yyy1 option)                                
    /* integer >= 1 */                                                  
  end                                                                   
  when abbrev(CalFunkt,'DATE',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_dateok(d1 m1 yyy1 option)                                 
    /* 1 date OK; 0 date KO */                                          
  end                                                                   
  when abbrev(CalFunkt,'DECD',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_decday(d1 m1 yyy1 option)                                 
    /* 0;d m y / -1;d m y */                                            
  end                                                                   
  when abbrev(CalFunkt,'INCD',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_incday(d1 m1 yyy1 option)                                 
    /* 0;d m y / -1;d m y */                                            
  end                                                                   
  when abbrev(CalFunkt,'EASTS',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_eastersunday(d1 m1 yyy1 option)                           
    /* 0/1 */                                                           
  end                                                                   
  when abbrev(CalFunkt,'GOODF',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_goodfriday(d1 m1 yyy1 option)                             
    /* 0/1 */                                                           
  end                                                                   
  when abbrev(CalFunkt,'EASTM',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_eastermonday(d1 m1 yyy1 option)                           
    /* 0/1 */                                                           
  end                                                                   
  when abbrev(CalFunkt,'LEAPY',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('yyy1')' junk '/'option                        
    answ = cf_leapyear(yyy1 option)                                     
    /* 0/1 */                                                           
  end                                                                   
  when abbrev(CalFunkt,'WEEKD',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_weekday(d1 m1 yyy1 option)                                
    /* int */                                                           
  end                                                                   
  when abbrev(CalFunkt,'WEEKN',5) then                                  
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_weeknum(d1 m1 yyy1 option)                                
    /* int */                                                           
  end                                                                   
  when abbrev(CalFunkt,'ISWO',4) then                                   
  do                                                                    
    parse var Resto ,                                                   
              'ST'junk'=('d1 m1 yyy1')' junk '/'option                  
    answ = cf_isworkday(d1 m1 yyy1 option)                              
    /* 0/1 */                                                           
  end                                                                   
  otherwise return '-1'                                                 
end                                                                     
return answ

Essere eroi.

2009-09-06T13:34:00.002+02:00

...

Solo una persona che ha colto l'arte di cucinare, lavare i piatti, spazzare e spaccare al legna, qualcuno capace di ridere delle armi del mondo come i soldi, la fama e il potere può sperare di scendere dalla montagna come un eroe. Un eroe così attraverserà le onde del successo e dell'insuccesso senza elevarsi né affondare. Anzi, pochi addirittura si accorgeranno che è un eroe.

...

[Thich Nhat Hanh-L'arte del cammino e della pace.]

quinto anniversario della strage di Beslan

2009-09-01T10:04:00.001+02:00

Non ho ancora un sentimento non "emotivo" su questa vicenda.
Alla finestra una candela accesa in memoria.

900 round Agna

2009-08-23T19:57:00.002+02:00

Vento, polvere e il din don di una campana.

Il cambiamento è sulla posizione dei piedi, più aperti per usare gli addominali nel contrasto del vento.

Cambiato il layout

2009-08-14T16:04:00.003+02:00

Oltre ai volumi presenti nella mia libreria (momento di outing sulle mie letture, ma poi passa...) ho aggiunto un gadget per la traduzione del sito in altre lingue; questo perché ho visto che spesso arrivare "gente da fuori" per leggere le vaccate che scrivo (perché poi? forse non ci saranno vaccate nella loro lingua...).
Con disappunto noto che non è possibile tradurre in klingon (però in catalano sì).

Rifatta la mappa del mio percorso in bici attorno al paese.

2009-08-09T14:42:00.001+02:00

Visualizza Bici giro Bovolone in una mappa di dimensioni maggiori

linux e rexx: magic number

2009-08-02T10:04:00.003+02:00

Non è una grande scoperta, solo la lettura del manuale^^:
se la prima riga del rexx è il path della istallazione (#!/usr/bin/regina) e il programma ha il flag di esecuzione (chmod +x) si può lanciare direttamente il codice senza mettere rexx/regina davanti.

rexx e linux, le date

2009-07-26T16:50:00.000+02:00

Per verificare il funzionamento delle primitive del regina rexx implementato nella mia ubuntu ho ripreso un vecchio intervento sulle date ed o scrtito questa bella routinetta per fare un esperimento. Una delle cose scoperte è che date('Julian') non esiste in questa implementazione di rexx (poco male).

/*rexx*/
say 'Generico controllo che data di oggi sia tra altre due'
/*trace I*/
parse arg Idata';'IIdata';'formatoIN
/* qui ci vanno dei controlli di coerenza dei valori inseriti */
/* conversione in Data Base */
interpret "BIdata=date('B',Idata,'"formatoIN"')"
interpret "BIIdata=date('B',IIdata,'"formatoIN"')"
today=date('B')

say BIdata BIIdata

if (today > BIdata) & (today < retunr =" 'OK">
else retunr = 'KO '||BIdata'?

say retunr

exit 0

dando i comandi in console ottengo:
laptop:~$ rexx JULIANKO.rexx 31/07/09';'02/08/09';'E
Generico controllo che data di oggi sia tra altre due
733618 733620
OK 733618<733619<733620
laptop:~$ rexx JULIANKO.rexx 31/07/09';'02/08/08';'E
Generico controllo che data di oggi sia tra altre due
733618 733255
KO 733618?

ubuntu linux e rexx: un primo esempio

2009-07-19T15:25:00.001+02:00

Perché usare il rexx con linux? Boh, ma venendo dal mondo mainframe il rexx è mio compagni di vita (lavorativa) da diversi anni, e quindi è più per abitudine che per altri motivi che ho istallato regina-rexx con synaptic.

Come usare il rexx: si scrive un codice coll'editor preferito e lo si esegue da terminale con il comando rexx seguito dal nome per programma.
I parametri seguono il nome programma quindi ecco ad esempio:
/* rexx */
parse arg parametroIN
say parametroIN
say 'Prova'
'ls'
exit 0

darà come risultato:
laptop:~$ rexx test input
input
Prova
bin Examples Modelli

Si noti che come ci si aspetta le stringhe non riconosciute dal linguaggio vengno passate al sistema operativo (in questo caso per eseguire un ls).

Fallout Rifinito

2009-07-12T10:49:00.001+02:00

La prima volta che lo giocai mi piacque, ora molti anni dopo ne vedo tutte le lacune: il mondo dei videogiochi ha fatto passi da gigante in quella che oggi viene chiamata "giocabilità". Terminare questo gioco è stato un bel viaggio nei ricordi ma anche nella noia di una trama inesistente e una gestione della interfaccia quasi imbarazzante. La cosa più interessante è il fatto che sia riuscito a giocarci con wine da linux sulla mia fidata ubuntu.

SS434: la poetessa

2009-07-05T09:19:00.001+02:00

Le poetesse hanno uno spiccato animo estetico e quindi comprano delle Lancia Y. Il loro amore per il bello non le impedisce comunque dall'inserirsi con decisione ed un filo di cattiveria davanti alla mia auto. La loro uscita dallo svincolo con tanta convinzione mi fa pensare che ben presto abbandoneranno la ridicola velocità di 70km/h con la quale mi si sono piantate davanti e schizzeranno via lasciando una nuvoletta di fumo e me arrancare col mio trattorino.
Invece dopo aver pazientemente rallentato dietro di lei, con un camion ad un metro dal mio tubo di scappamento, inizio a scrutare un po' in apprensione l'interno della Y. Noto una testa riversa in avanti, "che sia svenuta?" penso ingenuamente. Dopo aver consentito al mondo intero di superarci finalmente mi butto in corsia di sorpasso e, una volta affiacatala, mi giro per guardare se la povera ragazza è realmente svenuta alla guida con la vettura che riesce miracolosamente ad andare diritta. La vedo riversa in avanti ed inizio seriamente a preoccuparmi.

A quel punto lei alza la testa dal telefonino (la mentecatta sta scrivendo un SMS) si gira, mi vede che la guardo con la faccia di Aldo in "Tu la conosci Claudia?" e dopo aver gettato il telefonino sul sedile, ingrana la quarta (i pistoni della Y ringraziano) e svanisce all'orizzonte.

Posso comprendere il lampo di genio improvviso che coglie il poeta alla guida, e posso capire che si deve immediatamente fissare una rima od un verso, ma scrivere SMS mentre si guida è criminale. La riduzione della Divina Commedia in un solo SMS può essere rimandata ad altri momenti.

Ah... per chi volesse cimentarsi in una riduzione SMS della Divina Commedia ecco un esempio da memorizzare sul cellulare (particolarmente utile per evitare di mettersi a scrivere vaccate mentre si guida in superstrada):
"AlTerzoTentativoTrovataLaBea.AncheLìTuttiStrafattiMaRobaBuonaXchéMoltoPiùFelici.
LaBeaNonMeLaDà...UscimmoARivederLeStelle."

Mi perdoni il Sommo Poeta (amici di Ravenna riferscono di averlo sentito rivoltarsi nella tomba), in particolare la licenza sul finale, che è dei primi due canti mentre la vera uscita dal Paradiso è con "... L'amor che muove il Sole e l'altre Stelle."

SS434: l'intruso.

2009-06-28T14:25:00.002+02:00

Noi naviganti della Transpolesana lo riconosciamo subito: l'intruso è l'automobilista "fuori luogo" o qualche volta "fuori tempo", fuori luogo perché probabilmente non voleva essere lì, fuori tempo perché magari lui avrà preso lo stesso svincolo in orari o giorni diversi senza alcuna diffcoltà e ora, ignaro, sta affrontando per la prima volta il traffico di coloro che stanno andando a lavorare (categoria che sarà oggetto di successiva analisi).
Chi, come me, da 9 anni percorre il nastro d'asfalto verso la città, non solo conosce a menadito tutte le buche, ma anche tutti i disperati che affrontano la sorte (di uscirne vivi) come ad esempio la tipa col muppet sul portacappelli, o lo stronzo che sfanala o quello che procede a esattamente a 0.5km/h più di me e vuole superarmi a tutti i costi sull'esterno di un curvone o quello che, appena entriamo in galleria, apre i finestrini.
Ogni giorno, in questo girone del Purgatorio entra un malcapitato che "non è dei nostri". Me lo immagino mentre sullo svincolo, resosi conto della cappella, fa di tutto per non entrare in superstrada, ma il traffico è tale che lo sospinge, suo malgrado, e si immette timidamente nel flusso accelerato regolare di "quelli che ci viaggiano tutti i giorni da una vita".
La sua tragedia inizia già sullo svincolo perché la sfiga che caratterizza questo automobilista fa sì che si materializzi una fila di camion proprio mentre lui si affaccia fuori dalla curva e invece di affondare a tavoletta per sfruttare la breve "corsia di accelerazione" (i nomi ci saranno per un motivo) con lo scopo di raggiungere la stessa velocità dei due camion ululanti che ha accanto ed infilarsi tra di loro prima che il guardrail gli tagli a metà l'auto, invece di fare ciò, farà la cosa più inutile nel contesto: metterà la freccia...
A parte il fatto che "sinistra" è l'unico posto dove si può andare in una corsia di accelerazione di una superstrada, purtroppo il fatto di segnalare le proprie intenzioni fa imbufalire ancora di più i camion, i quali come certe specie di animali della savana, alla vista di un predatore si avvicinano gli uni agli altri. E così l'ultimo pertugio se ne è andato... e il nostro povero intruso, ormai giunto a leggere la marca del fabbricante dei bulloni che reggono il guardrail, non può che frenare e fermarsi sconsolato con la sua patetica freccia che orami non descrive più una "intenzione" ma un "pio desiderio". La consapevolezza che a questo punto lui non ha più corsia per accelerare e che quindi l'ingresso in superstrada avverrà a velocità nulla mentre accanto al suo finestrino sfrecciano camion e suv come lemming impazziti, fa compiere all'intruso alcune patetiche manovre tra cui annoveriamo: mettere la retro per poi rendersi conto che dietro ha un furgone con a bordo un rumeno incazzatissimo, far morire il motore in un sigulto di panico, mettersi a suonare il clacson, accasciarsi sul volante.
Come riconoscere l'intruso? Se sullo svincolo avete davanti un'auto e a bordo vedete una chioma blu (e non avete appena inghiottito del Viagra) allora potrebbe trattarsi di vecchina che ha chiaramente sbagliato strada; se invece accenna a piovere e alla guida intravedete, sopra al poggiatesta, un cappello, allora trattasi di insidiosissimo "òmo col capél" che merita una trattazione a parte.

Ghé vegnèse un bognòn sul cul... / Pt. III (l'arroganza)

2009-06-21T11:05:00.000+02:00

... agli sfanalatori folli che girano per la Transpolesana, i quali , infrangendo i limiti di velocità di 70 km/h mi sfanalano mentre mentre supero un camion nella vana speranza che mi smaterializzi. Il fatto che loro abbiano una auto sportiva (Opel Corsa Verso, l'anello di congiunzione tra la Meriva e un trapezioide scaleno) li rende immuni dal buon senso?

Ghé vegnése un bognòn sul cul... / Pt. II (l'ignoranza)

2009-06-14T09:28:00.001+02:00

... a quelli che dicono "assolutamente sì", "quant'altro", "inaccettabile". La povertà lessicale si conforma anche nell'uso di locuzioni prese dai media, nei quali la lingua italiana è divenuta alquanto lacunosa. Consiglio la visione di Rai Storia per riascoltare, nei reportage degli anni '60, una lingua ormai dimenticata.
D'altro canto... è così!

Finito Amazing Adventure: The Lost Tomb

2009-06-07T22:32:00.001+02:00

Gioco carino, esiste un demo da qualche parte (non capisco se SpinTop e PopCap sono la stssa cosa); ho passato molto tempo a cercare oggetti nascosti e devo ammettere che malgrado la banalità del giochino, mi sono impegnato un bel po' per farcela. Inoltre si impara un minimo di inglese associando immagini e nomi. No ho vista una versione per DS in giro da qualche parte.

900round a BAssano Bresciano

2009-05-31T15:44:00.004+02:00

Altra gara e altre condizioni climatiche, questa volta un fastidioso vento a raffiche che mi spingeva le frecce nel campo dietro i bersagli. Sto ancora aspettando una gara normale dove il clima non imperversi sulle mie (già carenti) prestazioni. Il mio arco fa bella mostra di sè in piazzola 1a. Il rinfreschino di fine gara è stato qualcosa di unico; già prenotato per l'anno prossimo...

Juice extractor: experiment #1

2009-05-27T09:03:00.003+02:00

Ieri sera degli extracomunitari miei amici, btw mi onoro di avere amici stranieri alla faccia dei leghisti e degli xenofobi, ai quali auguro che la figlia gli torni a casa dicendo che si scopa un marocchino; dicevo... degli amici di imprecisata provenienza mi hanno portato una cassetta di fragole che ho accettato di buon grado malgrado il fatto che normalmente odio le fragole (non sopporto i semi, però se me le sbucciano le mangio...).
A quel punto ho deciso di collaudare la mia centrifuga seminuova ed ho spappolato fragole per tutta la sera (i semi restano miracolosamente separati dal sugo). Ne è fuoriuscita una quantità di succo impressionante (circa due litri) che ho mischiato ad un pompelmo (meno acido del limone) e con una dose qubbì di zucchero.
Una parte la ho provata subito (allungata con un 30% di acqua); ottimo per un delizioso e rinfrescante dopocena. (stasera la foto)

Ghé vegnése un bognòn sul cul... / Pt. I (l'inizio)

2009-05-21T09:03:00.005+02:00

La locuzione, in uso nella Bassa Veronese è una forma di augurio rivolta a qualcuno che non ha riscosso grandi simpatie tra gli astanti e prefigura i patimenti del soggetto al manifestarsi di un enorme, purulento, brufolo sul sedere.
L'ispirazione mi viene dal mitico "cloridrato di sviluppina" anche se le finalità sono diverse ed anche il paradigma che le guida.

Come prima categoria soggetta a questo trattamento posso suggerire tutti coloro che possiedono una Panda Natural Power azzurro metallizato e che la sera viaggiano sulla tangenziale di VR zigzagando da una corsia all'altra senza mettere una freccia che sia una (il costo dell'impianto a metano deve aver inciso sull'impianto elettrico). Io atterrito dalla demenza di queste persone mi posiziono prudenzialmente con lo scooter sul bordo della carreggiata e procedo nel rispetto dei limiti di velocità, nell'attesa che questi idioti vadano a morire in un rogo da metano da qualche altra parte...
... e loro provano a superarmi...
.. sulla destra.

D'altro canto... è così...

2009-05-05T19:21:00.000+02:00

Quatro dì aprilanti, quaranta dì somiglianti.

Ricordare Černobyl'

2009-04-30T11:40:00.003+02:00

Nei giorni scorsi c'è stato il "compleanno" dell'incidente di Černobyl' avvenuto il 26 Aprile 1986. Avevo 18 anni e quell'evento mi introdusse di schianto su argomenti di politica globale, sostenibilità ed energia, tecnica e scienza (due materie spesso lontane), gente e psicosi collettive (materie spesso vicine).

Consiglio la lettura attenta di wikipedia per avere le idee più chiare e la visione di una puntata di "La storia siamo noi" che malgrado alcune "spettacolarizzazioni" rimane un documento/reportage interessante.

La psicosi collettiva di quei mesi, fomentata da ambientalisti opportunisti ed impreparati ha portato ad un referendum-suicidio energetico del quale pagammo e pagheremo le conseguenze.

Fu prorpio allora che decisi di capire le cose "dal di dentro" e mi iscrissi alla facoltà di fisica. Da laureato in fisica (atomica) la mia autorevolezza in questi argomenti non cambia, ma almeno ho imparato che solo a fronte di una profonda conoscenza dei fatti si possono trarre conclusioni. Quindi ora sorrido accondiscendente agli sproloqui che sento e che non vale la pena controbattere.

Prima lezione

2009-04-29T14:24:00.000+02:00

Si può donare solo ciò che si possiede.
[Pauline Réage - Hystoire d'O]

Gara bagnata gara fortunata.

2009-04-26T19:02:00.004+02:00

Prima gara di tiro con l'arco all'aperto: un 900round a Ferrara. Pioggia battente per tutto il giorno... prestazione scarsina ma non pessima. Ottima la compagnia. Per salvarmi dalla pioggia ero vestito come un pescatore barbone... Si notino gli archi coperti con ombrelli.

900 round a Ferrara

2009-04-26T19:02:00.001+02:00

Un grazie particolare ad Anna che mi ha supportato e sopportato per tutta la giornata.
Malgrado la pioggia sono stato soddisfatto della mia performance e l'anno prossimo ci tornerò sicuramente, spero che non piova ancora...
Ecco alcune foto dell'evento

Stagnazione e ripresa

2009-04-21T10:08:00.001+02:00

Se un indice di ripresa fosse il numero di camion sulla Transpolesana, allora siamo in pieno boom economico.

Terminato Tabula Rasa

2009-03-15T21:43:00.000+01:00

Il gioco è terminato sotto tutti i punti di vista, come riportato sul sito il gioco ha chiuso il 28 febbraio.
Fonte: news Tabula Rasa
General

1st March 2009 18:00

Transmission over

As we return to Earth, our adventure comes to an end. Thank you to all who have supported us for the last few years! We hope you have enjoyed your journey through the galaxy and that the next worlds you visit will be filled with excitement and fun.

We’d like to extend a special thanks to our community - fansite administrators, forum administrators, and friends - for it is your passion and commitment that drives us to keep creating new and unique games. With every ending comes a new beginning, a clean slate, and a new story to be written. Thank you from all of us on the Tabula Rasa team, past and present.

### end of transmission ###

Un vero peccato perché l'ambientazione era interessante, il gioco era ben bilanciato e premiava moltissimo la cooperazione tra giocatori. Le idee messe nel gioco erano veramente originali (i logos erano stupendi ed ho sposo molto tempo fuori dal gioco per tradurre le scritte che trovavo nei miei peregrinaggi): Alcuni screenshot presi da me sono nella presentazione sotto.

12+12 a Lonato

2009-03-08T14:38:00.003+01:00

Incuriosito dal tiro di campagna sono andato a Lonato (BS) ad assistere alla gara. Bella l'accoglienza e simpatiche tutte le persone incontrate sul percorso. La disciplina è bella e varia, credo proprio che breve comincerò anche io a fare questo tipo di gare.

Terminato Zelda Ocarina of Time

2009-03-01T10:51:00.000+01:00

Si tratta di uno dei più bei giochi mai prodotti, io ne ho approfittato sulla virtual console della wii e a parte qualche piccolo appunto sul metodo di controllo direi che si è trattato di un ottimo porting. Nella avventura si mischiano dolci musiche e avventure di tutti i tipi e per tutti i gusti. Nel finale un boss inutilmente difficile mi ha reso meno gradevole l'ultimo passo ma il resto della storia rimane un capolavoro. La grafica è un po' datata ma sulla televisione è ancora molto efficace dopo 10 anni.
Su youtube si trova di tutto, compresa una soluzione video del gioco, riporto il bellissimo finale e qualche scatto fatto da me poco prima della fine del gioco (con la macchina fotografica...).

Changeless/Endless

2009-02-23T15:43:00.004+01:00

Da vent'anni non riesco a smettere di riascoltare questo capolavoro del Trio.
Un viaggio nell'armonia, andata e ritorno in quindici minuti e mezzo.

Quando la musica finisce, quando la nota finale esala l'ultima vibrazione, il pubblico rimane attonito per qualche secondo, prima di riprendersi ed applaudire un po' incerto, quasi deluso dal fatto che il sogno sia finito.

Flu

2009-02-19T21:33:00.002+01:00

Il telegiornale visto con 39 di febbre è uno spettacolo terribile e pieno di disgrazie.
Anche senza febbre è uno spettacolo terribile e pieno di disgrazie ma almeno non mi vengono i brividi (anche se ripensandoci dovrebbero).

Ubuntu e wifi, pace fatta?

2009-02-08T08:02:00.000+01:00

Finalmente la Ubuntu (nella versione 8.10) è riuscita a integrare un modo non macchinoso per far funzionare efficacemente il wifi sul mio pavillion. Dopo un paio di mesi di prove posso giungere alla conclusione che funziona proprio bene.

Fallout sulla Ubuntu

2009-02-01T12:39:00.002+01:00

Non ci voleva granché ma solo un po' di voglia... Alla fine mi sono messo all'opera ed ho deciso di rigiocare Fallout (il primo), quindi ho recuperato dallo scaffale dove sono allineati i giochi che hanno fatto la storia (mafia, half life, guild wars, gran turismo 4 etc..) il cd di Fallout ed ho iniziato ancora l'avventura post atomica. L'istallazione non è stata semplice dato che windows XP è troppo recente secondo l'istallante e quindi mi sono rivolto a queste ottime istruzioni su No Mutants Allowed per terminare l'istallazione sul disco C:
Per configurare wine (era la prima volta) e avviare il gioco ho trovato utili queste istruzioni. Ora mi immergerò nell'avventura, per i commenti farò un post quando lo finirò.

Ed è stagnazione...

2009-01-21T14:12:00.005+01:00

Da qualche mese, capita che talvolta vada a mangiare in un fast food di una nota compagnia (no, non quella... l'altra...) che si trova in un centro commerciale non lontano da dove lavoro. Le ragioni sono riconducibili ad una forma di insanabile masochismo ed alla presenza di una cassiera (carina) che mi ricorda una canzone di Guccini ("l'avvelenata" o "autogrill" adesso non ricordo). Una volta recuperato il cibo, dato che normalmente sono solo, mi accoccolo sugli sgabelli che si trovano di fronte ai finestroni che danno sull'autostrada. Lascio al lettore eventuali considerazioni sulla logicità di costruire un centro commerciale accanto ad una autostrada e soprattutto sulla opportunità di mettere degli sgabelli alti (tipo quelli dei bar per intenderci) davanti a delle vetrate (un po' oscurate per fortuna). L'unico ingrediente che manca per produrre un incidente disastroso in autostrada, è una ragazzina in minigonna appollaiata su questi sgabelli, che intinge le patatine nel ketchup... L'altro ingrediente per il succitato incidente è un camionista allupato ed è proprio su questi, o meglio sui loro mezzi, che mi soffermo normalmente mentre intingo le patatine nel ketchup (indossando pantaloni e le gambe ben strette).
Infatti come esercizio mentale (e forse per evitare che l'olio di palma saturi il cervello) conto i camion che passano in autostrada: ma non in valore assoluto, bensì in maniera differenziale. Ovvero i camion che vanno da Est verso Ovest (da Venezia verso Milano per intenderci) valgono +1 mentre quelli che vanno in verso opposto valgono -1, quindi mentre mi passano davanti li sommo e li sottraggo ottenendo quindi il "delta" del traffico pesante autostradale in quel momento.
Ognuno si diverte come può, c'è chi guarda la diga (appollaiata o meno) e chi conta i camion...
Una cosa interessante da notare è che fino a qualche tempo fa il "delta" era positivo ovvero alla fine del pasto (fast) il conteggio era sempre +10 o +12 o valori simili. Il significato è molto complicato da estrapolare e dipende da una quantità di variabili veramente enorme, rendendo il dato per nulla scentifico e ogni considerazione sull'andamento dell'economia mondiale opinabile.
L'unico dato oggettivo è che in un dato momento della giornata c'è una massa pari a una decina di camion che sta andando da est verso ovest e questa massa in più dovrebbe accelerare la rotazione terreste di un qualcosina. Questo significa che domani mattina mi dovrò svegliare prima (5 miliardesimi di miliardesimo di secondo) a meno che questa tendenza non venga controbilanciata; se ad esempio da qualche altra parte nel mondo ci fossero 10 camion che vanno in contromano (che sia per quello che in Nuova Zelanda guidano a sinistra?). Le cose potrebbero rimettersi a posto se in un altro momento della giornata, mentre non li sto contando, una decina di camion decidono di tornare indietro, cosa quanto mai probabile perché questi 10 camion in più che mi sono sfrecciati davanti in direzione Milano, oserei dire in fuga verso Ovest, una volta attraverdata l'Europa ed arrivati a Lisbona non possono che girarsi e tornare a casa.

Comunque ora posso dormire sonni tranquilli, infatti da un paio di mesi il conteggio dei camion è sempre circa 0, ovvero tanti camion vanno da Venezia a Milano e altrettanti tornano indietro; il catastrofista direbbe "è la stagnazione! ora abbiamo meno bisogono di materie prime e di lavorati dall'est Europa e spostiamo le produzioni, il traporto di beni quì e là, gli asset internazionali, i mutui, i saldi, la grande depressione e poi piovegovernoladro". Io mi accontento di pensare che domani forse recupererò dormendo quei 5 miliardesimi di secondo...

[REXX] scoprire se una data è tra altre due, attenzione alla data giuliana.

2009-01-13T09:20:00.007+01:00

Capita di dover verificare se una data si trova tra altre due (ad esempio: il 12/01 cade tra S.Silvestro e la Befana? La risposta è "no" nei paesi dove esiste la Befana) o peggio se un giorno con offset si trova tra altre due; nell'esempio precedente sarebbe: "la settimana prima del 12/01 (ovvero il 05/01) è tra S.Silvestro e la Befana? La risposta è "sì"). In REXX mainframe per qualche oscura ragione ottenere questa risposta è quanto mai complicato ed ora mostrerò tre modi per averla (non è detto che siano i più efficienti ma sono quelli che mi sono venuti in mente per risolvere un problema pratico).

Il primo metodo (funzionante) è basato sull'uso della funzione DATE('Base').


/*rexx*/                                                             
say 'Ricerca della esistenza di una data in un intevallo di tempo con'
say 'offset: tre metodi a confronto'                                 
say '------'                                                         
say 'valori usati : fineanno 31/12/08  befana 06/01/09'              
say '               domani 13/01/09    ieri 11/01/09   ora 12/01/09'     
say '---> REXX: DATA(BASE)'                                          
fineannoB=date('B','31/12/08','E')                                   
befanaB=date('B','06/01/09','E')                                     
domaniB=date('B','13/01/09','E')                                     
ieriB=date('B','11/01/09','E')                                       
nowB=date('B')                                                       
say 'fineanno scorso' fineannoB                                      
say 'befana' befanaB                                                 
say 'domani' domaniB                                                 
say 'ieri' ieriB                                                     
say 'now' nowB                                                       
if (nowB > fineannoB)&(nowB < domaniB) then rispB='True'              
else rispB='False'                                                    
say 'fineanno < now < domani'                                         
say fineannoB '<' nowB '<' domaniB rispB               
if (nowB-20 > fineannoB)&(nowB-20 < domaniB) then rispB='True'        
else rispB='False'                                                    
say 'fineanno < now-20 < domani'                                      
say fineannoB '<' nowB-20 '<' domaniB rispB

Il risultato di questo pezzo di codice è il seguente:


Ricerca della esistenza di una data in un intevallo di tempo con 
offset: tre metodi a confronto                                   
------                                                           
valori usati : fineanno 31/12/08  befana 06/01/09                
              domani 13/01/09  ieri 11/01/09 now 12/01/09       
---> REXX: DATA(BASE)                                            
fineanno scorso 733406                                           
befana 733412                                                    
domani 733419                                                    
ieri 733417                                                      
now 733418                                                       
fineanno < now < domani                                           
733406 < 733418 < 733419 True <---OK                              
fineanno < now-20 < domani                                        
733406 < 733398 < 733419 False <---OK                             
---------

Fin qui tutto bene e a parte la necessità di trasformare i valori delle date il metodo è abbastanza diretto.
Purtroppo se invece di usare il tipo Base si prova ad usare il tipo DATE('Julian') invece che semplificare, le cose si complicano drammaticamente:


/*rexx*/                                                             
say 'Ricerca della esistenza di una data in un intevallo di tempo con'
say 'offset: tre metodi a confronto'                                 
say '------'                                                         
say 'valori usati : fineanno 31/12/08  befana 06/01/09'              
say '               domani 13/01/09    ieri 11/01/09   ora 12/01/09'     
say '---> REXX: DATA(JULIAN)'                                          
say 'col JULIAN deve essere costruito a mano perché ''J'''             
say '           NON funziona con DATE input_2'                         
nowJ=date('J')                                                         
fineannoJ=substr('20081231',3,2)!!right(date('D','20081231','S'),3,'0')
befanaJ  =substr('20090106',3,2)!!right(date('D','20090106','S'),3,'0')
domaniJ  =substr('20090113',3,2)!!right(date('D','20090113','S'),3,'0')
ieriJ    =substr('20090111',3,2)!!right(date('D','20090111','S'),3,'0')
say 'fineanno scorso' fineannoJ                                        
say 'befana' befanaJ                                                   
say 'domani' domaniJ                                                   
say 'ieri' ieriJ                                                       
say 'now' nowJ                                                         
if (nowJ > fineannoJ)&(nowJ< now < domani'                                           
say fineannoJ '<' nowJ '<' domaniJ rispJ  nowJ20=right(nowJ-20,5,'0')                                             
if (nowJ20 > fineannoJ)&(nowJ20 < domaniJ) then rispJ='True'            
else rispJ='False'                                                      
say 'fineanno < now-20 < domani'                                        
say fineannoJ '<' nowJ20 '<' domaniJ rispJ

Sta tentando di dire che Natale viene dopo S.Silvestro... Si noti che si sono dovuti trattare pesantemente i valori delle date (per mettere i "trailing zeros") e che comunque quando si danno offset negativi si ottengono risultati tipo 09012-20=08992 che è sempre maggiore di 08366 (ultimo giorno dell'anno). Questo metodo da dei risultati erronei sul cambio di anno.


---------                                                        
---> REXX: DATA(JULIAN)                                          
col JULIAN deve essere costruito a mano perché 'J'               
          NON funziona con DATE input_2                         
fineanno scorso 08366                                            
befana 09006                                                     
domani 09013                                                     
ieri 09011                                                       
now 09012                                                        
fineanno < now < domani                                           
08366 < 09012 < 09013 True <---OK                                 
fineanno < now-20 < domani                                        
08366 < 08992 < 09013 True <---KO!!!                              
---------

Ultimo metodo, quello più portabile, demanda al db2 l'onere di saper fare i conti:


/*REXX*/
say '---------'                                                        
say '---> SQL
CALL RXSUBCOM 'ADD','SQL','RXTASQL2'                               
CALL DSNALI 'OPEN', db2 ,'RXTCS'                                   
fineannoS='2008-12-31'                                             
befanaS  ='2009-01-06'                                             
domaniS  ='2009-01-13'                                             
ieriS    ='2009-01-11'                                             
say 'fineanno scorso' fineannoJ                                    
say 'befana' befanaJ                                               
say 'domani' domaniJ                                               
say 'ieri' ieriJ                                                   
say 'now' nowJ                                                     
selchk="select ",                                                  
      "case ",                                                    
      "when current date between date('"fineannoS"') ",           
      "             and (date('"domaniS"')) ",                    
      "  then 'True' ",                                           
      "else 'False' ",                                            
      "end as RISP ",                                             
      "from sysibm.sysdummy1"                                     
address sql selchk                                                 
say 'fineanno < now < domani'                                       
say fineannoS '< today <' domaniS risp.1  selchk="select ",                                                          
"case ",                                                            
"when current date -20 days between date('"fineannoS"') ",          
"  and (date('"domaniS"')) ",                            
"  then 'True' ",                                                   
"else 'False' ",                                                    
"end as RISP ",                                                     
"from sysibm.sysdummy1"                                      
address sql selchk                                                  
say 'fineanno < now-20 < domani'                                    
say fineannoS '< today-20 <' domaniS risp.1 
CALL DSNALI 'CLOSE','ABRT'

L'impegno di risorse è superiore e si deve sempre ricordare di fare la "cast" della stringa proveniente dal REXX alla data digeribile dal db2 (il confronto di strighe avviene byte per byte e per il db2 '2008-12-31' e '2008-12-311' sono confrontabili.


---------                                                        
---> SQL:
fineanno scorso 08366                                            
fineannoS='2008-12-31'                                             
befanaS  ='2009-01-06'                                             
domaniS  ='2009-01-13'                                             
ieriS    ='2009-01-11'                                             
fineanno < now < domani                                           
2008-12-31 < today < 2009-01-13 True <---OK                       
fineanno < now-20 < domani                                        
2008-12-31

Capodanno

2009-01-01T11:58:00.000+01:00

Ho superato me stesso, ma c'era la riga continua...

[Giochi] Terminato Peggle Extreme

2008-12-28T20:34:00.000+01:00

Gioco gratuito (pubblicizza la versione Deluxe) "highly addictive"; dopo averlo provato non ho resistito all'acquisto del gioco deluxe. Si tratta di di una specie di flipper che con poche rapide istruzioni mette in gioco le capacità intuitive e balistiche del giocatore "casual".

Naja 4°/1988 6/molti: la Cecchignola

2008-12-21T10:49:00.003+01:00

Arrivammo alla Stazione Termini di Roma alla mattina seguente dopo un viaggio passato pensando a cosa mi avrebbe atteso. Ci portarono alla Cecchignola dove ci dissero finalmente che saremmo diventati "trasmettitori", eravamo rimasti in quattro alpini col cappello piumato, in mezzo ad un mare di fanti col basco nero... Era luglio e c'era un caldo bestiale, arrivavo da una regione piovosa e freddina (il Friuli) ed ora mi trovai solo in mezzo a un piazzale immenso circondato da palme. Dopo una adunata dove ci ripeterono le solite cose (sospetto che i miei nuovi commilitoni non le avessero mai sentite). Mi assegnarono ad una palazzina all'estremo della caserma. Mi avviai alla palazzina assieme ai miei nuovi compagni e appena arrivato fui redarguito da un caporale perché non lo avevo salutato, da quello che riuscii a capire dalle sue parole (parlava napoletano stretto) pretendeva di essere salutato malgrado il fatto che fosse prassi non salutare militarmente i gradi bassi: ero in quella caserma da poche ore e capii che vigevano regole diverse da quelle che mi erano state insegnate in Friuli.
Ci consegnarono le lenzuola e quando giungemmo alle nostre brande,nella nuova camerata, scoprimmo che eravamo capitati con un milanese che dormiva (o meglio si faceva canne) sulla branda sopra la mia, un palermitano di fronte ed il resto erano napoletani o di provenienze indefinite da quelle parti. Iniziammo a farci i "cubi"; in mio collega che veniva da Modena (non ricordo il nome e questo mi manca alquanto) si girò verso di me per dirmi non ricordo cosa e appena tornò al proprio compito si rese conto che le sue lenzuola erano sparite... Io un po' impaurito e stupito dalla repentina sparizione cercai di incoraggiarlo ma appena mi girai verso la mia branda anche a me era sparito uno dei lenzuoli... Nell'arco di trenta secondi i nostri nuovi compagni di camerata ci avevano fatto capire che noi nordici nuovi arrivati eravamo dei pulcini in pollaio di sole volpi. Chiacchierai col palermitano il quale aprì la porta dell'armadietto e mi mostrò un coltello a serramamanico lungo venti centimetri da chiuso, gli chiesi perché teneva un'arma nell'armadietto e mi rispose "ho paura dei napoletani"... In quel grande giorno imparai più di quanto mi aspettassi da tutta la naja...

Visualizzazione ingrandita della mappa

[linux] Istallare e personalizzare x3270

2008-11-19T14:19:00.000+01:00

Riporto un mio vecchio articolo (2004) che ho avuto difficoltà a recuperare quando ho provato a sistemare la mia ubuntu 8.10 nuova fiammante.

Istallare e personalizzare x3270

Per l'utilizzo produttivo dell'emulatore di terminale x3270 sotto linux sono necessari alcuni accorgimenti che verranno descritti nel seguito.

Do per scontato che il pacchetto (rpm/source) di x3270 sia istallato correttamente. (synaptic è perfetto)

I riferimenti su internet
Una prima cosa che può essere desiderabile è rendere richiamabile il programma da vari punti di ingresso.
I files di configurazione, ovvero come personalizzare le funzionalità e l'apparenza dell'emulatore.
Appendice sulla tastiera e sulle diciture ad essa collegate.

I riferimenti su Internet

Le istruzioni sono chiare, anche se non sembra lo sono: c'è bisogno di diverse letture e di qualche tempo per la sedimentazione e poi tutto torna.

Ecco i riferimenti in ordine sparso, se vengono letti attentamente probabilmente quello che segue non serve ma rappresenta solo uno schema delle cose interessanti (nello svolgimento del lavoro).

http://x3270.bgp.nu/x3270-man.html#actions

(particolarmente utile questo) http://x3270.bgp.nu/Keymap.html

http://www.geocities.com/SiliconValley/Peaks/7814/

I file di configurazione, ovvero come personalizzare le funzionalità e l'apparenza dell'emulatore.

I file sono due:

.x3270connect (per ora non conviene toccarlo, è scritto automaticamente dalle preferenze del programma)
.x3270pro (profilo in parte sovrascritto dalle preferenze del programma)

Sulla base dei consigli riportati nei link precedenti ho approntato il file di configurazione che riporto commentato (il file si deve trovare nella home dell'utente)

! x3270 profile
! File created Fri Dec 12 11:20:44 2003 by x3270 v3.2.20 Mon Apr 28 19:51:18 CEST 2003 stewb
! This file overrides xrdb and .Xdefaults.
! To skip reading this file, set NOX3270PRO in the environment.
!
! toggles (-set, -clear)
x3270.showTiming: true
x3270.blankFill: true
x3270.marginedPaste: true
! charset (-charset)
x3270.charset: italian-euro
! File updated Mon Dec 15 10:06:35 2003 by x3270 v3.2.20 Mon Apr 28 19:51:18 CEST 2003 stewb
! emulator font (-efont)
x3270.emulatorFont: 3270e-20
! File updated Tue Dec 30 16:40:56 2003 by x3270 v3.2.20 Mon Apr 28 19:51:18 CEST 2003 stewb
! keypad state (-keypad)
x3270.keypadOn: false
! emulator font (-efont)
x3270.emulatorFont: 3270e-20
! Use the 'mine' keymap, defined below
x3270.keymap: mine
!questa parte definisce gli override alle definizioni di tastiera
! Definition of the 'mine' keymap
x3270.keymap.mine: #override \
! togliere le righe commentate qui, se si fa copia-incolla: in questo blocco non ci vanno righe commentate
! mi piacciono i tasti PagSu e PagGiu della mia tastiera
   Prior: PF(7)\n\
   Next: PF(8)\n\
! mi piace che Invio vada a capo MA NON FUNZIONA BENE QUINDI NON METTERLO PER ORA!
   Return: Newline()\n\
! mi piace che Ctrl Fine cancelli il campo e Fine vada in fondo alla riga
   CtrlEnd: EraseEOF()\n\
   End: FieldEnd()

Appendice sulla tastiera e sulle diciture ad essa collegate.

I valori ottenuti sono ovviamente dipendenti da tastiera a tastiera ed inoltre sono influenzati dal charset. Riporto qui quelli usati dalla mia tastiera ottenuti attraverso un trace su file:

Trace started Fri Apr  2 10:09:55 2004
Version: x3270 v3.2.20 Mon Apr 28 19:51:18 CEST 2003 stewb
Model 3279-3-E, color display, extended data stream, full color, italian-euro charset

Il tracciato dei dati riportati si seguito è il seguente:

Event ': Tasto Modificatore Tasto via Nome eventuale file di override -> Funzione svolta [spiegazione]

Event ':Alt Mod2r' via base.3270:23 -> Reset() [Tasto reset]
Event ':Mod2F1' via base:41 -> PF("1") [tasti funzione]
...
Event ':Mod2F12' via base:52 -> PF("12")
Event ':Mod2Print' via base:53 -> HardPrint() [tasto Stamp]
Event ':Mod2Scroll_Lock' -> Default() [Bloc Scorr inserito]
Event ':Mod2 Mod5Scroll_Lock' -> Default() [Bloc Scorr tolto]
Event ':Mod2backslash' -> Default()
Event ':Mod21' -> Default() [numeri e caratteri normali]
...
Event ':Mod2-' -> Default()
Event ':Mod2Tab' -> Default()
Event ':Mod2Return' via mine:3 -> Newline()
Event ':Mod2Caps_Lock' -> Default()
Event ':Mod2Control_L' -> Default() [Ctrl di sinistra]
Event ':Mod2Mode_switch' -> Default() [Alt di sinistra]
Event ':Mod2Control_R' -> Default() [Ctrl di destra]
Event ':Mod2BackSpace' via base.3270:6 -> BackSpace()
Event ':Mod2Right' -> Default() [Freccia a destra]
Event ':Mod2Down' -> Default() [Freccia giù]
Event ':Mod2Left' -> Default() [Freccia a sinistra]
Event ':Mod2Insert' -> Default() [Tasto Ins messo e tolto]
Event ':Mod2Home' -> Default() [Tasto Home messo e tolto]
Event ':Mod2Delete' -> Default() [Tasto Canc]
Event ':Mod2End' via mine:5 -> FieldEnd() [Tasto Fine]
Event ':Mod2Num_Lock' -> Default() [Tasto Bloc Num]
Event ':Num_Lock' -> Default() [Tasto Bloc Num tolto]
Event ':Mod2KP_Divide' -> Default() [Tasto / in Tastierino Numerico]
Event ':Mod2KP_Multiply' -> Default() [Tasto * in TN]
Event ':Mod2KP_Subtract' -> Default() [Tasto - in TN]
Event ':Mod2KP_Add' -> Default() [Tasto + in TN]
Event ':Mod2KP_1' -> Default() [Numeri in TN con Bloc Num Attivato]
...
Event ':Mod2KP_9' -> Default()
Event ':KP_End' -> Default() [1 in TN con Bloc Num Non Attivato]
Event ':KP_Down' -> Default() [2 in TN con Bloc Num Non Attivato]
Event ':KP_Next' -> Default() [3 in TN con Bloc Num Non Attivato]
Event ':KP_Left' -> Default() [4 in TN con Bloc Num Non Attivato]
Event ':KP_Begin' -> Default() [5 in TN con Bloc Num Non Attivato]
Event ':KP_Right' -> Default() [6 in TN con Bloc Num Non Attivato]
Event ':KP_Home' -> Default() [7 in TN con Bloc Num Non Attivato]
Event ':KP_Up' -> Default() [8 in TN con Bloc Num Non Attivato]
Event ':KP_Prior' -> Default() [9 in TN con Bloc Num Non Attivato]
Event ':KP_Insert' -> Default() [0 in TN con Bloc Num Non Attivato]
Event ':KP_Delete' -> Default() [. in TN con Bloc Num Non Attivato]

Un nuovo riser

2008-11-17T18:48:00.001+01:00

Ecco il mio canto del cigno: poco prima di essere buttato in mezzo ad una strada, ho deciso di spendere un po' di soldi per comprare una impugnatura nuova. Si tratta di un riser Spigarelli Vision color canna di fucile (o grigio topo metallizzato come dice una mia collega tiratrice). Lo ho steso sul tappeto (sì, lo so ci sono delle macchie sul tappeto...) accanto ai flettenti e alle frecce (quelle da allenamento). Il resto della attrezzatura è descritta in un vecchio post.

[Ricette] Pesce lampo

2008-11-12T20:14:00.002+01:00

Ingredienti (per uno zitello):
1 filetto di palombo
1 cucchiaio di olio d'oliva
per il sughetto:
una o due tazzine di latte di soja
1 cucchiaino di alga arame
1 cucchiaino di alga dulse il fiocchi
1 cucchiaino di senape di quella un po' dolce da hot dog
q.b. sale insaporito con spezie

Preparazione:
in una scodella miscelare gli ingredienti per il sughetto in modo da dare il tempo alle alghe di idratarsi
tagliare a strisce il palombo (2-3 cm x 10 cm) di larghezza e poi intingere nell'olio; cuocere in padella fino a abbrustolire appena entrambe le superfici;
aggiungere la salsa e far rapprendere per un paio di minuti al massimo.

Assaporare con un bicchiere di Soave.

Mogol? Chi è?

2008-11-10T10:04:00.002+01:00

Devo ammettere di essere sorpreso e orgoglioso di scoprire che un gruppo musicale milanese ha preso spunto da un paio di miei scritti (prose) per delle loro canzoni. Le ho ascoltate e sono rimasto colpito, mai ie poi mai avrei pensato che qualcuno leggesse i miei vaneggiamenti...
La prossima volta che mi farò travolgere dalla poesia avrò anche il peso della responsabilità verso il "pubblico"...
Devo ammettere che in questo periodo della mia vita un po' "luci e ombre", un bel "massaggino dell'ego" come questo ci voleva proprio.

Finito Icewind Dale: Heart of Winter

2008-11-09T17:09:00.000+01:00

Ci ho messo un paio di anni credo... in parte perché volevo godermelo in parte perché mi sono perso più volte; si tratta di un gioco del periodo "Baldur's Gate" con un motore che tutt'ora si lascia guardare dopo otto anni (l'immagine è presa alla fine del gioco) mentre per quanto riguarda le regole sono un pelo datate anche se per sempre valide e gradevoli. Il mio bardo è abituato di recente a prendere qualche classe d'elite (duelist) ma qua non è riuscito e lo ho trascinato in fondo al gioco con le sue "solite" skill. Il gioco è incentrato sui combattimenti a scapito della trama che a volte diventa esigua al punto da perdersi per strada (ho dovuto recuperare una soluzione per andare avanti). Il gioco è comunque bello e vale la pena almeno provarlo perché rimane uno degli ultimi testimoni dell'era degli rpg puri e duri; oggidì ci sono giochi sicuramente più divertenti che però sono un mix di rpg/azione. Questa espansione era innestata su Icewind dale che non ho ancora finito, ora complice formattone chissà quando riprenderò la storia col mio bardo Myhar ed i suoi compagni il ladro "Er Nano", il mago "Er Mago", la paladina "La Pala" (coi nomi sono di un fantasioso...)

Estinzione dei punti domanda. Mobilitiamoci!

2008-10-29T11:31:00.002+01:00

Non sono riuscito ad ottenre informazioni utili dai colleghi di [...] .

Voi avete qualche suggerimento da darci.

Saluti

In questa mail (degna rappresentante della decina di messaggi che ricevo ogni giorno in particolare da colleghi) manca qualcosa: soprassediamo pure sull'errore di ortografia, ma non sono più disposto ad ammettere la mancanza del punto di domanda nella seconda frase che è evidentemente una interrogativa; o, magari, nella mente del collega si configura come ordine imperativo ma per delicatezza evita di mettere una esclamativa (!) ed ha declassato la frase a "punto semplice" (.)?. Ora non posso rispondere a questo messaggio: non contiene domande quindi ho le mani legate, non contiene neppure esclamazioni quindi non è un ordine. Si tratta semplicemente della laconica constatazione del fatto che io potrei aiutarlo ma a lui non probabilmente non interessa... anzi, se agissi potrebbe essere controproducente.

Se il collega si è dato la pena di cercare il tasto col punto "." perché non cercare questo tasto "?" che è presente praticamente in qualsiasi tastiera?

In alcune lingue come ad esempio lo spagnolo, la preoccupazione di dare una intonazione alla frase è tale da voler specificare già all'inizio della frase l'eventuale esclamazione. Nell'italiano moderno il disinteresse nei confronti dell'interlocutore è tale che non ci si degna neppure di dare uno straccio di intonazione alla frase come dire "ti butto lì due parole e tu te le assemble e poi arrangiati".

Devo fondare il comitato di difesa dell'intonazione delle frasi! Ridiamo dignità alla nostra lingua! O no? Forse...

La mia prima gara di tiro con l'arco

2008-10-26T20:27:00.005+01:00

Si è da poco conclusa la gara organizzata nel mio paese, la stanchezza è tanta, ma così pure la gioia di una organizzazione molto buona (ottimamente giudicata dal anche dall'arbitro di gara). Molte squadre si sono presentate e circa 150 atleti hanno tirato per due giorni nel palazzetto le Muse.

La mia prestazione è stata a deludente ma ho mille scusanti per i pochi punti fatti e comunque mi rifarò tra tre settimane alla prossima gara. L'esperienza accumulata in questi due giorni è stata molta e farò tesoro delle nozioni apprese e delle persone conosciute.

Alcune cose da ricordare per correggere e migliorare: a fronte di un ottimo rilasciocon la destra, tengo la mano sinistra troppo aperta con l'eminenza tenar tesa sul grip, questo fa oscillare l'arco perché il palmo è troppo rigido; anche se ho visto i campioni attendere molto in posizione, il tiro dovrebbe essere un po' più istintivo e rilasciare dopo 3-4 secondi, attendendo troppo a lungo l'allungo si accorcia e le frecce cascano più basse del solito, infatti alla si è notata un buona mira ma le frecce erano 10 cm troppo in basso; avendo delle frecce troppo pesanti rispetto alla potenza dell'arco portare attenzione alla estenzione dell'allungo che con pochi millimetri di differenza comporta grandi variazioni di potenza.

La mia grape pie.

2008-10-19T11:40:00.001+02:00

Si tratta di un dolce che non ha una ricetta precisa e definita (come deve essere per tutte le cose buone da mangiare) e non ne trovo neppure una chiara provenienza geografica; il fulcro, ovvero molti riferimenti nel web, si concentra attorno a Naples nel New England ma potrebbe essere una bufala. Una ricettta possibile per questa deliziosa tornta è questa anche se la ho radicalmente modificata a causa della mancanza di alcuni ingredienti e soprattutto per la mia inesperienza. La foto non le rende giustizia: l'ho fatta colla fotocamera del telefono e subito dopo la prima foto si è bloccato impedendomi di farne di migliori senza flash... inoltre la torta era ancora rovente e con molto liquido quindi non potevo toglierla dalla forma ed è quindi immortalata alla meno peggio. Ecco come prepararla:

lavare un bel grappolo d'uva rossa (700gr);
mettere un bel dvd con una commedia teatrale di Salemme per rallegrare la fase successiva;
togliere tutti i semini da tutti gli acini d'uva oppure uscire a comprare dell'uva OGM senza semi e tornare al primo punto;
il vero virtuosista a questo punto sbuccia ogni acino d'uva o in qualche modo separa la buccia dalla polpa; stavolta non ce l'ho fatta (mentre l'anno scorso con l'uva bianca ci riuscii) quindi la ricetta continua tenendo conto del fatto che gli acini sono tutti tagliati a metà e senza semi ma non sbucciati;
mettere gli acini in una pentola e portare la poltiglia ad ebollizione, schiacciandola periodicamente per far fuoriuscire il liquido dalla polpa; bollire un paio di minuti al massimo;
con un minipimer disintegrare un po' le bucce, non troppo però, altrimenti l'imparto diventerà troppo uniforme e mancherà il gusto di mordere pezzi più saporiti;
mischiare a questo "mosto", 30gr di farina e 230gr di zucchero (lo zucchero bianco lo avevo quasi finito quindi ho fatto un mischione di tre tipi di zuccheri);
già che c'ero ho aggiunto una mela ed una pera tagliate a fettine e mezza fialetta di aroma al limone (per il futuro pensare anche a dei pinoli);
stendere una pasta brisè sul fondo a formare una vasca nella quale versare la miscela;
ritagliare una seconda pasta brisè e fabbricare un coperchio, esso va abbondantemente forato per far uscire il vapore;
infornare 45 minuti a 200° un po' in basso; in realtà dopo 25 minuti ho abbassato il forno a 150 ed ho appoggiato la torta sul fondo del forno per far bollire ancora meglio l'uva (che deve asciugarsi e diventare come marmellata);
sfornare e farla raffreddare un paio d'ore (non metterla sulla finestra altrimenti fa la fine delle torte di mele di Nonna Papera).

La curva

2008-10-13T14:55:00.002+02:00

Quando i camion mi sfrecciano accanto portando sassolini di marmo come quello che si vede nell'immagine, spesso mi rassicuro pensando che "pesano così tanto (e li avranno legati così bene) che è impossibile che cadano".
Da oggi ho deciso che, invece di pensare, è meglio se mi metto in salvo...

Foto di Giuseppe "Peppino" Ventura