# multiscat

How to download and try this example

    Usage: pl -gif multiscat.htm
    or for postscript: pl -ps multiscat.htm  | lp

    Uses the data file vf.dat

    #proc page
      pagesize: 8.5 11
      #if @DEVICE in gif,png
        scale: 0.5 0.4
      #endif
      title: Correlation between test procedures
    	 June, 1998

    #proc getdata
     file: vf.dat

    #procdef areadef
      box: 1.5 1.5
      xrange: 0 120
      yrange: 0 120
      xaxis.stubs: inc 100
      xaxis.axisline: none
      yaxis.stubs: inc 100
      yaxis.axisline: none
      frame: width=0.5 style=1
      #saveas A

    ///// start with upper right hand corner plot
    #proc areadef
      #clone A
      location: 1 8
      title: Group 1, 30 day

    #proc line
      linedetails: width=0.5 style=1 dashscale=3
      points: min min max max
      #saveas L

    #proc scatterplot
      select: @@2 = 1
      xfield: 5
      yfield: 6
      labelfield: 3
      #if @DEVICE in gif,png
      textdetails: color=blue
      #endif
      #saveas: S

    ////////////////////////////
    #proc areadef
      title: Group 2, 30 day
      #clone A
      location: 3.5 8

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 2

    ////////////////////////////
    #proc areadef
      title: Group 3, 30 day
      #clone A
      location: 6 8

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 3

    ////////////////////////////
    #proc areadef
      title: Group 4, 30 day
      #clone A
      location: 1 5.5

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 4

    ////////////////////////////
    #proc areadef
      title: Group 5, 30 day
      #clone A
      location: 3.5 5.5

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 5

    ////////////////////////////
    #proc areadef
      title: Group 6, 30 day
      #clone A
      location: 6 5.5

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 6

    /////////////////////////////
    #proc areadef
      title: Groups 1-4, 45 day
      #clone A
      location: 1 3

    #proc line
      #clone L

    #proc scatterplot
      select: @@2 in 1,2,3,4
      xfield: 7
      yfield: 8
      labelfield: 3
      #if @DEVICE in gif,png
      textdetails: color=blue
      #endif
      #saveas: S

    /////////////////////////////
    #proc areadef
      title: Group 5, 45 day
      #clone A
      location: 3.5 3

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 5

    /////////////////////////////
    #proc areadef
      title: Group 6, 45 day
      #clone A
      location: 6 3

    #proc line
      #clone L

    #proc scatterplot
      #clone S
      select: @@2 = 6

    /////////////////////////////
    #proc areadef
      title: Groups 1-4, 60 day
      #clone A
      location: 1 0.5

    #proc line
      #clone L

    #proc scatterplot
      select: @@2 in 1,2,3,4
      xfield: 10
      yfield: 11
      labelfield: 3
      #if @DEVICE in gif,png
      textdetails: color=blue
      #endif
      #saveas: S

    /////////////////////////////
    #proc areadef
      title: Group 5, 60 day
      #clone A
      location: 3.5 0.5

    #proc line
      #clone L

    #proc scatterplot
      select: @@2 = 5
      #clone: S

    /////////////////////////////
    #proc areadef
      title: Group 6, 60 day
      #clone A
      location: 6 0.5

    #proc line
      #clone L

    #proc scatterplot
      select: @@2 = 6
      #clone: S