1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
!!### score, mode (for mode=legend, score can be empty)
!distribute items $wims_read_parm into t0_,tc_
!! last color is for unfinished exercise
!set colorhexa=#FF0000,#FF0000,#FF0000,#FF9922,#FF9922,#FF9922,#FFE338,#FFE338,#00B000,#008F00,#008F00,#FFFFFF
!set class_scorecolor=!nonempty items $class_scorecolor
!set class_scorecolorcnt=!itemcnt $class_scorecolor
!!color unfinished
!if $class_scorecolorcnt<12 and $class_scorecolorcnt>0
!set class_scorecolor=$class_scorecolor,#D3D3D3
!endif
!if $class_scorecolor=$empty
!set class_scorecolor=!defof class_scorecolor in wimshome/log/classes/$wims_class/.def
!set class_scorecolor=!nonempty items $class_scorecolor
!default class_scorecolor=$colorhexa
!endif
!set class_scorecolor=!replace internal white by $(colorhexa[1]) in $class_scorecolor
!set class_scorecolor=!replace internal red by $(colorhexa[2]) in $class_scorecolor
!set class_scorecolor=!replace internal orange by $(colorhexa[5]) in $class_scorecolor
!set class_scorecolor=!replace internal yellow by $(colorhexa[8]) in $class_scorecolor
!set class_scorecolor=!replace internal green by $(colorhexa[10]) in $class_scorecolor
!default tc_=background
!if $t0_=$empty
!exit
!endif
!goto $tc_
:background
!set style_note="background-color:$(class_scorecolor[$t0_+1]);" class="wims_sheet_score"
!exit
:htmlcolor
!set note_color=$(class_scorecolor[$t0_+1])
!exit
:color
!set style_note="
!if $(class_scorecolor[$t0_+1]) issametext #FFFFFF
!set style_note=$style_note;color:#666;
!else
!set style_note=$style_note;color:$(class_scorecolor[$t0_+1]);
!endif
!set style_note=$style_note" class="wims_sheet_score
!! Add Trophy icon fo scores >=8
!if $t0_>=9.5
!set style_note=$style_note trophy3
!endif
!if $t0_>=9 and $t0_<9.5
!set style_note=$style_note trophy2
!endif
!if $t0_>=8 and $t0_<9
!set style_note=$style_note trophy1
!endif
!set style_note=$style_note"
!exit
:livret
!let t_=!charcnt $t0_
!if $t_>1 or ($t_=1 and $t0_>0)
!let t_=$t0_+0.0000001
!else
!let t_=0
!endif
!set style_note="background-color:$(wims_scorecolor[$[ceil(min($t_,10))+1]]);"
!! approximation of score in case of livret :
!set value_note=$[rint(($t0_)*10^(max(0,$wims_scoreview)))/10^(max(0,$wims_scoreview))]
!if $wims_scoreview>=0 and $t_>0
!set output_note=$value_note
!else
!set output_note=
!endif
!if $t_=0
!set value_note=-1
!endif
!exit
:legend
!set output_legend=<fieldset class="wims_score_bar_legend">\
<legend>$wims_name_legend</legend><ul>\
<li style="background-color:$(class_scorecolor[12])"> </li>
!for j=0 to 10
!set output_legend=$output_legend<li style="background-color:$(class_scorecolor[$j+1])">$j</li>
!next
!set output_legend=$output_legend</ul></fieldset>
|
