!reset tmp_class mp_sscnt tmp_color tmp_draw xx
!set tmp_sr=$(wims_read_parm[2])
!default tmp_sr=0
!read adm/class/colors
!set tmp_ss=!declosing $(wims_read_parm[1])
!set tmp_sscnt=!itemcnt $(tmp_ss[;1])
!if $tmp_sscnt>0
!distribute items 0 into tmp_seedold
<div class="wims_score_bar">
!for tmp_j=1 to $tmp_sscnt
!set tmp_seed=$(tmp_ss[$tmp_j;1])
!if $tmp_seed!=$tmp_seedold
!set tmp_draw=$tmp_draw<div class="inline wims_score_column">
!set Seed=!select $tmp_ss where column 1=$tmp_seed
!set tmp_Sc=$(Seed[;2])
!set tmp_Sccnt=!itemcnt $tmp_Sc
!for t=1 to $tmp_Sccnt
!set tmp_color
=$
(class_scorecolor
[round($
(tmp_Sc
[$tmp_Sccnt-$t+1])+1)]) !set tmp_draw=!append line <div class="wims_seed_item" style="background-color:$tmp_color" title="$(tmp_Sc[$tmp_Sccnt-$t+1])"></div>\
to $tmp_draw
!set tmp_draw=$tmp_draw</div>
!set tmp_seedold=$tmp_seed
!endif
$tmp_draw
</div>
!!$canvasdraw_idclass
!endif