Eskil

Check-in [45bef756eb]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use lighter colours in PDF
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 45bef756ebbfdf44c04d7ed1e42e629527dce5eb
User & Date: peter 2008-04-08 16:41:25.000
Context
2008-04-08
16:42
Support -context with -review for CVS. check-in: 20e5aa713f user: peter tags: trunk
16:41
Use lighter colours in PDF check-in: 45bef756eb user: peter tags: trunk
2008-03-07
07:17
Added -review check-in: ef619cf1c2 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/print.tcl.
︙︙
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391

        set rrest ""
    }
    set rfile [file tail $rfile]$rrest

    set pdf [eskilprint %AUTO% -file $pdfFile -cpl $cpl -cpln $cpln \
                     -headleft $lfile -headright $rfile -headsize 10]
    set linesPerPage [$pdf getNLines]
    $pdf setTag change "0.8 0.4 0.4"
    $pdf setTag new1 "0.4 0.8 0.4"
    $pdf setTag new2 "0.4 0.4 0.8"

    set len1 [llength $wraplines1]
    set len2 [llength $wraplines2]

    set max [expr {$len1 > $len2 ? $len1 : $len2}]
    set npages [expr {($max + $linesPerPage - 1) / $linesPerPage}]
    $pdf configure -headnpages $npages








|
|
|








375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391

        set rrest ""
    }
    set rfile [file tail $rfile]$rrest

    set pdf [eskilprint %AUTO% -file $pdfFile -cpl $cpl -cpln $cpln \
                     -headleft $lfile -headright $rfile -headsize 10]
    set linesPerPage [$pdf getNLines]
    $pdf setTag change "1.0 0.6 0.6"
    $pdf setTag new1 "0.6 1.0 0.6"
    $pdf setTag new2 "0.6 0.6 1.0"

    set len1 [llength $wraplines1]
    set len2 [llength $wraplines2]

    set max [expr {$len1 > $len2 ? $len1 : $len2}]
    set npages [expr {($max + $linesPerPage - 1) / $linesPerPage}]
    $pdf configure -headnpages $npages
︙︙