Using latex Syntax Highlighting
- \documentclass[a4paper,11pt]{article}
- \usepackage[T1]{fontenc}
- \usepackage[utf8]{inputenc}
- \usepackage{lmodern}
- \usepackage[swpl]{pst-exa}
- \begin{document}
- No modificar
- \begin{PSTexample}[graphic={[scale=1]images/test-exa-1}]
- \psset{unit=0.5cm,runit=0.5cm}
- \begin{pspicture}[showgrid=true](0,3)(10,10)
- \psdot(2,4)
- \pscircle(7,7){2}
- \psCircleTangents(2,4)(7,7){2}
- \psdots(CircleT1)(CircleT2)
- %un comentario
- \end{pspicture}
- \end{PSTexample}
- psset fuera ...
- \psset{
- unit=0.5cm,%
- runit=0.5cm
- }
- \includegraphics[scale=1]{test-fig-1}
- No modificar
- \begin{PSTexample}[graphic={[scale=1]images/test-exa-2}]
- \psset{unit=0.5cm,runit=0.5cm}%
- \begin{pspicture}[showgrid=true](0,3)(10,10)
- \psdot(2,4)
- \pscircle(7,7){2}
- \psCircleTangents(2,4)(7,7){2}
- \pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT1)
- \pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT2)
- \psdots(CircleT1)(CircleT2)
- %un comentario
- \uput[-80](Circle$T_1$){T1}
- \uput[115](Circle$T_2$){T2}
- \end{pspicture}
- \end{PSTexample}
- Otro \psset{
- unit=0.5cm,runit=0.5cm
- }
- \includegraphics[scale=1]{test-fig-2}
- y otro \psset{algo1=algo, algo2=12.325cm,runit=0.5cm}
- \includegraphics[scale=1]{test-fig-3} texto texto
- \end{document}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Using latex Syntax Highlighting
- \documentclass[a4paper,11pt]{article}
- \usepackage[T1]{fontenc}
- \usepackage[utf8]{inputenc}
- \usepackage{lmodern}
- \usepackage[swpl]{pst-exa}
- \begin{document}
- No modificar
- \begin{PSTexample}[graphic={[scale=1]images/test-exa-1}]
- \psset{unit=0.5cm,runit=0.5cm}
- \begin{pspicture}[showgrid=true](0,3)(10,10)
- \psdot(2,4)
- \pscircle(7,7){2}
- \psCircleTangents(2,4)(7,7){2}
- \psdots(CircleT1)(CircleT2)
- %un comentario
- \end{pspicture}
- \end{PSTexample}
- psset fuera ...
- \includegraphics[scale=1]{test-fig-1}
- No modificar
- \begin{PSTexample}[graphic={[scale=1]images/test-exa-2}]
- \psset{unit=0.5cm,runit=0.5cm}%
- \begin{pspicture}[showgrid=true](0,3)(10,10)
- \psdot(2,4)
- \pscircle(7,7){2}
- \psCircleTangents(2,4)(7,7){2}
- \pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT1)
- \pcline[nodesep=-1cm,linecolor=blue](2,4)(CircleT2)
- \psdots(CircleT1)(CircleT2)
- %un comentario
- \uput[-80](Circle$T_1$){T1}
- \uput[115](Circle$T_2$){T2}
- \end{pspicture}
- \end{PSTexample}
- Otro
- \includegraphics[scale=1]{test-fig-2}
- y otro
- \includegraphics[scale=1]{test-fig-3} texto texto
- \end{document}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
- \psset{cualquier cosa incluidos saltos de linea y espacios}\n\includegraphics[scale=1]{nombrearchivoentrada-fig-número}}
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use v5.14.2;
- use re 'eval';
- use autodie; # muere si ocurre un error
- use File::Basename; # separa el archivo de entrada
- ### Argumentos --------------------------------------------------------------
- @ARGV == 1 or die "Uso: $0 <archivo TeX a procesar>\n";
- my $nombre_archivo = shift;
- -f $nombre_archivo or die "ERROR: No encuentro [$nombre_archivo]\n";
- ### Arreglo de la extensión -------------------------------------------------
- my @SuffixList = ('.tex', '', '.ltx'); # posible extensión
- my ($name, $path, $ext) = fileparse($nombre_archivo, @SuffixList);
- $ext = '.tex' if not $ext;
- ## Leer archivo (usar local)
- open my $INFILE, '<', "$name$ext";
- my $IPDF;
- {
- local $/;
- $IPDF = <$INFILE>;
- }
- close $INFILE;
- ## Constantes (escapamos)
- my $BEGINDOC = quotemeta('\begin{document}');
- ## Dividir el archivo
- my($cabeza, $cuerpo) = $IPDF =~ m/\A (.+?) ($BEGINDOC .+?) \z/msx;
- # Eliminación de psset y SpecialCoor en el preambulo
- $cabeza =~ s/ ^\\psset\{.+?\}/%\\psset delete by pst2pdf/gmsx;
- $cabeza =~ s/\\SpecialCoor/%\\SpecialCoor delete by pst2pdf/gmsx;
- $cabeza =~ s/ ^%CleanPST .+? %CleanPST/% Clean PST by pst2pdf/gmsx;
- # Eliminación de psset sobrantes dentro del body (este regex falla por ahora)
- $cuerpo =~ s/ ^\\psset\{.+?\}\s*(\\includegraphics\[scale=1\]\{$name-fig-\d*\})/$1/gmsx;
- print $cuerpo;
- ## Escribimos otro archivo
- open my $SALIDA, '>', "$name-out$ext";
- print $SALIDA "$cabeza$cuerpo";
- close $SALIDA;
- #
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- $cuerpo =~ s/ ^\\psset\{.+?\}\s*(\\includegraphics\[scale=1\]\{$name-fig-\d*\})/$1/gmsx;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Agradecido:
Pablo