TR History PNG

Hi,

  The following is generated as follows:

  % cwm http://www.w3.org/2002/01/tr-automation/new-tr.rdf \
        http://www.w3.org/2002/01/tr-automation/tr-pub-19951117-20020326.rdf \
        http://www.w3.org/2002/01/tr-automation/tr-pub-20020327-20030519.rdf \
        http://www.w3.org/2002/01/tr-automation/tr-pub-20030520-20040114.rdf \
        http://www.w3.org/2002/01/tr-automation/tr-pub-20040114-20040601.rdf \
        http://www.w3.org/2002/01/tr-automation/tr-pub-20040602-20050103.rdf \
        --rdf

Then the output through this XSLT:

  <xsl:transform version="1.0"
      xmlns:contact="http://www.w3.org/2000/10/swap/pim/contact#"
      xmlns:dc="http://purl.org/dc/elements/1.1/"
      xmlns:doc="http://www.w3.org/2000/10/swap/pim/doc#"
      xmlns:log="http://www.w3.org/2000/10/swap/log#"
      xmlns:mat="http://www.w3.org/2002/05/matrix/vocab#"
      xmlns:org="http://www.w3.org/2001/04/roadmap/org#"
      xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
      xmlns:rec="http://www.w3.org/2001/02pd/rec54#"
      xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  >
  <xsl:output  method="text"/>
  <xsl:template match="text()"/>
  <xsl:template match = "*[doc:versionOf]">
    <xsl:value-of select="doc:versionOf/@rdf:resource"/>
    <xsl:text>--</xsl:text>
    <xsl:value-of select="dc:date"/>
    <xsl:text>--</xsl:text>
    <xsl:value-of select="local-name(.)"/>
    <xsl:text>&#xa;</xsl:text>
  </xsl:template>
  </xsl:transform>
  
Then the output through

  % perl -ne "next unless /\S/; s/^\s+|\s+$//g; s/--/\t/g; \
              print $_, qq(\n)"

Then the output through

  % sort

Then the output (plus an empty line) through this Perl script

  #!perl -w
  my $last;
  my $today = "2005-03-13";
  while (<>)
  {
    chomp;
    $last = $_ and next unless defined $last;
  
    my @x = split /\t/, $last;
    my @y = split /\t/, $_;
  
    if ($x[0] ne $y[0])
    {
      printf "%s\t%s\t%s\t%s\n",
        $x[0], $x[1], $today, $x[2];
    }
    else
    {
      printf "%s\t%s\t%s\t%s\n",
        $x[0], $x[1], $y[1], $x[2];
    }
  
    $last = $_;
  }

Then the output through Ploticus using this script:

  #proc page
     scale: 0.5
  
  #proc getdata
     file: __output_from_perl_script__
     delim: tab
  
  #proc categories
     axis: y
     listsize: 5000
     datafield: 1
     comparemethod: exact
  
  #proc areadef
     title: Insert title here...
     xscaletype: date yyyy-mm-dd
     xautorange:  datafield=2,3 nearest=month
     yscaletype: categories
     rectangle: 1 1 20 100
  
  #proc xaxis
     stubs: inc 3 month
     stubvert: yes
     grid: color=xrgb(c0c0c0) width=1
  
  #proc yaxis
     stubs: categories
     location: 20
     stubdetails: align=L adjust=0.3,0
  
  #proc legendentry
     sampletype: color
     label: WD
     details: xrgb(c0c0c0)
     tag: WD
  
  #proc legendentry
     sampletype: color
     label: LastCall
     details: xrgb(BBBE69)
     tag: LastCall
  
  #proc legendentry
     sampletype: color
     label: NOTE
     details: xrgb(AE8CF4)
     tag: NOTE
  
  #proc legendentry
     sampletype: color
     label: CR
     details: xrgb(0C809D)
     tag: CR
  
  #proc legendentry
     sampletype: color
     label: PR
     details: xrgb(0C619D)
     tag: PR
  
  #proc legendentry
     sampletype: color
     label: FirstEdition
     details: xrgb(0C479D)
     tag: FirstEdition
  
  #proc legendentry
     sampletype: color
     label: PER
     details: xrgb(90C6B9)
     tag: PER
  
  #proc legendentry
     sampletype: color
     label: REC
     details: xrgb(0C479D)
     tag: REC
  
  #proc legendentry
     sampletype: color
     label: Retired
     details: xrgb(808080)
     tag: Retired
  
  #proc legendentry
     sampletype: color
     label: Superseded
     details: xrgb(808080)
     tag: Superseded
  
  #proc bars
     colorfield: 4
     axis: x
     locfield: 1
     segmentfields: 2 3
     labelfield: 4
     longwayslabel: yes
     labeldetails: size=4
  
  #proc legend
     location: min max
     colortext: yes

Using

  % pl -gif script -o x.gif -pagesize 100,100 -croprel 0,0,1.2,0

Then the output through ImageMagick

  % convert.exe x.gif y.png

And finally the output through pngcrush

  % pngcrush y.png z.png

Some of the TR data is wrong, for example, the first charmod Last Call
is listed as Working Draft...

regards.
-- 
Björn Höhrmann · mailto:bjoern@hoehrmann.de · http://bjoern.hoehrmann.de
Weinh. Str. 22 · Telefon: +49(0)621/4309674 · http://www.bjoernsworld.de
68309 Mannheim · PGP Pub. KeyID: 0xA4357E78 · http://www.websitedev.de/