Subversion Repositories wimsdev

!if $datay=$empty
  !exit
!endif
!distribute item 30,0,14,0,lightgrey,lightgrey,blue,darkgreen,darkgreen,orange,grey, into lim,testfin,\
  noactivity,noday,\
  colorgrid,colorgridm,color,colorg,colorgraph,colorgraph1,colorbreak,rupture
!if $datanew!=$empty
  !set test=!text select 123456789 in $datanew
  !if $test=$empty
    !reset datanew
  !endif
!endif
!if $datanew!=$empty
  !set maxexo=!exec pari vecmax([$datay,$datanew,7])+1
!else
  !set maxexo=!exec pari vecmax([$datay,7])+1
!endif
!reset barchart linegraph legend goodlist linegraph1
!set dataxcnt=!itemcnt $datax
!for j=1 to $dataxcnt
  !set cnt=$(datax[$j])
  !set cnt1=!char 1 to 4 of $cnt
  !set cnt2=!char 5 to 6 of $cnt
  !set cnt3=!char 7 to 8 of $cnt
  !set jday_=$(day[$j])
  !if $j>1 and $[$jday_ - $(day[$j-1])+1] > $noactivity
    !set noday_=$[7*floor(($jday_ -$(day[$j-1]))/7)]
    !set noday=$[$noday + $noday_]
    !set rupture=!append line frectangle $[$jday_ - $noday],-3,$[$jday_ - $noday+6],$[$maxexo],$colorbreak\
    text black, $[$jday_ - $noday+2],-1.5,,$noday_ $name_days\
    arrow2 $[$jday_ - $noday],-2.5,$[$jday_ - $noday+6],-2.5,6,black\
    to $rupture
    !set noday=$[$noday -7]
  !endif
  !if $noday!=0
    !set jday_=$[$jday_ - $noday]
  !endif
  !set tmp=$[min($(datay[$j]),$maxexo)]
  !set barchart=!append colon $jday_:$tmp:$color to $barchart
  !!set linegraph=!append colon $jday_:$(dataz[$j]) to $linegraph
  !if $(datanew[$j])!=$empty
    !!set linegraph1=!append colon $jday_:$(datanew[$j]) to $linegraph1
    !if $(datanew[$j])>0
      !set linegraph1=!append line segment $[$jday_+0.5],0,$[$jday_+0.5],$(datanew[$j]),$colorgraph1 to $linegraph1
    !endif
  !endif
  !set legend=!append colon $jday_:$cnt3/$cnt2 to $legend
  !set good=!declosing $(datagood[$j])
  !set good=!nonempty items $good
  !if $good!=$empty
    !set gcnt=!itemcnt $good
    !set good=!makelist $jday_,x for x in $good
    !if $gcnt > $lim
      !for t=0 to $[floor($gcnt/$lim)-1]
        !set goodlist=!append line crosshairs,$colorg,$(good[$[2*$t*$lim+1]..$[2*($t+1)*$lim]]) to $goodlist
      !next
      !if $[2*$t*$lim] < [2*$gcnt]
        !set goodlist=!append line crosshairs,$colorg,$(good[$t*2*$lim+1..-1]) to $goodlist
      !endif
    !else
      !set goodlist=!append line crosshairs,$colorg,$good to $goodlist
    !endif
  !endif
  !if $jday_ > $maxday
    !break
  !endif
!next
!if $barchart=$empty
  !exit
!endif

!set testfin=$[$jday_+2]
!if $testfin < 100
  !set mult=10
!else
  !set mult=8
!endif
!distribute item $[$testfin*$mult],$[$maxexo*$mult] into xsize, ysize

!exec canvasdraw\
size $xsize,$ysize\
xrange -2,$[$testfin]\
yrange -4,$maxexo\
axis\
fontsize 8\
xaxisup $legend\
ylabel $name_ylabel\
legend $lastname $(datax[1])-$(datax[-1])\
opacity 255,40\
grid 7,10,$colorgrid,7,10,0,$colorgridm\
barchart $barchart\
linewidth 2\
crosshairsize $[rint($mult/3)]\
$goodlist\
linewidth 3\
$linegraph1\
comment strokecolor $colorgraph\
comment linegraph $linegraph\
$rupture

!exit

!set xsize_gnuplot_mult=$[round(10*$xsize/500)/10]
!set ysize_gnuplot_mult=$[round(10*$ysize/400)/10]
!set insplot_set=grid;title "$name_student($datafirst ..)";format x;size $xsize_gnuplot_mult,$ysize_gnuplot_mult;
!set insplot_transparent=white
!set insplot_set=$(insplot_set)boxwidth 0.4;style fill solid 1.0;timefmt "%y:%m:%d";xtics ($tics) rotate;xrange [0:$testfin];yrange [0:$maxexo];
!insplot "insplot_data" using 1:2 with boxes notitle