lo tomàs avança

Bug en la librería PlotKit de TurboGears (bueno, vale, es una personalización :P)

Tomàs Reverter — Sat, 08 Nov 2008 13:24:24 +0000

(standard disclaimer: si, hace más de un año que no escribo, y vuelvo en castellano!)

Hoy he tenido una pelea con la librería de PlotKit para TurboGears, ya que ignoraba los comandos para personalizar el color y el grueso de las líneas de los gráficos, tanto los gráficos de barras como los de pastel.

Gracias al software libre (¡¡bien bien bien!!) he destripado la libreria para ver exactamente porqué no me hacía caso.

La explicación es sencilla. La forma más fácil de dibujar gráficos des de TurboGears es con el wrapper EasyPlot, que por defecto utiliza gráficos SweetCanvasRenderer (aunque en la web diga que utilizan el CanvasRenderer(¿?¿?)). El problema es que este tipo de gráficos, para que queden muy muy monos, se les fija el color y el grueso de la línea (tal como explican en el enlace anterior).

Qué hacer? Se tienen que modificar el código fuente para indicarle que en vez de fijar el color de línea a blanco, lo lea de las opciones de PlotKit.

Para solucionarlo se tiene que modificar el código fuente del .egg descargado por TurboGears:

Ir a la carpeta /Library/Frameworks/Python.framework/Versions/2.5/lib/python2.5/site-packages/ y descomprimir el fichero PlotKit-0.9.1w3-py2.5.egg.zip. Al descomprimirlo conseguimos que TurboGears lea las dependencias desde la carpeta en lugar del zip. (La ruta es en un MacOSX Leopard).
Dentro de la carpeta tendremos que editar el fichero PlotKit-0.9.1w3-py2.5.egg/plotkit/static/javascript/SweetCanvas.js, para corregir el código, aunque realmente para que funcione se tiene que modificar el fichero PlotKit-0.9.1w3-py2.5.egg/plotkit/static/javascript/Plotkit_Packed.js. Este fichero contiene todos los otros de forma optimizada para su ejecución, es el que realmente se utiliza para la generación de el gráfico.

En la línea 1814 y 1815 del fichero Plotkit_Packed.js debíamos tener:

_342.lineWidth=2;
_342.strokeStyle=Color.whiteColor().toRGBString();

Que deberemos cambiar por estas:

if(this.options.strokeWidth){
 _342.lineWidth=this.options.strokeWidth;
 }else{
 _342.lineWidth=2;
 }
 if(this.options.strokeColor){
 _342.strokeStyle=this.options.strokeColor.toRGBString();
 }else{
 _342.strokeStyle=Color.whiteColor().toRGBString();
 }

Ahora, en vez de fijar los valores internamente, comprobará si han sido configurados por el desarrollador, y si así es, utilizará esos valores para dibujar nuestro anhelado gráfico.

El grep -r de Solaris

Tomàs Reverter — Tue, 30 Jan 2007 12:12:29 +0000

find ./ -type f -a -exec grep text_a_buscar \{\} \; -a -print

Automatitzacio d’impressio VBA (versió PDFCreator)

Tomàs Reverter — Fri, 24 Nov 2006 01:39:48 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori.

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori\”

