reset;

#param pname symbolic;
#param fname symbolic = "data/" & pname & ".txt";

commands linkviews-config.txt;

param loadlog;

param luminosity_lower >=0, <=1;
param luminosity_upper >=luminosity_lower, <=1;


printf "Creating table of link views ... ";

param shift{{'red','green','blue'}};
data;
param shift := red 6 green 4 blue 2;
model;
param phase;

for{line in LINES}
{
  let loadlog:=-log10(line);
  let luminosity_lower:=0.7*(1-1/(1+(1/3)*loadlog));
  let luminosity_upper:=1-0.3*(1-1/(1+loadlog));
  let views[line,'width']:=1/(1+2*loadlog);
  for{color in {'red','green','blue'}}
  {
    let phase:=(int(2*loadlog)+shift[color]) mod 6;
    let views[line,color] :=
      sum{(phase,a,b) in {(0,1,0),(1,1,-1),(2,0,0),(3,0,0),(4,0,1),(5,1,0)}}
        (a+b*(2*loadlog mod 1));
    let views[line,color] := luminosity_lower +
      (luminosity_upper-luminosity_lower)*views[line,color];
  }
}
printf "Done\n";


table views OUT "ODBC" "data/linkviews.xls":
  LINES -> [line ~ LINES],
  views[line,'width'] ~ width,
  views[line,'red'] ~ red,
  views[line,'green'] ~ green,
  views[line,'blue'] ~ blue;
write table views;

#let pname:="views";
#print "param" > (fname);
#display views > (fname);
#close (fname);