sunserega / gitcraft-calendar-graph Goto Github PK

<text x="25" y="-10" class="month">Nov</text>
<text x="73" y="-10" class="month">Dec</text>
<text x="133" y="-10" class="month">Jan</text>
<text x="181" y="-10" class="month">Feb</text>
<text x="229" y="-10" class="month">Mar</text>
<text x="277" y="-10" class="month">Apr</text>
<text x="337" y="-10" class="month">May</text>
<text x="385" y="-10" class="month">Jun</text>
<text x="433" y="-10" class="month">Jul</text>
<text x="493" y="-10" class="month">Aug</text>
<text x="541" y="-10" class="month">Sep</text>
<text x="601" y="-10" class="month">Oct</text>
<text text-anchor="start" class="wday" dx="-14" dy="8" style="display: none;">Sun</text>
<text text-anchor="start" class="wday" dx="-14" dy="20">Mon</text>
<text text-anchor="start" class="wday" dx="-14" dy="32" style="display: none;">Tue</text>
<text text-anchor="start" class="wday" dx="-14" dy="44">Wed</text>
<text text-anchor="start" class="wday" dx="-14" dy="57" style="display: none;">Thu</text>
<text text-anchor="start" class="wday" dx="-14" dy="69">Fri</text>
<text text-anchor="start" class="wday" dx="-14" dy="81" style="display: none;">Sat</text>
</g>

    for var x := 0 to b.Width - 1 do
    begin
      sw.WriteLine($'<g transform="translate({x*13}, 0)">');
      
      for var y := 0 to b.Height - 1 do
        sw.WriteLine(
 	        $'<rect class="day" width="10" height="10" ' +
 	        $'x="{13-x}" ' +
 	        $'y="{y*12}" ' +
 	        $'fill="#{ccl?find_color(b.GetPixel(x,y)):(b.GetPixel(x,y).ToArgb and $FFFFFF).ToString(''x'').PadLeft(6,''0'')}" ' +
 	        $'data-count="0" data-date="2017-10-29"></rect>');
      
      sw.WriteLine('</g>');
    end;

<g transform="translate(0, 0)">
<g transform="translate(11, 0)">
<g transform="translate(22, 0)">

function IntToBool(a: integer): boolean := a=1;