Set fs = CreateObject(”Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet

‘ Convertir a PDF
Dim pdfjob As PDFCreator.clsPDFCreator
Set pdfjob = New PDFCreator.clsPDFCreator

With pdfjob
If .cStart(”/NoProcessingAtStartup”) = False Then
MsgBox “Can’t initialize PDFCreator.”, vbCritical + _
vbOKOnly, “PrtPDFCreator”
Exit Sub
End If

‘Set details on where to save file to, and flag it automatic
.cOption(”UseAutosave”) = 1
.cOption(”UseAutosaveDirectory”) = 1
.cOption(”AutosaveDirectory”) = Directori
.cOption(”AutosaveFilename”) = Fitxer
.cOption(”AutosaveFormat”) = 0 ‘ 0 = PDF

‘Get ready for the print job
.cClearCache
End With

MySheet.PrintOut copies:=1, ActivePrinter:=”PDFCreator”

‘Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

‘Wait until the PDF file shows up then release the objects
Do Until Dir(Directori & Fitxer) <> “”
DoEvents
Loop

pdfjob.cClose
Set pdfjob = Nothing
End Sub

Automatitzacio d’impressio VBA (versió Acrobat Distiller)

Tomàs Reverter — Fri, 24 Nov 2006 00:38:27 +0000

Aquesta rutina d’VBA serveix per aplicar un format concret i transformar a PDF tots els fitxers .xls que pengin de les subcarpetes d’un directori

Option Explicit

Sub ArreglarMargeITransformarAPDF()

Dim fs, f, f1, sf
Dim folderspec
Dim MiNombre As String

folderspec = “C:\Directori”

Set fs = CreateObject(”Scripting.FileSystemObject”)
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
Debug.Print f1.Name
MiNombre = Dir(folderspec & f1.Name & “\”)
Do While MiNombre <> “”
If MiNombre Like “*.xls” Then
Workbooks.Open folderspec & f1.Name & “\” & MiNombre
Call arreglarFormat
Call imprimirPDF(folderspec & f1.Name & “\”, Replace(MiNombre, “.xls”, “.pdf”))
ActiveWorkbook.Close savechanges:=True
End If
MiNombre = Dir
Loop
Debug.Print “Imprimit ” & f1.Name
Next

End Sub

Public Sub arreglarFormat()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 0
.PaperSize = xlPaperA3
End With

End Sub

Private Sub imprimirPDF(Directori, Fitxer)

Dim PSFileName As String
Dim PDFFileName As String
PSFileName = “c:\tempPOA.ps”
PDFFileName = Directori & Fitxer

‘ Imprimir la fulla
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Activate
MySheet.PrintOut copies:=1, preview:=False, ActivePrinter:=”PDFCreator”, _
printtofile:=True, collate:=True, prtofilename:=PSFileName

‘ Convertir a PDF
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, “”

‘Esborrar el fitxer temporal ps i el de log
Kill PSFileName
Kill Directori & Replace(Fitxer, “.pdf”, “.log”)
End Sub

Nou habitant de l’escriptori de la feina

Tomàs Reverter — Mon, 20 Nov 2006 09:36:34 +0000

Moltes gràcies a tots els companys d’informàtica Però encara no li he posat nom… mmm…

Recurs informàtico-literari: PDF CHM eBooks

Tomàs Reverter — Tue, 31 Oct 2006 09:37:11 +0000

Buscant un llibre m’he trobat amb aquesta bona web d’on es pot descarregar eBooks en format pdf o chm. A més, la presentació és gairebé com Amazon

PDF CHM eBooks

Val la pena fer-hi un cop d’ull, de debó.

Jocs de PlayStation 2 amb GunCon2

Tomàs Reverter — Sun, 22 Oct 2006 11:36:03 +0000

Aquesta setmana m’ha arribat (via Hong Kong) una pistola GunCon2 de Namco per la PS2. Ha estat una inversió a llarg termini, a veure si aconsegueix que deixi de jugar la Time Crisis 3 de la sala de jocs de l’Eroski xD

Amb aquesta pistola es pot jugar als jocs que compleixen el sistema de joc GunCon2, i buscant una mica per Internet he confeccionat la següent llista:

Time Crisis I, II i III
Crisis Zone, la continuació de la saga Time Crisis
Ninja Assault
Vampire Night
End Game
Starsky & Hutch
Dino Stalker
Vampire Hunter
VIRTUA COP Re-Birth (J)
VIRTUA COP Elite Edition (E)
Gunvari (Point Blank) 1-2-3 + Time Crisis Compilation
Resident Evil: Dead Aim

Finalment dintre d’aquesta llista se’n poden trobar alguns mes en format NTSC.

Bug d’Ubuntu per alguns portàtils Dell

Tomàs Reverter — Mon, 09 Oct 2006 19:14:22 +0000

Fa bastant de temps que l’Ubuntu em feia un “tic” extrany. Mentre durava aquest tik de mig segon l’ordinador quedava completament aturat, amb la cpu al 100%. No molestava molt però al final es feia insofrible.

Avui he trobat la solució, modificar el mòdul speedstep tal i com indiquen als fòrums d’Ubuntu.

Canviar el disc dur al MacBook Pro

Tomàs Reverter — Thu, 21 Sep 2006 12:18:02 +0000

Per un de 160 Gb

Els informàtics també necessiten amor

Tomàs Reverter — Wed, 06 Sep 2006 12:26:51 +0000

Via la Pastilla Roja, El 50% de los gerentes de informática odia a los usuarios.

A partir d’una enquesta a 2.800 treballadors del sector informàtic revela dades tant precioses com

“Más del 10% de los subordinados están tan hasta las narices que admiten haber fastidiado a propósito a su jefe, a un colega o a un cliente. Los peores son los jefes, el 50% admite haber obstruido a un colega recientemente, mientras que sólo el 16% de los subordinados reconoce la misma felonía.”

!!!!!!! La gent és molt vengativa !!!!!!!

“El 80% de los gerentes y el 71% de los subordinados mira los sitios web de ofertas de empleo al menos una vez por semana.”

Crec que una de les causes inherents d’aquesta situació és la pressió, la incomprensió i el poc reconeixement a la que generalment està tant acostumbrada la nostra professió.

Tal i com fan a jPod, s’ha de construir una màquina d’abrassades ja! xD