- 14 Dec 2010 02:20:00 am
- Last edited by Weregoose on 06 Oct 2012 02:36:21 pm; edited 3 times in total
My rendition based on the screenshot:
Code:
From leap years to knuckle measurements – it's all in there.
Code:
FnOff
ClrDraw
GridOff
AxesOff
PlotsOff
0→Xmin:14‾¹→ΔX
0→Ymin:8‾¹→ΔY
For(X,‾Ans,7
Horizontal X
Line(X,0,X,6.7
End
getDate→L1
Ans(2→T
Text(0,0,sub("January░░February░March░░░░April░░░░May░░░░░░June░░░░░...
...July░░░░░August░░░SeptemberOctober░░November░December░",9Ans-8,9
Text(0,79,max(L1
For(X,0,6
Text(8,14X+(X=5),sub("SunMonTueWedThuFriSat",3X+1,3
End
6+dayOfWk(L1(1),Ans,1→U
For(X,1,30+not(T≠2 or fPart(L1(1)/4))-2((T=2)-fPart(.5(T+(T>7
8+8int(Ans/7→V
4+round(98fPart(U/7
Text(V,Ans-2(X>9),X
If X=L1(3
Then
For(A,V,V+6
For(B,max(0,Ans-5),min(94,Ans+7
Pxl-Change(A,B
End
End
End
U+1→U
End
From leap years to knuckle measurements – it's all in there.