Clock1

ソース名[Clock1]

label C1
origin(0,0)
col(0xFFFFFF*c)
frect(0,0,width,height)
setfont("M")
str="    /  /     :  :  "
x=width/2-stwide(str)/2
y=height/2
w=stwide(" ")
da=0 se=60
col(0xFFFFFF*!c)
text(str,width/2,height/2,3)

label lp1
unlock(1)
key=input(100)
if(key==(1<<18)){m=0 goto "Exit"}
elsif(key==(1<<13)||key==(1<<14)){goto "C2"}
elsif(key==(1<<12)||key==(1<<15)){c=!c goto "C1"}
lock()
if(se!=second){
col(0)
rect(-1,y-sthigh-1,width+1,2)
rect(-1,y+sthigh-1,width+1,2)
col(0xFF0000)
if(!ampm){
line(0,y-sthigh,(hour*60*60+minute*60)*width/43200,y-sthigh)
}else{
line(0,y-sthigh,width,y-sthigh)
line(0,y+sthigh,(hour*60*60+minute*60)*width/43200,y+sthigh)
}
col(0xFFFFFF*!c)
}

if(se==second){goto "lp1"}
se=second

col(0xFFFFFF*c)
frect(x+w*17,y-sthigh/2,w*2,sthigh)
frect(x+w*14,y-sthigh/2,w*2,sthigh)
frect(x+w*11,y-sthigh/2,w*2,sthigh)

col(0xFFFFFF*!c)
str=""

if(hour<10){str="0"}
str=str.hour." "
if(minute<10){str=str."0"}
str=str.minute." "
if(second<10){str=str."0"}
str=str.second
col(0xFFFFFF*!c)
text(str,x+w*11,y,6)
if(da==date){goto "lp1"}
da=date
col(0xFFFFFF*c)
frect(x+w*8,y-sthigh/2,w*2,sthigh)
frect(x+w*5,y-sthigh/2,w*2,sthigh)
frect(x,y-sthigh/2,w*4,strhigh)
str=year." "
if(month+1<10){str=str."0"}
str=str.(month+1)." "
if(date<10){str=str."0"}
str=str.date
col(0xFFFFFF*!c)
text(str,x,y,6)
goto "lp1"

back