スポンサーサイト

 --------
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
カテゴリ :スポンサー広告 トラックバック(-) コメント(-)

Expression2 『時計』

 2011-06-02
gm_owata_coast_030144.jpg

#wireのEGPに繋ぐだけのシンプルな時計。

*intervalを弄ると時間が狂うので注意。
 必要ならアワーのオプション設定を変更してください。

@name EGP'Clock
@inputs EGP:wirelink
@outputs SEC MIN HOUR
@persist HoldSound
@trigger
interval(100)

#define
SEC=time("sec")
MIN=time("min")
HOUR=time("hour")+9

#Init
S_ORIGIN_EGP=20
M_ORIGIN_EGP=22
H_ORIGIN_EGP=23
S_HAND_EGP=24
M_HAND_EGP=25
H_HAND_EGP=26

if(first()|dupefinished()){
EGP:egpClear()

EGP:egpCircle(S_ORIGIN_EGP,vec2(256,256),vec2(10,10))
EGP:egpCircle(M_ORIGIN_EGP,vec2(256,256),vec2(10,10))
EGP:egpCircle(H_ORIGIN_EGP,vec2(256,256),vec2(10,10))

EGP:egpLine(S_HAND_EGP,vec2(0,0),vec2(0,250))
EGP:egpLine(M_HAND_EGP,vec2(0,0),vec2(0,225))
EGP:egpLine(H_HAND_EGP,vec2(0,0),vec2(0,175))

EGP:egpSize(S_HAND_EGP,1)
EGP:egpSize(M_HAND_EGP,2.8)
EGP:egpSize(H_HAND_EGP,5)

EGP:egpParent(S_HAND_EGP,S_ORIGIN_EGP)
EGP:egpParent(M_HAND_EGP,M_ORIGIN_EGP)
EGP:egpParent(H_HAND_EGP,H_ORIGIN_EGP)
}

if(first()|dupefinished()){
EGP:egpText(12,"12",vec2(245,10))


EGP:egpText(3,"3",vec2(492,245))


EGP:egpText(6,"6",vec2(252.5,487))

EGP:egpText(9,"9",vec2(10,245))
}

if(changed(SEC)){
EGP:egpAngle(S_ORIGIN_EGP,180-SEC*6)
EGP:egpAngle(M_ORIGIN_EGP,180-MIN*6)
EGP:egpAngle(H_ORIGIN_EGP,180-HOUR*30)
}

if(changed(SEC)&!HoldSound){
HoldSound=1
soundPlay(1,0,"physics/metal/weapon_footstep1.wav")
timer("SoundStop_T",50)
}
if(clk("SoundStop_T")&HoldSound){
HoldSound=0
soundStop(1)
}
スポンサーサイト
コメント












管理者にだけ表示を許可する
トラックバック
トラックバックURL:
http://dotdandayo.blog34.fc2.com/tb.php/136-d527e642
≪ トップページへこのページの先頭へ  ≫
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。