HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2012
0819
¤Æ¤ó¥«¥ì¥ó¥À¡¼¤ÎÇÛÃ֤κÇŬ²½¥¢¥ë¥´¥ê¥º¥à27̤²ò·è


¤Æ¤ó

¥ê¥ó¥¯

2012/8/19(Sun) 15:30:57|NO.48687

¥°¡¼¥°¥ë¥«¥ì¥ó¥À¡¼¤«¤é¤½¤ÎÆü°ìÆü¤ÎͽÄê¤ò¼èÆÀ¤·¤Æɽ¼¨¤¹¤ë¥×¥í¥°¥é¥à¤òºî¤Ã¤Æ¤¤¤Þ¤¹¡£
¸µ¤È¤Ê¤ëxml¥Ç¡¼¥¿¤Î¼èÆÀ¡¦²òÀϤϤ¹¤°¤Ç¤­¤¿¤Î¤Ç¤¹¤¬É½¼¨¤ÇǺ¤ó¤Ç¤¤¤Þ¤¹¡£

¥«¥ì¥ó¥À¡¼¤Ï½Ä¼´¤Ë»þ´Ö¼´¤ò¤È¤Ã¤¿¡¢°ìÆüñ°Ì¤Î¤â¤Î¤òºî¤ê¤¿¤¤¤È¹Í¤¨¤Æ¤¤¤Þ¤¹¡£
¡Ê¥°¡¼¥°¥ë¥«¥ì¥ó¥À¡¼¤Î°ìÆüɽ¼¨¤ÈÁ´¤¯Æ±¤¸¤â¤Î¤Ç¤¹¡£¡Ë

»È¤Ã¤¿¤³¤È¤¬¤¢¤ëÊý¤Ïʬ¤«¤ë¤È»×¤¤¤Þ¤¹¤¬
¥°¡¼¥°¥ë¥«¥ì¥ó¥À¡¼¤Ç¤Ï¡¢Æ±¤¸»þ´ÖÂӤ˽Ťʤä¿Í½Ä꤬¤¢¤ë¾ì¹ç¡¢
ͽÄê¤Î¥µ¥¤¥º¤È°ÌÃÖ¤ò¼«Æ°Ä´Àᤷ¤Æ¡¢É½¼¨¤¬½Å¤Ê¤é¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¯¤ì¤Þ¤¹¡£
¤³¤ÎµóÆ°¤Î¥¢¥ë¥´¥ê¥º¥à¤¬¤ï¤«¤é¤ºÇº¤ó¤Ç¤¤¤Þ¤¹¡£

¼«Ê¬¤Ê¤ê¤ËÀ°Íý¤·¤Æ
¡¦³ÆͽÄê¤Îɽ¼¨°ÌÃÖ£Ø,£Ù¤Èɽ¼¨¥µ¥¤¥ºW, H¤òµá¤á¤¿¤¤
¡¦Y,H¤Ë¤Ä¤¤¤Æ¤ÏͽÄê¤Î»þ´Ö¤«¤é·×»»¤Ç¤­¤ë¡£
¡¦£×¤Ï
¡Ê¥«¥ì¥ó¥À¡¼Á´ÂΤβ£Éý¡Ë¡à¡ÊƱ»þ¿Ê¹Ô¤¹¤ëͽÄê¤ÎºÇÂç¿ô¡Ë
¤Ç¤â¤È¤á¤é¤ì¤ë¡£

¤È¤¤¤¦¤È¤³¤í¤Þ¤Ç¹Ô¤­¤Þ¤·¤¿¡£
¤·¤«¤·¤É¤¦¤Ë¤âͽÄê¤Îɽ¼¨°ÌÃÖX¤¬µá¤á¤é¤ì¤Þ¤»¤ó¡£
¤É¤Ê¤¿¤«¡¢¤´¶µ¼ø¤¯¤À¤µ¤¤¡£



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


Makoto

¥ê¥ó¥¯

2012/8/19(Sun) 22:14:26|NO.48691

¥°¡¼¥°¥ë¥«¥ì¥ó¥À¡¼¤Ï»È¤Ã¤¿¤³¤È¤¢¤ê¤Þ¤»¤ó¤¬¡¢
ñ½ã¤Ë²£¤Ëʤ٤ë¤Î¤Ç¤¢¤ì¤Ð¡¢

°ì¤ÄÌÜ¡§X¡á£°¡Ê¥«¥ì¥ó¥À¡¼¤Îº¸Ã¼¡Ë
Æó¤ÄÌÜ¡§X¡áW
»°¤ÄÌÜ¡§X¡áW¡ß£²
°Ê²¼Æ±ÍÍ

¤ÇÎɤ¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/19(Sun) 22:47:03|NO.48692

¤¹¤¤¤Þ¤»¤ó¡¢ÀâÌÀÉÔ­¤Ç¤·¤¿¡£
¤µ¤é¤Ë¼«Ê¬¤¬¹Í¤¨¤¿W¤Îµá¤áÊý¤â¸í¤ê¤Ç¤·¤¿¡£

ÌäÂê¤òÀ°Íý¤¹¤ë¤È

¡¦ev_start:ͽÄê¤Î³«»Ï»þ¹ï
¡¦ev_duration:ͽÄê¤Î·Ñ³»þ´Ö
¡¦Wbase,Hbase:¥«¥ì¥ó¥À¡¼Á´ÂΤβ£Éý¡¢¹â¤µ

¤¬Í¿¤¨¤é¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤é¤òÍøÍѤ·¤Æ

¡¦ev_X,ev_Y:ͽÄê¤ÎÇÛÃÖ°ÌÃÖ
¡¦ev_H,ev_W:ͽÄê¤Î¥µ¥¤¥º

¤òµá¤á¤è¤¦¤È¤·¤Æ¤¤¤Þ¤¹¡£¤½¤ÎºÝ¤Ëµ¡Ç½¤¬Ëþ¤¿¤¹¤Ù¤­Í×·ï¤Ï

¡ÚÍ×·ï¡Û
­¡Í½Äê¤Ï¥«¥ì¥ó¥À¡¼¤Î²£Éý°ìÇÕ¤Þ¤ÇËä¤Þ¤Ã¤Æ¤Ê¤¤¤È¤¤¤±¤Ê¤¤
¡ÊËä¤Þ¤Ã¤Æ¤¤¤Ê¤¤¤È¤·¤¿¤é¡¢ev_W¤¬¾®¤µ¤¹¤®¤ë¤«¡¢Í½Äê¤Îʤӽ礬ÉÔŬ¡Ë
­¢Í½Äê¤Ï¤«¤µ¤Ê¤Ã¤Æɽ¼¨¤µ¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£

¤Î£²ÅÀ¤Ç¤¹¡£

Îã¤È¤·¤Æ¡¢°Ê²¼¤ÎÍͤÊ4¸Ä¤ÎͽÄê¤ò¹Í¤¨¤Þ¤¹¡£

ev1 10:00¡Á11:00
ev2 10:00¡Á12:00
ev3 10:00¡Á11:00
ev4 11:00¡Á12:00

¤³¤Î¾ì¹çev1¤ÏºÇÂç3¤Ä¤ÎͽÄê¡Ê¼«Ê¬´Þ¤à¡Ë¤ÈƱ»þ¿Ê¹Ô¤·¤Þ¤¹¡£¡Ê10:00¡Á11:00¡Ë
¤è¤Ã¤Æev1_W = Wbase/3 ¤È¤Ê¤ê¤Þ¤¹¡£ev2_W, ev3_W ¤âƱÍͤǤ¹¡£
²¾¤ËWbase = 3¤È¤·¤¿¤é¡¢ev1_W = ev2_W = ev3_W = 1 ¤È¤Ê¤ê¤Þ¤¹¡£

¤³¤³¤Ç¡¢Í×·ï­¡¤òËþ¤¿¤¹¤¿¤á¤Ë¤Ï
ev4_W = 2¡¢ev2_X = 0 ¤È¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¡Ê¤½¤¦¤·¤Ê¤¤¤È11:00¡Á12:00¤ÎÏȤ˷ä´Ö¤¬À¸¤¸¤Æ¤·¤Þ¤¦¡Ë

¤³¤ÎºÇŬ²ò¤òµá¤á¤ë¤¿¤á¤Î¥¢¥ë¥´¥ê¥º¥à¤¬Ê¬¤«¤ê¤Þ¤»¤ó¡£

¼«Ê¬¤ÎÊýË¡¤Ç¤¹¤È¡¢ev4¤Ïev1¤È¤Î¤ßƱ»þ¿Ê¹Ô¤·¤Þ¤¹¤Î¤Ç
ev4_W = Wbase/2 = 1.5 ¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

Makoto¤µ¤ó¤ÎÊýË¡¤Ç¤¹¤È¡¢º£²ó¤Î¾ì¹ç¡¢ev2_X = 1¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¡¢
11:00¡Á12:00¤ÎÏȤ˷ä´Ö¤¬À¸¤¸¤Æ¤·¤Þ¤¤¤Þ¤¹¡£

·ë¶É¡¢¤É¤Á¤é¤Î¾ì¹ç¤âÍ×·ï­¡¤òËþ¤¿¤»¤Þ¤»¤ó¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/19(Sun) 22:56:37|NO.48693

¿Þ¤òÍÑ°Õ¤·¤Þ¤·¤¿
http://temperman.6.ql.bz/calendar.jpg
±¦¤¬À®¸ùÎã¡¢º¸¤¬¼ºÇÔÎã¤Ç¤¹¡£
ev2¤¬Ãæ±û(ev2_X=1)¤ËÍè¤Æ¤·¤Þ¤¦¤Èev_4¤ò¤É¤¦ÇÛÃÖ¤·¤Æ¤â
11:00¡Á12:00¤ÎÏȤ˷ä´Ö¤¬¤Ç¤­¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤è¤Ã¤Æ¡¡ev2_X = 0 (¤Þ¤¿¤Ï2¡Ë¡¢ev4_W = 2 ¤¬³ÎÄꤷ¤Þ¤¹¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/19(Sun) 23:02:42|NO.48694

Ï¢Åꤹ¤¤¤Þ¤»¤ó¡£

¤è¤¯¹Í¤¨¤¿¤é¡¢°Ê²¼¤ÎÍͤʾõ¶·¤Î¾ì¹ç¤ÏÀäÂФËÍ×·ï­¡¤òËþ¤¿¤»¤Þ¤»¤ó¤Í¡£
http://temperman.6.ql.bz/calendar2.jpg

¤Ç¤¹¤Î¤ÇÍ×·ï­¡¤Ï¡ÖËþ¤¿¤»¤ë¸Â¤ê¤ÏËþ¤¿¤¹¡×¤È¤·¤Þ¤¹¡£
ºÇŬ²ò¤òµá¤á¤ë¥¢¥ë¥´¥ê¥º¥à¡¢¤É¤Ê¤¿¤«¹Í¤¨Êý¤À¤±¤ÇÎɤ¤¤Î¤Ç¤´µý¼õ¤¯¤À¤µ¤¤



¥Â¥ª¥ó

¥ê¥ó¥¯

2012/8/20(Mon) 05:47:09|NO.48695

½ÄÎó¤Ç¤Þ¤ºÉÁ²è¤ò¹Ô¤Ã¤Æ¡¢ÎÙ¤ÎÎó¤È½ÅÊ£¤¹¤ëÈϰϤΡ¢¶­³¦Àþ¤òÅɤê¤Ä¤Ö¤·¤¿¤é¤É¤¦¤Ç¤·¤ç¤¦¤«¡©


#const border 1 #const lwidth 60 #const vertical 4 dim y,2,3 y(0,0) = 150,320 y(0,1) = 20,200 y(0,2) = 40,300 y(0,3) = 290,450 // ¥°¥é¥Õ¤ÎÉÁ²è repeat vertical // ¶­³¦Àþ¤Î¤¢¤ë¡¢»Í³Ñ·Á¤ÎÉÁ²è l = cnt*lwidth color boxf l , y(0,cnt) , l+lwidth-1 , y(1,cnt)-1 color 200,200,255 boxf l+border , y(0,cnt)+border , l+lwidth-border-1 , y(1,cnt)-border-1 loop wait 100 repeat vertical-1 i = cnt+1 if(y(0,cnt) > y(0,i)):ry=y(0,cnt) :else:ry=y(0,i) // Â礭¤¤Êý¤òÊÖ¤·¤Þ¤¹ if(y(1,cnt) < y(1,i)):ry2=y(1,cnt) :else:ry2=y(1,i) // ¾®¤µ¤¤Êý¤òÊÖ¤·¤Þ¤¹ l=i*lwidth boxf l-border,ry+border,l+border-1,ry2-border-1 loop



YSR

¥ê¥ó¥¯

2012/8/20(Mon) 09:58:43|NO.48698

¤³¤ì¤É¤³¤ÎICPC¤Ê¤Î¡Ä¡Ä
¥Ò¥å¡¼¥ê¥¹¥Æ¥£¥¯¥¹¤È¤·¤Æ¤Ï¡¢
¡¦ev_W¡á¹àÌÜ¿ô(n¤ÈÃÖ¤¯)¤Ç½é´ü²½
¡¦Í½Äê¡Ö½ªÎ»¡×»þ¹ï¤¬ºÇ¤âÁᤤͽÄ꤫¤é½ç¤Ë¡Öº¸¤«¤é¡×ÇÛÃÖ¤·¤Æ¤¤¤¯¡£
¤³¤ÎºÝ¡¢¤½¤ÎͽÄ곫»Ï»þ¹ï¤¬¡¢´û¸¤ÎÇÛÃֺѤßͽÄê¤ÎºÇ¤âÁᤤ½ªÎ»»þ¹ï¤è¤êÃÙ¤«¤Ã¤¿¤é¡¢
¤½¤ÎͽÄê¤Î¾å¤ËÇÛÃÖ¤¹¤ë¤è¤¦¤Ë¤¹¤ë¡£
¡¦ÇÛÃָ塢ev_W¡á¾ÃÈñ¤·¤¿²£Éý¤È¤·¤Æ¡¢ÉÁ²è¤ò¥¹¥¿¡¼¥È¤µ¤»¤ë¡£¤¿¤À¤·¡¢
ÉÁ²è¤Ï¡Öº¸±¦¤òȿž¡×¤µ¤»¤Æ¹Ô¤¦¡£

¤Æ¤Ê¤È¤³¤«¡©¡¡Å¬Åö¤Ë½ñ¤¤¤¿¥³¡¼¥É¤ò»¯¤·¤Æ¤ß¤ë¡£

;²ÐÎù¡Ä¡Ä¥«¥ì¥ó¥À¡¼ÌäÂê #module #defcfunc evposx double x return Wbase@-x/ev_W@*Wbase@+time_W@ #defcfunc evposy double y return (y-ev_H_start@)/ev_H@*Hbase@ #global ;½é´ü²½ n=4 ;ͽÄê¿ô dim ev_start,n ;ͽÄ곫»Ï»þ¹ï dim ev_duration,n ;ͽÄê·Ñ³»þ´Ö dim ev_end,n ;ͽÄ꽪λ»þ¹ï dim ev_X,n :dim ev_Y,n ;ͽÄê¤Îɽ¼¨°ÌÃÖ(¤½¤ì¤¾¤ìñ°Ì¡¦·Ð²á»þ´Ö(ʬ)¤Î»ØÄê) dim ev_last,n ;ͽÄê¤Î³ÆÎó¤Ç¤ÎºÇ®½ªÎ»»þ¹ï Wbase=400 :Hbase=400 ;¥«¥ì¥ó¥À¡¼¤Îɽ¼¨¥µ¥¤¥º time_W=50 ;»þ¹ïɽ¼¨ÍÑÉý ev_H=60*24 :ev_W=n ;ͽÄê¤Î¥µ¥¤¥º fontsize=16 ;ɽ¼¨Ê¸»ú¥µ¥¤¥º ;¥Ç¡¼¥¿ÆþÎÏ ev_start.0=10*60,10*60,10*60,11*60 ;0:00¤«¤é¤Î·Ð²á»þ´Ö¤òminute¤Ç»ØÄê ev_duration.0=60,120,60,60 ;·Ñ³»þ´Ö¤òminute¤Ç»ØÄê ;½èÍý³«»Ï ;1. ½ªÎ»»þ¹ï¤ò·×»» for k,0,n ev_end(k)=ev_start(k)+ev_duration(k) next ;2. ÇÛÃÖ¤·¤Æ¤¤¤¯(°ìö¥½¡¼¥È¤·¤¿¸åÇÛÃÖ) for i,0,n-1 for j,i+1,n if ev_end(i)>ev_end(j) { w=ev_start(i) :ev_start(i)=ev_start(j) :ev_start(j)=w w=ev_duration(i) :ev_duration(i)=ev_duration(j) :ev_duration(j)=w w=ev_end(i) :ev_end(i)=ev_end(j) :ev_end(j)=w } next next ev_H_start=ev_start(0) :ev_H_end=ev_end(n-1);ͽÄê¤ÎºÇ®³«»Ï»þ¹ï/ºÇÃÙ½ªÎ»»þ¹ï ev_last(0)=ev_end(0) ev_X_early=0 :ev_end_early=ev_last(0) ;ͽÄê¤ÎºÇ®½ªÎ»»þ¹ï¤È¤½¤ÎͽÄê°ÌÃÖ ev_X(0)=0 :ev_Y(0)=ev_start(0) ;ͽÄê¤Îɽ¼¨°ÌÃÖ ev_W_now=1 ;¸½ºß¤Î²£Éý for k,1,n if ev_end_early<=ev_start(k) { ev_X(k)=ev_X_early ev_last(ev_X_early)=ev_end(k) ev_X_early=0 :ev_end_early=ev_last(0) for w,0,ev_W_now if ev_end_early>ev_last(w) { ev_X_early=w :ev_end_early=ev_last(w) } next } else { ev_X(k)=ev_W_now ev_W_now+ } ev_Y(k)=ev_start(k) if ev_Y(k)<ev_H_start :ev_H_start=ev_Y(k) next ev_H=ev_H_end-ev_H_start :ev_W=ev_W_now ;ÉÁ²è screen 0,Wbase+time_W,Hbase :title "¥«¥ì¥ó¥À¡¼" font msgothic,fontsize for k,0,n ;ͽÄêɽ¼¨ color 255,204,0 boxf evposx(ev_X(k)),evposy(ev_Y(k)),evposx(ev_X(k)+1),evposy(ev_Y(k)+ev_duration(k)) color line evposx(ev_X(k)),evposy(ev_Y(k)),evposx(ev_X(k)+1),evposy(ev_Y(k)) line evposx(ev_X(k)+1),evposy(ev_Y(k)),evposx(ev_X(k)+1),evposy(ev_Y(k)+ev_duration(k)) line evposx(ev_X(k)+1),evposy(ev_Y(k)+ev_duration(k)),evposx(ev_X(k)),evposy(ev_Y(k)+ev_duration(k)) line evposx(ev_X(k)),evposy(ev_Y(k)+ev_duration(k)),evposx(ev_X(k)),evposy(ev_Y(k)) pos evposx(0.5+ev_X(k)),evposy(0.5*ev_duration(k)+ev_Y(k)) :mes "ev_"+k next for time,0,24 ;»þ¹ïɽ¼¨ posy=evposy(time*60)-fontsize/2 if posy<0 :if posy+fontsize>=0 :posy=0 :else :_continue if posy+fontsize>Hbase-1 :if posy<=Hbase-1 :posy=Hbase-1-fontsize :else :_continue pos 0,posy :mes strf("%02d",time)+":00" next stop
¡¡¤¿¤À¤·¡¢¤³¤Î¥³¡¼¥É¤Ç¤Ï¡¢http://temperman.6.ql.bz/calendar.jpg±¦¿Þ¤Î¤è¤¦¤Ë¡¢
¡Ö¼«Æ°Åª¤ËͽÄê¤Î²£Éý¤ò¹­¤²¤ëµ¡Ç½¡×¤Ë¤ÏÂбþ¤·¤Æ¤¤¤Ê¤¤¡Ä¡Ä¡ª
¡¡¤½¤ì¤Ç¤âÎɤ±¤ì¤Ð¤É¡¼¤¾¡£Google¥«¥ì¥ó¥À¡¼»È¤Ã¤¿¤³¤È̵¤¤¤«¤é´¶³Ð¤¬Ê¬¤«¤é¤ó¡£



YSR

¥ê¥ó¥¯

2012/8/20(Mon) 10:29:25|NO.48701

¥µ¥é¥Ã¤È´Ö°ã¤¨¤Æ¤·¤Þ¤Ã¤¿¡¢¤¹¤Þ¤ó¡£
>if ev_end(i)>ev_end(j) {
¤ò
>if (ev_end(i)>ev_end(j))|((ev_end(i)=ev_end(j))&(ev_start(i)<ev_start(j))) {
¤Ë¡¢
>ev_X(k)=ev_W_now
>ev_W_now+
¤ò
>ev_X(k)=ev_W_now
>ev_last(ev_W_now)=ev_end(k)
>ev_W_now+
¤Ë¤·¤Æ¤¯¤ì¡Ä¡Ä¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/20(Mon) 17:12:43|NO.48702

¥Â¥ª¥óÍÍ
¤¹¤¤¤Þ¤»¤ó¤¬¤â¤¦¾¯¤·¾Ü¤·¤¯¥¢¥ë¥´¥ê¥º¥à¤òÀâÌÀ¤·¤Æ¤¤¤¿¤À¤¤¤Æ¤â¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡£

YSRÍÍ
¤³¤ÎÊýË¡¤À¤È°Ê²¼¤ÎÍͤʾì¹ç¤Ë¤ÏÁ°½Ò¤ÎÌäÂê¤ÈƱÍͤÎÌäÂ꤬µ¯¤­¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
ev1 11:00¡Á12:00
ev2 10:00¡Á12:00
ev3 11:00¡Á12:00
ev4 10:00¡Á11:00

¤Ê¤ó¤«¡¢ÁÛÁü¤·¤Æ¤¤¤¿°Ê¾å¤ËÆñ¤·¤¤ÌäÂê¤À¤Ã¤¿¤ß¤¿¤¤¤Ç¤¹¡£
¼«Ê¬¤Ç¤â¤â¤¦¾¯¤·¹Í¤¨¤Þ¤¹¤Î¤Ç¡¢²¿¤«¤ï¤«¤ë¤³¤È¤¬¤¢¤ì¤Ð¤¼¤Ò½ñ¤­¹þ¤ß¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/20(Mon) 17:55:07|NO.48703

¿÷·Á¤òºîÀ®¤·¤Þ¤·¤¿¡£
¤â¤·¡¢º£¸å¤³¤ÎÌäÂê¤ò¹Í¤¨¤Æ¤¯¤À¤µ¤ë¾ì¹ç¡¢É¬ÍפǤ¢¤ì¤Ð°Ê²¼¤ò¤´ÍøÍѤ¯¤À¤µ¤¤¡£

¤Ê¤ª¡¢¥¤¥Ù¥ó¥È¤Ë´Ø¤¹¤ëÊÑ¿ô¡Êev_·ÏÎó)¤Ëɽµ­¤òÅý°ì¤·¤Æ¡¢
Hbase, Wbase ¤òbase_H, base_W ¤È²þ¤á¤Þ¤·¤¿¡£


;½é´ü²½ #const n 4 ;¥¤¥Ù¥ó¥È¤Î¸Ä¿ô ;¥¤¥Ù¥ó¥È¤Ë´Ø¤¹¤ëÊÑ¿ô dim ev_start, n ;³«»Ï»þ¹ï dim ev_end, n ;½ªÎ»»þ¹ï dim ev_duration, n ;·Ñ³»þ´Ö dim ev_X, n ;ɽ¼¨°ÌÃ֤κ¸¾åXºÂɸ dim ev_Y, n ;ɽ¼¨°ÌÃ֤κ¸¾åYºÂɸ dim ev_W, n ;ɽ¼¨¤µ¤ì¤ëÉý dim ev_H, n ;ɽ¼¨¤µ¤ì¤ë¹â¤µ ;------------------½é´üÀßÄꤳ¤³¤«¤é--------------- base_H = 400 base_W = 400 ev_start = 600, 600, 600, 660 ev_duration = 60, 120, 60, 60 ;------------------½é´üÀßÄꤳ¤³¤Þ¤Ç--------------- ;ev_end, base_start, base_end, base_duration ¤òµá¤á¤ë½èÍý base_start = ev_start(0) for i, 0, n ev_end(i) = ev_start(i) + ev_duration(i) if base_start > ev_start(i) : base_start = ev_start(i) if base_end < ev_end(i) : base_end = ev_end(i) next base_duration = base_end - base_start ;ev_Y, ev_H¤òµá¤á¤ë½èÍý for i, 0, n ev_Y(i) = base_H * (ev_start(i)-base_start) / base_duration ev_H(i) = base_H * ev_duration(i) / base_duration next ;------------------ºÇŬ²½½èÍý¤³¤³¤«¤é--------------- ;------------------ºÇŬ²½½èÍý¤³¤³¤Þ¤Ç--------------- ;ÉÁ²è screen 0, base_W, base_H for i, 0, n color 255, 210, 0 boxf ev_X(i), ev_Y(i), ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i) color 0,0,0 line ev_X(i), ev_Y(i), ev_X(i), ev_Y(i)+ev_H(i) line ev_X(i), ev_Y(i)+ev_H(i), ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i) line ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i), ev_X(i)+ev_W(i), ev_Y(i) line ev_X(i)+ev_W(i), ev_Y(i), ev_X(i), ev_Y(i) pos ev_X(i)+5, ev_Y(i)+5 mes "Event" + i next stop



¤Æ¤ó

¥ê¥ó¥¯

2012/8/20(Mon) 17:57:24|NO.48704

¿÷·Á¤Î»È¤¤Êý¤ò½ñ¤­Ëº¤ì¤Æ¤¤¤Þ¤·¤¿¡£

½é´üÀßÄê¤ÎÍó¤Ç¤Ï¥¤¥Ù¥ó¥È¤Î³«»Ï»þ¹ï¤ª¤è¤Ó·Ñ³»þ´Ö¤òʬñ°Ì¤Ç»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£
¤Ê¤ª¡¢¥¤¥Ù¥ó¥È¤Î¸Ä¿ô¤òÊѹ¹¤¹¤ë¾ì¹ç¤Ïn¤ÎÃͤòÊѹ¹¤¹¤ë¤Î¤ò˺¤ì¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£

ºÇŬ²½½èÍý¤ÎÍó¤Ë¤Ïev_X, ev_W ¤òµá¤á¤ë¥¢¥ë¥´¥ê¥º¥à¤òµ­Æþ¤·¤Æ¤¯¤À¤µ¤¤¡£



£³£ë

¥ê¥ó¥¯

2012/8/20(Mon) 21:37:16|NO.48706

¡ÖÌÌÇò¤½¤¦¤Ç¤¹¤Í¡×¤È»×¤Ã¤Æ¤ä¤Ã¤¿¤é¡ÄÉáÄ̤ˡÄÆñ¤·¤¤¡Ä


;½é´ü²½ randomize setup_idx = 0 goto *begin *begin switch( setup_idx ) case 0 n = 4 swbreak case 1 n = 4 + rnd(10) swbreak swend ;¥¤¥Ù¥ó¥È¤Ë´Ø¤¹¤ëÊÑ¿ô dim ev_start, n ;³«»Ï»þ¹ï dim ev_end, n ;½ªÎ»»þ¹ï dim ev_duration, n ;·Ñ³»þ´Ö dim ev_X, n ;ɽ¼¨°ÌÃ֤κ¸¾åXºÂɸ dim ev_Y, n ;ɽ¼¨°ÌÃ֤κ¸¾åYºÂɸ dim ev_W, n ;ɽ¼¨¤µ¤ì¤ëÉý dim ev_H, n ;ɽ¼¨¤µ¤ì¤ë¹â¤µ ;------------------½é´üÀßÄꤳ¤³¤«¤é--------------- base_H = 400 base_W = 400 switch( setup_idx ) case 0 ev_start = 600, 600, 600, 660 ev_duration = 60, 120, 60, 60 swbreak case 1// random case repeat n ev_start(cnt) = 600 + 10*rnd(12) ev_duration(cnt) = 10 + 10*rnd(11) loop swbreak swend ;------------------½é´üÀßÄꤳ¤³¤Þ¤Ç--------------- ;ev_end, base_start, base_end, base_duration ¤òµá¤á¤ë½èÍý base_start = ev_start(0) for i, 0, n ev_end(i) = ev_start(i) + ev_duration(i) if base_start > ev_start(i) : base_start = ev_start(i) if base_end < ev_end(i) : base_end = ev_end(i) next base_duration = base_end - base_start ;ev_Y, ev_H¤òµá¤á¤ë½èÍý for i, 0, n ev_Y(i) = base_H * (ev_start(i)-base_start) / base_duration ev_H(i) = base_H * ev_duration(i) / base_duration next ;------------------ºÇŬ²½½èÍý¤³¤³¤«¤é--------------- // Æñ¤·¤¤¤Î¤Ç¥Ê¥¤¡¼¥Ö¤Ë TL_EV_START = 0 TL_EV_END = 1 dim tlEventTime, n*2 + 1 dim tlEventCont, n*2 + 1 dim tlEventCooc, n*2 + 1// after goto *@forward #defcfunc isTlEvLower int l, int r // compare < time, cont > if ( tlEventTime(l) == tlEventTime(r) ) { return ( tlEventCont(l) > tlEventCont(r) )// end is prior to } return ( tlEventTime(l) < tlEventTime(r) ) *@ tlEventCount = 0 repeat n tlEventTime(tlEventCount) = ev_start(cnt) tlEventCont(tlEventCount) = TL_EV_START tlEventCount++ tlEventTime(tlEventCount) = ev_end(cnt) tlEventCont(tlEventCount) = TL_EV_END tlEventCount++ loop // sort idx by <time,cont> c asc dim tlEventSortedIdx, tlEventCount + 1 repeat tlEventCount tlEventSortedIdx(cnt) = cnt loop if ( tlEventCount > 1 ) { repeat tlEventCount-1 tidx = cnt+1 if ( isTlEvLower( tlEventSortedIdx(tidx), tlEventSortedIdx(tidx-1) ) ) { tmidx = tlEventSortedIdx(tidx) repeat tlEventCount tlEventSortedIdx(tidx) = tlEventSortedIdx(tidx-1) tidx-- if ( tidx <= 0 ) : break if ( isTlEvLower( tmidx, tlEventSortedIdx(tidx-1) ) ^ 1 ) : break loop tlEventSortedIdx(tidx) = tmidx } loop } // set cooc coocNum = 0 repeat tlEventCount tidx = tlEventSortedIdx(cnt) switch( tlEventCont(tidx) ) case TL_EV_START coocNum++ swbreak case TL_EV_END coocNum-- // check if ( coocNum < 0 ) { // ¤ª¤«¤·¤¤¡Ä } swbreak swend tlEventCooc(tidx) = coocNum loop // sort idx by cooc desc dim tlEventSortedIdxByCooc, tlEventCount + 1 repeat tlEventCount tlEventSortedIdxByCooc(cnt) = cnt loop if ( tlEventCount > 1 ) { repeat tlEventCount-1 tidx = cnt+1 if ( tlEventCooc(tlEventSortedIdxByCooc(tidx)) > tlEventCooc(tlEventSortedIdxByCooc(tidx-1)) ) {// greater is 'lower' tmidx = tlEventSortedIdxByCooc(tidx) repeat tlEventCount tlEventSortedIdxByCooc(tidx) = tlEventSortedIdxByCooc(tidx-1) tidx-- if ( tidx <= 0 ) : break if ( tlEventCooc(tmidx) <= tlEventCooc(tlEventSortedIdxByCooc(tidx-1)) ) : break loop tlEventSortedIdxByCooc(tidx) = tmidx } loop } // calculate w repeat tlEventCount tidx = tlEventSortedIdxByCooc(cnt) if ( tlEventCont(tidx) != TL_EV_START ) : continue// check start only evIdxPoolNum = 0 dim evIdxPool, n+1 repeat n if ( ( ev_start(cnt) <= tlEventTime(tidx) ) && ( ev_end(cnt) > tlEventTime(tidx) ) ) {// end¤Ï¥Î¡¼¥«¥ó evIdxPool(evIdxPoolNum) = cnt evIdxPoolNum++ } loop // check if ( evIdxPoolNum != tlEventCooc(tidx) ) { // ºÇÂ祱¡¼¥¹¤¸¤ã¤Ê¤¤¤Ã¤Ý¤¤¤Î¤Çµ¢¤ë // ËÜÍè¤Ê¤éƱ¤¸»þ´Ö¤Ï½ÌÂह¤ë¤Ù¤­¤À¤Ã¤¿¤³¤È¤Ëµ¤ÉÕ¤¤¤¿¤Î¤¬¤³¤ÎÊÕ continue } evEmptyNum = 0 evLeftW = base_W repeat evIdxPoolNum tmidx = evIdxPool(cnt) if ( ev_W(tmidx) == 0 ) { evEmptyNum++ } else { evLeftW -= ev_W(tmidx) } loop if ( evEmptyNum > 0 ) { repeat evIdxPoolNum tmidx = evIdxPool(cnt) if ( ev_W(tmidx) == 0 ) { ev_W(tmidx) = evLeftW / evEmptyNum } loop } loop // calculate x // ¤³¤³Å¬Åö¡§ev_end¤¬Áᤤ½ç¤Ëgreedy¡¢¤½¤ì¤Ã¤Ý¤¯¤Ê¤ë¤¬´Ö°ã¤Ã¤Æ¤ë // ¿ʬËÜÅö¤Î²òË¡¤Ïgreedy¤¸¤ã¤Ê¤¤¤Ã¤Ý¤¤¡¢¤·¤«¤·ÌÌÅݤʤΤǤ³¤³¤Þ¤Ç¤Ç¡Ä dim evSortedIdxByEnd, n+1 repeat n evSortedIdxByEnd(cnt) = cnt loop if ( n > 1 ) { repeat n-1 tidx = cnt+1 if ( ev_end(evSortedIdxByEnd(tidx)) < ev_end(evSortedIdxByEnd(tidx-1)) ) { tmidx = evSortedIdxByEnd(tidx) repeat n evSortedIdxByEnd(tidx) = evSortedIdxByEnd(tidx-1) tidx-- if ( tidx <= 0 ) : break if ( ev_end(tmidx) >= ev_end(evSortedIdxByEnd(tidx-1)) ) : break loop evSortedIdxByEnd(tidx) = tmidx } loop } // det // ±¦Ã¼¤ò»È¤¦¤Èº¸¤¬¶õ¤¯¤³¤È¤¬¤¢¤ë¤Î¤Ç¡¢º¸¤ËÆþ¤ì¤ë¤Ê¤é¤½¤Î¤Þ¤Þ¤Ë¤¹¤ë allowedPenetration = 3// À°¿ô¤Ç±é»»¤Î¤»¤¤¤Ç»ÄÇ°¤Ê¤³¤È¤Ë¤Ê¤ëÁ°¤Ë¡¢¤Á¤ç¤Ã¤È¤Î¤á¤ê¹þ¤ß¤ÏµöÍÆ repeat n tidx = evSortedIdxByEnd(cnt) rightMost = 0 befNum = cnt if ( befNum > 0 ) { repeat befNum// ÌÌÅݤʤΤǹ¹¿·¤¬É¬Íפʤ¯¤Æ¤âºÇÂ祱¡¼¥¹²ó¤¹ repeat befNum tmidx = evSortedIdxByEnd(cnt) if ( ( ev_start(tidx) < ev_end(tmidx) ) && ( ev_end(tidx) > ev_start(tmidx) ) ) {// aabb y if ( ( rightMost < (ev_X(tmidx)+ev_W(tmidx)-allowedPenetration) ) && ( (rightMost+ev_W(tidx)-allowedPenetration) > ev_X(tmidx) ) ) {// x tRight = ev_X(tmidx) + ev_W(tmidx) if ( rightMost < tRight ) : rightMost = tRight } } loop loop } ev_X(tidx) = rightMost // check if ( ev_X(tidx)+ev_W(tidx) > (base_W+allowedPenetration) ) { // ¤Ï¤ß½Ð¤·¤Æ¤ë } loop ;------------------ºÇŬ²½½èÍý¤³¤³¤Þ¤Ç--------------- ;ÉÁ²è screen 0, base_W+200, base_H+200// Á´ÂΤ¬¸«¤¨¤ë¤è¤¦¤Á¤ç¤Ã¤ÈÂ礭¤á for i, 0, n color 255, 210, 0 boxf ev_X(i), ev_Y(i), ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i) color 0,0,0 line ev_X(i), ev_Y(i), ev_X(i), ev_Y(i)+ev_H(i) line ev_X(i), ev_Y(i)+ev_H(i), ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i) line ev_X(i)+ev_W(i), ev_Y(i)+ev_H(i), ev_X(i)+ev_W(i), ev_Y(i) line ev_X(i)+ev_W(i), ev_Y(i), ev_X(i), ev_Y(i) pos ev_X(i)+5, ev_Y(i)+5 mes "Event" + i next pos base_W, 0 button goto "randomize", *random_setup stop *random_setup setup_idx = 1 goto *begin end

¤Æ¤ó¤µ¤ó¤Î¤Ò¤Ê·Á¤ò¾¯¡¹Ï®¤Ã¤Æ¤ª¤ê¤Þ¤¹¡¢¡Örandomize¡×¥Ü¥¿¥ó¤ò²¡¤¹¤È¥é¥ó¥À¥à¤Ë¥Ç¡¼¥¿¤¬À¸À®¤µ¤ì¤Þ¤¹¡£

Éý¤òµá¤á¤ëÊý¤Ï¤«¤Ê¤ê¥Ê¥¤¡¼¥Ö¤Ë½ñ¤¤¤¿¤Î¤Ç¡¢ÂçÂΤΥ±¡¼¥¹¤Ç¡Ê½èÍý¤¬ÃÙ¤¤¤Ê¤¬¤é¡ËÂç¾æÉפÀ¤È»×¤¤¤Þ¤¹¡£
¤à¤·¤í°ÌÃÖX¤òµá¤á¤ëÊý¤¬¼ã´³Çº¤ß¤Þ¤·¤¿¡¢¤³¤ì¤¬Æñ¤·¤¤¡Ä¤È¤¤¤¦¤«ÌÌÅÝ¡£
¥¤¥Ù¥ó¥È¿ô¤¬Â¿¤¯¤Ê¤Ã¤¿¾ì¹ç¡¢°ÌÃÖX¤¬´Ö°ã¤Ã¤Æ¤·¤Þ¤¦²ÄǽÀ­¤¬¹â¤¤¤Ç¤¹¡£¡Ê¥¤¥Ù¥ó¥È¤òº¸±¦¤ÇÆþ¤ìÂؤ¨¤Æ¤¤¤¯¤È¤­¤Ã¤Á¤ê¼ý¤Þ¤ë¤è¤¦¤Ë¤Ï¤Ê¤ë¤ß¤¿¤¤¤Ç¤¹¡¢Ìܬ¤Ç¤¹¤¬¡Ë
¿¿ÌÌÌܤˤä¤ë¤Ê¤égreedy¤Ë¤ä¤é¤º¤Ë¡¢´Ö°ã¤Ã¤¿¤éÊ̤ÎÁȤ߹ç¤ï¤»¤Ç¥Á¥§¥Ã¥¯¡¢¤È¤¤¤¦¤è¤¦¤ÊºÆµ¢Åª¤ÊÁàºî¤¬É¬Íפˤʤꤽ¤¦¤Ç¤¹¡£
¤½¤¦¤¤¤¦¤Î¤ò½ñ¤¯¤Î¤Ï¤Ê¤«¤Ê¤«¹ü¤¬ÀÞ¤ì¤ë¤ó¤Ç¤¹¤è¤ÍHSP¡Ä¤Ê¤Î¤Ç¤³¤³¤Þ¤Ç¡£

¥Ê¥¤¡¼¥Ö¤È¸À¤¤¤Ä¤Ä¤«¤Ê¤êʬ¤«¤ê¤Å¤é¤¤½ñ¤­Êý¤Ë¤Ê¤Ã¤Æ¤Þ¤¹¤Í¡¢¤¦¡¼¤ó¡¢ÉûºîÍѤȤ«Á´Á³¹Í¤¨¤º¤ËŬÅö¤Ë½ñ¤¤¤Æ¤·¤Þ¤Ã¤¿¡Ä¡£

¤Þ¤¢¡¢¤³¤ó¤Ê´¶¤¸¤Ç¤ä¤Ã¤Æ¤ß¤Æ¤â¤¤¤¤¤Î¤«¡¢ÄøÅÙ¤Çį¤á¤Æ失¤ë¤ÈÍ­Æñ¤¤¤Ç¤¹¡£



774

¥ê¥ó¥¯

2012/8/20(Mon) 22:42:26|NO.48711

¤Ï¤¸¤á¤Þ¤·¤Æ¡£
·Ñ³»þ´Ö¤ÎŤ¤Í½Ä꤫¤é¡¢¤Ç¤­¤ë¤À¤±º¸¤ÎÎó¤ËÇÛÃÖ¤¹¤ë¤È¤¤¤¦¤Î¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡©

Á´¤ÆÇÛÃָ塢±¦Â¦¤Î¶õ¤­Îΰè¤ÇȽÃǤ·¤Æ¿­¤Ð¤·¤¿¤ê±¦¤Ë°Ü¤·¤¿¤ê¡Ä¤È¡£

#const cMaxE 8 ;ºÇĹͽÄê»þ´Ö(¤Ç¤Ã¤Á¾å¤²ÍÑ #define draw redraw 1 : redraw 0 title "Hit Any Key [Esc:EXIT]" randomize : font msGothic,,16 redraw 0 : color repeat 5 line 22,cnt*96+32,31,cnt*96+32 pos 8,cnt*96+26 : mes strf("%2d",cnt*6) loop goto *Main #deffunc kwait ;ÆþÎÏÂÔ¤Á *@ : await 5 : stick j : if j=128{end} : if j{return j} : goto *@b *Main ;¥á¥¤¥ó½èÍý dim iaEvt,rnd(29)+12,5 : dim i,9 : dim iaTim,24 foreach iaEvt ;¤Æ¤­¤È¤¦¤ËͽÄê¤Ç¤Ã¤Á¾å¤² iaEvt(cnt,0)=-1 ;X (̤ÇÛÃ֥ե饰¤È¤·¤Æ-1) iaEvt(cnt,1)=rnd(24) ;Y (³«»Ï»þ¹ï) iaEvt(cnt,2)=1 ;W (½é´üÉý1¸ÇÄê) iaEvt(cnt,3)=limit(rnd(cMaxE)+1,1,24);H (·Ñ³»þ´Ö) iaEvt(cnt,4)=rnd(8) ;C (¿§) if iaEvt(cnt,1)+iaEvt(cnt,3)>24{iaEvt(cnt,3)=24-iaEvt(cnt,1)} if i.7<iaEvt(cnt,3){i.7=iaEvt(cnt,3)} ;ºÇĹ·Ñ³»þ´Ö i=iaEvt(cnt,1),iaEvt(cnt,3) repeat i(1) : iaTim(i(0)+cnt)++ : loop loop : gosub *DrawEvt : gsel 0,1 : kwait foreach iaTim : if i.8<iaTim(cnt){i.8=iaTim(cnt)} : loop i.0=i.8*3/2 ;¾ì¹ç¤Ë¤è¤Ã¤Æ¤Ï¤Ï¤ß½Ð¤¹°Ù dim iaCel,i.0,24 ;¥¿¥¤¥à¥Æ¡¼¥Ö¥ëÍÑ2¼¡ÇÛÎó memset iaCel,$FF,i.0*24*4 ;-1¤Ç½é´ü²½ ;Ť¤Í½Ä꤫¤é¡¤¤Ç¤­¤ë¤À¤±º¸¤ÎÎó¤ØÇÛÃÖ repeat i.7 i.6=i.7-cnt repeat length(iaEvt) if iaEvt(cnt,3)!i.6{continue} i.1=0,iaEvt(cnt,1),iaEvt(cnt,3),cnt repeat : i.0=0 repeat i.3,i.2 : if iaCel(i.1,cnt)>=0{i.0++ : break} : loop if i.0=0{ iaEvt(i.4,0)=i.1 : repeat i.3,i.2 : iaCel(i.1,cnt)=i.4 : loop gosub *DrawEvt : kwait ;³ÎǧÍÑÉÁ²è if i.5<i.1{i.5=i.1} : break } else {i.1++} loop loop loop ; i.5=ºÇÂçͽÄ걦Îó ; i.8=ºÇÂçͽÄê½ÅÊ£¿ô ; iaCel:ͽÄêɽ¥Æ¡¼¥Ö¥ë(³Æid or -1[¶õ¤­]) ; iaTim:³Æ»þ´ÖͽÄê¿ô hsvcolor ,,255 : boxf 48,440 color 255 : pos 48,440 : mes "END" draw : kwait : goto *Main *DrawEvt ;ÉÁ²è hsvcolor ,,255 : boxf 32 : j=0,0,0,0,0,0,0 foreach iaEvt s=strf("%2d:%2d,%2d,%2d,%2d,%2d",cnt,iaEvt(cnt,0),iaEvt(cnt,1),iaEvt(cnt,2),iaEvt(cnt,3),iaEvt(cnt,4)) hsvcolor ,,64 : pos cnt/20*160+321,cnt\20*20+5 :mes s if iaEvt(cnt,0)<0{continue} hsvcolor iaEvt(cnt,4)*25,160,255 : j.2++ pos cnt/20*160+320,cnt\20*20+4 :mes s j.3=iaEvt(cnt,0)*16+32,iaEvt(cnt,1)*16+32 j.5=iaEvt(cnt,2)*16,iaEvt(cnt,3)*16 color : boxf j.3,j.4,j.3+j.5,j.4+j.6 hsvcolor iaEvt(cnt,4)*25,128,255 j.0=(gInfo(16)<<16)|(gInfo(17)<<8)|(gInfo(18)) hsvcolor iaEvt(cnt,4)*25,255,192 j.1=(gInfo(16)<<16)|(gInfo(17)<<8)|(gInfo(18)) gradf j.3+1,j.4+1,j.5-1,j.6-1,1,j.0,j.1 loop pos 48,440 : color mes strf("%2d / %2d",j.2,length(iaEvt)) : draw return
¥Æ¥ó¥×¥ì¤â²¿¤â̵»ë¤·¤Á¤ã¤Ã¤Æ¤ë¾å¤Ë¡¢ÇÛÃÖ¤·¤«¤·¤Æ¤Ê¤¤¥¹¥¯¥ê¥×¥È¤Ç¤¹¤±¤É¡Ä



YSR

¥ê¥ó¥¯

2012/8/20(Mon) 23:41:57|NO.48713

¥Æ¥ó¥×¥ì²µ¡ª
¼«Ê¬¤Î½ñ¤¤¤¿¥¢¥ë¥´¥ê¥º¥à¤À¤È¡¢ºÇŬ²½½èÍý¤Î¤È¤³¤í¤Ï¡¢

/* ²ÐÎù¥À¥¼¡¼¡Ä¡Ä¥«¥ì¥ó¥À¡¼ÌäÂê¤ÎºÇŬ²½ÍÑ¥³¡¼¥É */ dim flg_opt,n ;°ÌÃÖ¤ò·èÄê¤Ç¤­¤¿¤é1 dim ev_last,n ;ͽÄê¤Î³ÆÎó¤Ç¤ÎºÇ®½ªÎ»»þ¹ï nowWidth=0 ;ͽÄê¤Î¡Ö²£Éý¡× //ɽ¼¨²£ºÂɸ(²¾)¤òµá¤á¤ë for i,0,n //½ªÎ»»þ´ÖºÇ®¤ÎͽÄêA¤òµá¤á¤ë //(½ªÎ»»þ´Ö¤¬Æ±¤¸¾ì¹ç³«»Ï»þ´Ö¤¬ÃÙ¤¤ÊýÍ¥Àè) end_early_num_A=-1 :end_early_time_A=9999 ;½é´ü²½ for k,0,n if flg_opt(k)=0 { if end_early_time_A>ev_end(k) { end_early_num_A=k end_early_time_A=ev_end(k) } else { if end_early_time_A=ev_end(k) { if ev_start(k)>ev_start(end_early_num_A) { end_early_num_A=k end_early_time_A=ev_end(k) } } } } next flg_opt(end_early_num_A)=1 //¤â¤·¡¢Í½ÄêA³«»Ï»þ´Ö>½ªÎ»»þ´Ö¤È¤Ê¤ëºÇÁὪλ¤ÎͽÄêB¤¬Â¸ºß¤·¤¿¤é¡¢ //¤½¤Î¾å¤ËͽÄêA¤òÀßÃÖ¡£¤Ç¤Ê¤±¤ì¤Ð¿·µ¬¤ËͽÄêA¤Î¾ì½ê¤òÀߤ±¤ë¡£ //(¤³¤ì¤Ï¡Ö±¦¤«¤é¡×Áöºº¤¹¤ë¤Î¤¬¥Ý¥¤¥ó¥È) flg=0 :end_early_num_B=-1 for k,nowWidth-1,-1,-1 if ev_start(end_early_num_A)>=ev_last(k) { flg=1 ev_X(end_early_num_A)=k _break } next if flg=1 { ev_last(ev_X(end_early_num_A))=ev_end(end_early_num_A) } else { ev_X(end_early_num_A)=nowWidth ev_last(nowWidth)=ev_end(end_early_num_A) nowWidth+ } next //ɽ¼¨²£ºÂɸ¡¦Éý¤ò·×»» ev_W_default=base_W/nowWidth for i,0,n ev_X(i)=(nowWidth-ev_X(i)-1)*ev_W_default ev_W(i)=ev_W_default next
¤Ç¤¹¤Ê¡£

>NO.48702
¤¤¤ä¡Ä¡ÄÍפ¹¤ë¤Ë¡¢¡Ö²èÌ̤˷ä´Ö¤¬¤Ç¤­¤Ê¤¤¤è¤¦¤ËÉÁ²è¤»¤è¡×¤Ã¤Æ¤³¤È¤Ë¤Ê¤ë¤Î¤«¡©
¤³¤ì¤À¤È¡Ö·ä´Ö¤òËä¤á¤ë¤è¤¦¤ËÉÁ²è¤¹¤ë½èÍý¡×¤¬Íפ뤫¤éºÇŬ²½¤ÎÌäÂꤸ¤ã¤Ê¤¤¤ó¤¸¤ã¡Ä¡Ä¡©
ñ¤Ëº¸µÍ¤á¤Ë¤·¤í¡¢¤Ã¤Æ°ÕÌ£¤Ê¤é²Äǽ¤Ã¤Á¤ã²Äǽ¤Ê¤ó¤À¤í¤¦¤±¤É¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/21(Tue) 00:35:58|NO.48714

£³kÍÍ
¥×¥í¥°¥é¥à¤ò²òÆɤ·¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬

­¡¤Þ¤º¡¢Á´¤Æ¤Î¥¤¥Ù¥ó¥È¤Î³«»Ï¡¦½ªÎ»»þ¹ï¤ò¤¤¤ì¤¿ÇÛÎó¤òÍÑ°Õ
tlEventTime¡Ä¥¤¥Ù¥ó¥È¤Î³«»Ï¡¦½ªÎ»»þ¹ï¤òÆþ¤ì¤¿ÇÛÎó
tlEventCont¡ÄtlEventTime¤Î³Æ»þ¹ï¤¬³«»Ï¤Ê¤Î¤«½ªÎ»¤Ê¤Î¤«È½Äꤹ¤ë¥Õ¥é¥°ÇÛÎó

­¢tlEventTime¤ò¾º½ç¤Ë¥½¡¼¥È
tlEventSortedIdx¡Ä¥½¡¼¥È¸å¤Î»þ¹ï¡Ê»þ¹ï¤½¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯¡¢tlEventTime¤Îindex¤òÊݴɤ·¤Æ¤¤¤ë¡Ë

­£³Æ»þ¹ï¤Ë¤ª¤±¤ë¡¢Æ±»þ¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¿ô¤ò¥Á¥§¥Ã¥¯
tlEventCooc¡Ä³Æ»þ¹ï¤Ë¤ª¤±¤ë¡¢¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¿ô

­£tlEventCooc¤¬Â¿¤¤½ç¤Ë»þ¹ï¤ò¥½¡¼¥È¡£tlEventCooc¤¬Â¿¤¤¤â¤Î¤«¤éW¤ò·×»»¤·¤Æ¤¤¤¯¡£

­¤·×»»Âоݥ¤¥Ù¥ó¥È¤Î³«»Ï»þ¹ï¤Ë¤ª¤±¤ë¡¢Æ±»þ¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¤òõ¤·¤ÆÃù¤á¤ë
evIdxPool¡ÄƱ»þ¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¤Îindex¤ò¥×¡¼¥ë¤·¤Æ¤ª¤¯ÇÛÎó

­¥·×»»Âоݥ¤¥Ù¥ó¥È¤Î³«»Ï»þ¹ï¤Ë¤ª¤±¤ë¡¢»Ä¤µ¤ì¤¿²£Éý¤ò
Ʊ»þ¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¤ÎÃæ¤Ç¤Þ¤ÀW¤¬·è¤Þ¤Ã¤Æ¤¤¤Ê¤¤¥¤¥Ù¥ó¥È¤¿¤Á¤ÈÅùʬ¤¹¤ë¡£
ev_LeftW¡Ä¤Þ¤À¥¤¥Ù¥ó¥È¤¬Æþ¤Ã¤Æ¤¤¤Ê¤¤(¶õÇò¤Î)²£Éý

Ʊ»þ¿Ê¹ÔÃæ¤Î¥¤¥Ù¥ó¥È¤¬Â¿¤¤¡Ê¡á¾¥¤¥Ù¥ó¥È¤ÎW¤Ø¤Î±Æ¶ÁÎϤ¬¶¯¤¤¡Ë¥¤¥Ù¥ó¥È¤«¤é
Í¥ÀèŪ¤ËÇÛÃÖ¤·¤Æ¤¤¤¯¤È¤¤¤¦¤³¤È¤Ç¤·¤ç¤¦¤«¡©
²¿¥Ñ¥¿¡¼¥ó¤â¥Á¥§¥Ã¥¯¤·¤Æ¤ß¤Þ¤·¤¿¤¬¤É¤ì¤âºÇŬ¤ÊÉý¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤·¤¿¡£
¤Ç¤¹¤Î¤Ç¡¢W¤Îµá¤áÊý¤Ï¤³¤ì¤Ç´°À®¤Ç¤¢¤ë¤È»×¤ï¤ì¤Þ¤¹¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤¿¤À¡¢X¤Îµá¤áÊý¤ËÉÔÈ÷¤¬¤¢¤Ã¤¿¤è¤¦¤Ç¡¢»þ¡¹base_W¤ò¤Ï¤ß½Ð¤·¤Æ¤·¤Þ¤¦»þ¤¬¤¢¤ê¤Þ¤·¤¿¡£
¡ÊÉý¤ÏÊѤ¨¤º¤Ë°ÌÃÖ¤òʤÙÂؤ¨¤ì¤ÐºÇŬ²ò¤È¤Ê¤ë¡£¡Ë

°ìÊý¡¢774ÍͤΥ¹¥¯¥ê¥×¥È¤ÏͽÄê¤ÎXºÂɸ¤Ë¤Ä¤¤¤Æ¤â¤Î¤¹¤´¤¤Îɤ¤ÀºÅ٤ǵá¤Þ¤ê¤Þ¤·¤¿¡ª
¤Ç¤¹¤Î¤Çξ¼Ô¤ò³Ý¤±¤¢¤ï¤»¤ì¤Ð´°À®·Á¤¬µá¤Þ¤ë¤Î¤Ç¤Ï¤Ê¤¤¤«¤È¹Í¤¨¤Þ¤·¤¿¡£
¤·¤«¤·¡¢¤¤¤«¤ó¤»¤ó774ÍͤÎXºÂɸ¤òµá¤á¤ë¥¢¥ë¥´¥ê¥º¥à¤¬Á´¤¯²òÆɤǤ­¤Þ¤»¤ó¤Ç¤·¤¿¡£orz¡¦¡¦¡¦
´Êñ¤Ë¤Ç¤â¹½¤¤¤Þ¤»¤ó¤Î¤Ç¡¢¤É¤Ê¤¿¤«²òÀâ¤ò¤ª´ê¤¤¤Ç¤­¤Þ¤»¤ó¤«¡©



¤Æ¤ó

¥ê¥ó¥¯

2012/8/21(Tue) 00:50:58|NO.48715

YSRÍÍ
³Î¤«¤Ë¡£¡£
¤³¤ì¤ÏºÇŬ²½ÌäÂê¤Ç¤Ï¤Ê¤¯¡ÖÍ×·ï¤òËþ¤¿¤¹ÇÛÃÖÊýË¡¤¬¤¤¤¯¤Ä¤«Í­¤ê¡¢¤½¤ÎÆâ¤Î£±¤Ä¤òµá¤á¤è¡×
¤È¤¤¤¦ÌäÂê¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤·¤¿¡£¤¹¤¤¤Þ¤»¤ó¡£


¤â¤È¤â¤È¤³¤ÎÌäÂê¤ò¹Í¤¨»Ï¤á¤¿¤­¤Ã¤«¤±¤ò¤ªÏä·¤Þ¤¹¤È¡¢
ÉÁ²è¤·¤¿Í½ÄêÏȤÎÃæ¤Ë¡¢Í½Äê¤Ë´Ø¤¹¤ë¾ðÊó¤òɽ¼¨¤·¤è¤¦¤È¤·¤Æ¤¤¤Þ¤·¤¿¡£
¤½¤ÎºÝ¡¢Í½ÄêÏȤ¬¾®¤µ¤¹¤®¤Æ¾ðÊó¤¬É½¼¨¤·¤­¤ì¤Ê¤¤¤³¤È¤¬¤¢¤ê¤Þ¤·¤¿¡£
¤½¤³¤Ç¡¢¤Ê¤ë¤Ù¤¯¥«¥ì¥ó¥À¡¼°ìÇÕ¤Þ¤ÇͽÄêÏȤò¹­¤²¤¿¤¤¡¢¤È¹Í¤¨¤¿·ë²Ì¤³¤ÎÌäÂê¤Ë»ê¤ê¤Þ¤·¤¿¡£


¤Ç¤¹¤Î¤Ç¼ÁÌä¤òºÇŬ²½ÌäÂê¤é¤·¤¯½¤Àµ¤¹¤ë¤È¤¹¤ì¤Ð¡¢
³Æ¥¤¥Ù¥ó¥È¤Î²£Éý(ev1_W,ev2_W...)¤ÎÁíϤò Sum_ev_W ¤È¤·¤Æ¡¢

Í×·ï
­¡¥¤¥Ù¥ó¥È¤Ï¸ß¤¤¤Ë½Å¤Ê¤Ã¤Æɽ¼¨¤µ¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
­¢¥¤¥Ù¥ó¥È¤Ï¥«¥ì¥ó¥À¡¼¤«¤é¤Ï¤ß½Ð¤·¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£

¤È¤¤¤¦Í×·ï¤òËþ¤¿¤¹¤è¤¦¤Ë¥«¥ì¥ó¥À¡¼¤òºî¤Ã¤¿ºÝ¤Ë¡¢Sum_ev_W¤¬ºÇÂç¤È¤Ê¤ë¤è¤¦¤ËÇÛÃÖÊýË¡¤òµá¤á¤ë¥¢¥ë¥´¥ê¥º¥à¡×

¤ò¹Í¤¨¤Æ¤¤¤¿¤À¤±¤¿¤é¤È»×¤¤¤Þ¤¹¡£

YSRÍͤΥ¢¥ë¥´¥ê¥º¥à¤Ç¤¹¤È¡¢½é´üÀßÄ꤬
	ev_start = 660, 600, 660, 600
ev_duration = 60, 120, 60, 60
¤Î¾ì¹ç¡¢ÌµÂ̤ʷä´Ö¤¬¤Ç¤­¤Æ¤·¤Þ¤¤¤Þ¤¹¤Î¤Ç¡¢¤³¤Î¥¢¥ë¥´¥ê¥º¥à¤Ç¤ÏÉÔ´°Á´¤Ç¤¢¤ë¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£



¤Æ¤ó

¥ê¥ó¥¯

2012/8/21(Tue) 01:02:33|NO.48716

¤¹¤¤¤Þ¤»¤ó¡¢¾ò·ï¤ËÉÔÈ÷¤¬¤¢¤ê¤Þ¤¹¤Í¡£orz
¾Ü¤·¤¯¤Ï¢­¤Î²èÁü¤ò¸«¤Æ¤¤¤¿¤À¤±¤ì¤Ð¤ï¤«¤ë¤«¤È¡£
http://temperman.6.ql.bz/calendar3.jpg

¥«¥ì¥ó¥À¡¼¤Îɾ²ÁÊýË¡¤¬¤Þ¤º·è¤Þ¤é¤Ê¤¤¤³¤È¤Ë¤Ï¥¢¥ë¥´¥ê¥º¥à¤ÎÊý¿Ë¤âΩ¤Á¤Þ¤»¤ó¤è¤Í¡£¤¹¤¤¤Þ¤»¤ó¡£
¤Ê¤ó¤È¤Ê¤¯¥Ë¥å¥¢¥ó¥¹¤ÏÅÁ¤ï¤ê¤Ä¤Ä¤¢¤ë¤È»×¤¦¤Î¤Ç¤¹¤¬¡£



YSR

¥ê¥ó¥¯

2012/8/21(Tue) 02:35:26|NO.48717

>NO.48715
¡¡¤Ö¤Ã¤Á¤ã¤±£³£ë¤µ¤ó¤Î¤è¤¦¤Ë¥é¥ó¥À¥à¥Ç¡¼¥¿¤Ç¼Â¸³¤È¤«¤·¤Æ¤Ê¤¤¤«¤é¥Ê¡¼¡Ä¡Ä¡£
¡¡»ä¤Î¤è¤êÎɤ¤¡¢¤È¤¤¤¦¤Î¤ò³Îǧ¤·¤Æ¤Ê¤¤¤«¤é¤¤¤Þ¤¤¤Á¥Ô¥ó¤ÈÍè¤Þ¤»¤Ì¡£
¡¡¸þ¤³¤¦¤ÏìÅÍßË¡¤Çɾ²Á¤·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¤¬¡¢
¡¡¡¡¤³¤ó¤Ê¤â¤ó¥Þ¥¸¥á¤Ë¤ä¤ê¤À¤·¤¿¤éºÆµ¢¤Ç¥¦¥Ü¥¡¡¼¤Ê¤³¤È¤Ë¤Ê¤ë
¡¡¡¡¡¡(HSP¤ÏºÆµ¢¤¬¶ì¼ê)¤Î¤Ï¸«¤¨¸«¤¨¤Ç¤¹¤Î¤Ç¤¢¤ì¤ÇÀµ²ò¤Êµ¤¤â¤·¤Þ¤¹¡£
¡¡¥×¥í¥³¥ó¤ÎµÂËÜ(http://www.amazon.co.jp/dp/4839941068)¤Ë»÷¤¿¤è¡¼¤ÊÌäÂê¤È¤·¤Æ¡¢
¡¡¡¡¡Ö¤É¤Î½ç¤Ç»Å»ö¤òÊÒÉÕ¤±¤ë¤«¡×Ū¤Ê¤Î¤¬¤¢¤ê¤Þ¤·¤Æ¡¢
¡¡¡¡¡¡¤½¤ì¤Î²òÅú¤¬¡ÖºÇ¤âÁ᤯½ª¤ï¤ë»Å»ö¤«¤éÊÒÉÕ¤±¤ë¡×¤È¤¤¤Ã¤¿¤â¤Î¤À¤Ã¤¿¤Î¤Ç
¡¡¡¡¡¡¡¡¤½¤ì¤ò¿¿»÷¤¿¤À¤±¤À¤Ã¤¿¤ê¡£
¡¡¤Ä¤Þ¤ê£³£ë¤µ¤ó¤è¤êÉÔ¿¿ÌÌÌÜ¡£
¡¡¡Öɽ¤Î¤É¤Î°ÌÃÖ¤¬Ëä¤Þ¤Ã¤Æ¤¤¤ë¤«¡×¤ò´ÉÍý(ʬñ°Ì¤È¤«)¤¹¤ì¤Ð
¡¡¡¡²£¤Ë³ÈÄ¥¤¹¤ë¤³¤È¤Ê¤É³Ú¾¡¤Ë¸«¤¨¤Þ¤¹¤¬¡¢ÎäÀŤ˹ͤ¨¤ì¤Ð
¡¡¡¡¡¡¡Ö¤½¤Î´ÉÍý¤¹¤ëÇÛÎ󤬥ǥ«¤¹¤®¤ë¤â¤Î¤Ë¡×
¡¡¡¡¡¡¡Öº¸¤Ë³ÈÄ¥¤¹¤ë¤«±¦¤Ë³ÈÄ¥¤¹¤ë¤«¤¬¥ï¥«¥é¥ó¡×
¡¡¡¡¡¡Åù¤ÎÌäÂ꤬¤¢¤ë¤Î¤Ç¤¢¤¨¤Æ¼êÈ´¤­¤·¤¿¤ï¤±¤Ç¤¹¡£¤½¤¦¹Í¤¨¤ë¤È774¤µ¤ó¤Ã¤Æ¤¹¤²¡¼¡£
¡¡¤Á¤Ê¤ß¤Ë¡¢»þ´Ö¤ò»þ(hour)ñ°Ì¤Ç¤·¤«´ÉÍý¤·¤Ê¤¯¤Æ¤¤¤¤¤Ê¤é¤Ð¡¢
¡¡¡¡¿ô¹ÔÁ°¤Ç¤Î¡Ö´ÉÍý¤¹¤ëÇÛÎó¡×¤¬¥°¥Ã¤È¾®¤µ¤¯¤Ê¤Ã¤Æ¼ÂÁõ¤â´Êñ¤Ë¡£
¡¡¡¡¡¡µÕ¤Ë´ÉÍý¤¹¤ë¥¤¥Ù¥ó¥È¤¬1000¤È¤«¤Ë¤Ê¤Ã¤Æ¤¯¤ë¤È¥Þ¥¸¤ÇƬDZ¤é¤Ê¤¤¤È
¡¡¡¡¡¡¡¡ÉÃñ°Ì¤Ç¤Î±þÅú¤¬´üÂԤǤ­¤Ê¤¤¤³¤È¤Ë¡Ä¡Ä¡£
¡¡ÌäÂê¤Î¥µ¥¤¥º¤ò¶µ¤¨¤Æ¤¯¤ì¤¿¤é´ò¤·¤¤¤Ê¤Ã¤Æ¡£



774

¥ê¥ó¥¯

2012/8/21(Tue) 02:41:10|NO.48718

¤½¤ó¤Ê¤ËÆñ¤·¤¤»ö¤Ï¤·¤Æ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢ÇÛÎó»È¤¤²ó¤·²á¤®µÍ¤á²á¤®¤Ç¤¹¤Í¡Ä

Æó¼¡ÇÛÎó iaCel ¤ò²£(ºÇÂçƱ»þͽÄê*1.5)¥Þ¥¹¡¢½Ä24¥Þ¥¹¤ÎÊý´ã»æ¤Î¤è¤¦¤Ë¸«Î©¤Æ¤ÆȽÄꤷ¤Æ¤Þ¤¹¡£
º¸Ã¼¤ÎÎ󤫤餽¤ÎͽÄê¤Î»þ´ÖÂÓ¤¬´°Á´¤Ë¶õ¤¤¤Æ¤¤¤ë¤«¡¢¶õ¤¤¤Æ¤Ê¤¤¤Ê¤é±¦ÎÙ¤ÎÎó¤Ø¤È°Ü¹Ô¤Ç¤¹¡£
»ä¤âÎã¤Î²èÁü¤«¤é»þ´Öñ°Ì¤À¤È»×¤Ã¤Æ¤¤¤¿¤Î¤Çʬñ°Ì¤À¤È¥³¥ì¤À¤ÈÌäÂꤢ¤ê¤½¤¦¤Ç¤¹¤Í¡Ä

²£¥µ¥¤¥º¤¬1.5ÇܤʤΤÏÇÛÃÖ½ç¤Ë¤è¤Ã¤Æ¤ÏºÇÂçͽÄê¿ô°Ê¾å¤Ë¤Ê¤ë°Ù¤Î±þµÞÁ¼Ã֤Ǥ¹¡£
°Ê²¼¡¢ÇÛÎóÊÑ¿ô¤ò¿¾¯²ò¤ê°×¤½¤¦¤ÊÊÑ¿ô̾¤ËÊѤ¨¤Æ¤ß¤¿¤Ä¤â¤ê¤Ç¤¹¡£

;Ť¤Í½Ä꤫¤é¡¤¤Ç¤­¤ë¤À¤±º¸¤ÎÎó¤ØÇÛÃÖ repeat iMaxLen iNowLen = iMaxLen-cnt ;ºÇĹ¤Î·Ñ³»þ´Ö¤Î¤«¤é½ù¡¹¤Ëû¤¤»þ´Ö¤Î¤òÇÛÃÖ repeat length(iaEvt) if iaEvt(cnt,3)!iNowLen{continue} ;ÇÛÃÖÃæ¤Î·Ñ³»þ´Ö°Ê³°¤Ï̵»ë iX = 0 ;º¸Ã¼¤ÎÎ󤫤鸡ºº iY = iaEvt(cnt,1) ;¡À iLen = iaEvt(cnt,3) ; > cnt¤¬»È¤¨¤Ê¤¯¤Ê¤ë¤Î¤Ç¥­¡¼¥× iID = cnt ;¡¿ repeat ;°Ê¹ß¡¢¤Ç¤­¤ë¤À¤±º¸¤ÎÃÖ¤±¤ëÎóõ¤· ii = 0 ;¥Á¥§¥Ã¥¯ÍÑ°ì»þÊÑ¿ô repeat iLen,iY ;¤½¤ÎÎó¤ÇÃÖ¤±¤ë¶õ´Ö(»þ´ÖÂÓ)¤¬¶õ¤¤¤Æ¤ë¤«¸«¤Æ¤Þ¤¹ if iaCel(iX,cnt)>=0{ii++ : break} loop if ii=0{ ;ii=0 ¤Ê¤éÃÖ¤±¤ë¤È¤¤¤¦»ö iaEvt(iID,0)=iX repeat iLen,iY iaCel(iX,cnt)=iID ;ÃÖ¤¤¤¿¾ì½ê¤Ë¥Õ¥é¥°¤È¤·¤ÆͽÄêIDÂåÆþ loop gosub *DrawEvt : kwait ;³ÎǧÍÑÉÁ²è if i.5<iX{i.5=iX} ;ºÇ±¦ÎóÊÝ»ý(²¿¤«¤Ë»È¤¨¤ë¤«¤È¡Ä break } else {iX++} ;ii>0 ´û¸¤ÎͽÄê¤È½Å¤Ê¤ë¤Î¤Ç±¦¤ÎÎó¤Ø¡Ä loop loop loop
ɽ¼¨°è¤Ë´Ø¤·¤Æ¤Ç¤¹¤¬¿§¤ä¥¢¥¤¥³¥ó¤òÀßÄê²Äǽ¤Ë¤·¡¢Ê¸»ú°Ê³°¤Ç¤¢¤ëÄøÅÙÆâÍƤòÇÄ°®²Äǽ¤Ë¤¹¤ë¤È¤¤¤¦¤Î¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡©
ͽÄê¤òÁªÂò¤¹¤ë¤È¾ÜºÙ¤Ê¾ðÊó¤ËÀÚ¤êÂؤ俤ꡢ¥Ý¥Ã¥×¥¢¥Ã¥×ɽ¼¨¤Ê¤É¡£
°¿¤¤¤Ïɽ¼¨ÈϰϤγÈÂç½Ì¾®µ¡Ç½¤Ê¤É¤âºß¤ì¤Ð¡¢»È¤¦Â¦¤Ë¤È¤Ã¤Æ¤ÏÍ­±×¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£

ºî¤ë¦¤Ë¤È¤Ã¤Æ¤Ï³Î¼Â¤Ë¼ê´Ö¤âÌÌÅݤâÁý¤¨¤Þ¤¹¤±¤É¡Ä



YSR

¥ê¥ó¥¯

2012/8/21(Tue) 02:54:15|NO.48719

>Êý´ã»æ¤Î¤è¤¦¤Ë¸«Î©¤Æ¤Æ
¤°¤Ì¤Ì¡¢¤ä¤Ã¤Ñ¤êÊý´ã»æ(¡©)ºîÀ郎ŴÈĤʤΤ«¡Ä¡Ä¡©
¤¿¤«¤¬60ʬ¤ÎͽÄê¡ß20¸Ä¤Î´û¸ͽÄê¡ß10¤À¤±¤Ç12000¸Ä¤â¤ÎÇÛÎó¤òȽÄꤷ¤Ê¤¤¤È¤¤¤±¤Ê¤¤¥±¥É¥Í¡ª
¤Þ¤¢°ìÆü¤ÎͽÄê¤À¤·¡¢1000¸Ä¤âµÍ¤á¹þ¤àÊÑÂ֤Ϥ¤¤Ê¤¤¤È¹Í¤¨¤ÆÁȤà¤Î¤¬Àµ²ò¤«¡Ä¡Ä¡£
¤È¤ê¤¢¤¨¤º·ï¤Î¤Ò¤Ê·Á¤ËÖȤë·Á¤ËÀ°·Á¤·¤Æ¤¤¤¿¤À¤±¤ë¤È¡¢¤½¤ì¤Ï¤È¤Ã¤Æ¤â´ò¤·¤¤¤Ê¤Ã¤Æ¡£
»ä¡©¡¡Ì²¤¤¤Î¤Ç¤â¤¦¿²¤Þ¤Õ¡Ä¡Ä¡£



YSR

¥ê¥ó¥¯

2012/8/21(Tue) 02:58:46|NO.48720

¤¢¡¢¤ä¤Ã¤Ñ¤ê774¤µ¤ó¤ÎÊýË¡¤¬ºÇÁ±¤Êµ¤¤¬¤¹¤ë¡£ÎäÀŤ˹ͤ¨¤ì¤Ð¡¢
4(int·¿¥µ¥¤¥º)*30(ͽÄê¿ô)*(60*24)(ʬ)¡á168.75KB¤È¥á¥â¥êÎ̤âÂ礷¤¿¤³¤È̵¤¤¤·¡£
NO.48717¤Ç¸À¤Ã¤Æ¤¿¡Ö±¦¤«º¸¤«¡×¤Ë¤Ä¤¤¤Æ¤â¡¢
ÖȤë°ÌÃ֤ǰìÈÖº¸¤ËÃÖ¤±¤Ð±¦°Ê³°¤Ë³ÈÄ¥¤·¤è¤¦¤¬¤Ê¤¤¤·¡¢¥¢¥ë¥´¥ê¥º¥à¤Ï¤³¤ì¤Ç³ÎÄ꤫¤Ê¡£

»î¤·¤Æ¤Ê¤¤¤¬½Å¤½¤¦¤À¤±¤É¡£



YSR

¥ê¥ó¥¯

2012/8/21(Tue) 11:56:50|NO.48726

¢¨Ï¢Å굤̣¤Ç¤´¤á¤ó¤Ê¤µ¤¤¡£

¤ä¤Ã¤È¡Ä¡Ä¤ä¤Ã¤È¡¢774¤µ¤ó¤ÎÊýË¡¤ò¤Ò¤Ê·Á¤ËÖȤë·Á¤Ç¼ÂÁõ¤Ç¤­¤¿¤è¡¼¡ª

;ºÇŬ²½¥¢¥ë¥´¥ê¥º¥à by 774 ;¢¨ev_X¤Î´ð½à¤ò¡¢Îóñ°Ì¢ª¥Ô¥¯¥»¥ë¤Ø¤ÈÅÓÃæÊÑ´¹¤·¤Æ¤¤¤Þ¤¹¡£¾Ü¤·¤¯¤Ï¥³¥á¥ó¥È»²¾È¡£ dim ev_table,n,base_duration ;ͽÄê¿ôÉý,»þ´ÖÉý dim ev_preflg,n ;¥¤¥Ù¥ó¥È¤¬´û¤ËÖȤá¤é¤ì¤Æ¤¤¤ë¤«¤Î¥Õ¥é¥°(¤¢¤Ã¤¿¤é1) ev_W_now=0 ;ͽÄê¿ôÉý ;³ÆͽÄê¤Ë¤Ä¤¤¤Æ¡¢ÖȤë¤Ù¤­°ÌÃÖ¤òõ¤¹ ;(ev_table¤¬0¤Ê¤é²¿¤â¤Ê¤¤¡¢1°Ê¹ß¤Ï-1¤·¤¿¥¤¥Ù¥ó¥ÈÈֹ椬Æþ¤Ã¤Æ¤¤¤ë) for i,0,n ;ºÇÂçŤǤ«¤Ä¤Þ¤ÀÖȤäƤ¤¤Ê¤¤¥¤¥Ù¥ó¥È¤òõ¤¹ ev_longest=-1 :ev_longest_time=-1 for k,0,n if (ev_preflg(k)=0)&(ev_longest_time<ev_duration(k)) { ev_longest=k ev_longest_time=ev_duration(k) } next ;Åö¤ÆÖȤá ev_setflg1=0 ;ÃúÅÙ¤¤¤¤Åö¤ÆÖȤá°ÌÃÖ¤¬Â¸ºß¤·¤¿¤é1 offset=ev_start(ev_longest)-base_start for column,0,ev_W_now ev_setflg2=1 ;´û¤Ë´û¸¤ÎͽÄ꤬ÖȤäƤ¤¤¿¤é0 for l,0,ev_duration(ev_longest) if ev_table(column,offset+l)!0 :ev_setflg2=0 :_break next if ev_setflg2=1 :ev_setflg1=1 :_break next if ev_setflg1=1 { ;º¹¤·¹þ¤ß for l,0,ev_duration(ev_longest) ev_table(column,offset+l)=ev_longest+1 next ev_X(ev_longest)=column } else { ;¿·µ¬ for l,0,ev_duration(ev_longest) ev_table(ev_W_now,offset+l)=ev_longest+1 next ev_X(ev_longest)=ev_W_now ev_W_now+ } ;¸å½èÍý ev_preflg(ev_longest)=1 next ;²£Éý¤¬³ÈÄ¥¤Ç¤­¤ë¤«¤òÄ´¤Ù¤ë dim ev_preflg,n ;ÊÑ¿ô¤òºÆÍøÍÑ(¤³¤Ã¤Á¤Ï¥Á¥§¥Ã¥¯¤·¤¿¤é1) default_W=base_W/ev_W_now for i,0,n ;ºÇÂçŤǤ«¤Ä¤Þ¤À¥Á¥§¥Ã¥¯¤·¤Æ¤¤¤Ê¤¤¥¤¥Ù¥ó¥È¤òõ¤¹ ev_longest=-1 :ev_longest_time=-1 for k,0,n if (ev_preflg(k)=0)&(ev_longest_time<ev_duration(k)) { ev_longest=k ev_longest_time=ev_duration(k) } next ;(±¦¤Ë)³ÈÄ¥¤Ç¤­¤ë¤«¤ò¥Á¥§¥Ã¥¯ ev_W(ev_longest)=1 offset=ev_start(ev_longest)-base_start for column,ev_X(ev_longest)+1,ev_W_now ev_wdflg=1 ;³ÈÄ¥½ÐÍè¤Ê¤«¤Ã¤¿¤é0 for l,0,ev_duration(ev_longest) if ev_table(column,offset+l)!0 :ev_wdflg=0 :_break next if ev_wdflg=1 :ev_W(ev_longest)+ :else :_break next ;¸å½èÍý ev_X(ev_longest)*=default_W ev_W(ev_longest)*=default_W ev_preflg(ev_longest)=1 next
¤É¤¦¤Ç¤·¤ç¤¦¡©



¤Æ¤ó

¥ê¥ó¥¯

2012/8/22(Wed) 02:32:02|NO.48742

³§ÍͤΥ¢¥ë¥´¥ê¥º¥à¤â»²¹Í¤Ë¤µ¤»¤Æ¤¤¤¿¤À¤­¤Ê¤¬¤é¡¢¼«Ê¬¤Ç¤â£±¤Ä¡¢
¤Ê¤«¤Ê¤«ÀºÅÙ¤¬Îɤ¤¤È¤ª¤â¤ï¤ì¤ë¥¢¥ë¥´¥ê¥º¥à¤òÁ®¤­¤Þ¤·¤¿¡£

Îã¤Ë¤è¤Ã¤Æ¿Þ¤Ç¤ÎÀâÌÀ¤Ë¤Ê¤ê¤Þ¤¹¡£
http://temperman.6.ql.bz/calendar4.jpg

Ê䭤Ȥ·¤Æ¡¢
£³¤Î¥¹¥Æ¥Ã¥×¤ÎºÝ¤Ë¡¢³Æ¥°¥é¥Õ¤ÎÉý¤Ï¡¢¤½¤Î¥°¥é¥Õ¤ÎƱ¤¸¥ì¥Ù¥ë¤ÎÍ×ÁÇ¿ô¤ÎºÇÂçÃÍ
¡Ê¥ª¥ì¥ó¥¸¤Î¥°¥é¥Õ¤Î¾ì¹ç¡¢Event2¤ÈEvent6¤òƱ¤¸¥ì¥Ù¥ë¤È¤ß¤Ê¤¹¤Î¤Ç2¡£ÀĤΥ°¥é¥Õ¤Ï1¡Ë
¤ÎÈæ¤Çbase_W¤òʬ³ä¤¹¤ë¤ÈåºÎï¤ËͽÄ꤬ÇÛÃ֤Ǥ­¤Þ¤¹¡£
º£²ó¤Î¾ì¹ç¡¢¥ª¥ì¥ó¥¸:ÀÄ=2:1¤Ç²£Éý¤òʬ³ä¤·¤Þ¤·¤¿¡£



YSR

¥ê¥ó¥¯

2012/8/22(Wed) 10:41:07|NO.48743

>NO.48742
¤Û¤Û¤¦¡Ä¡Ä
¼ÂÁõ´èÄ¥¤Ã¤Æ¤¯¤À¤µ¤¤¤Í¡£



774

¥ê¥ó¥¯

2012/8/22(Wed) 21:19:46|NO.48753

¤ªÌò¤ËΩ¤Ã¤¿¤è¤¦¤Ç²¿¤è¤ê¤Ç¤¹¡£

¤½¤Á¤é¤ÎÊýË¡¤Ç¤¹¤È¡¢
º¸Ã¼¤ÎÎ󤫤é̤ÇÛÃ֤μ¡¤ÎͽÄê(Ʊ»þ³«»Ï¤¬¤¢¤ì¤ÐºÇŤΤâ¤Î)¤òõº÷¡£
¸«ÉÕ¤«¤Ã¤¿Í½Äê¤òÇÛÃÖ¤·¤Æ¡¢¤½¤ÎͽÄê¤Î½ªÎ»»þ¹ï¤«¤é¤½¤Î¼¡¤òõº÷¡£
¼¡¤ÎͽÄ꤬¸«ÉÕ¤«¤é¤Ê¤¤¤è¤¦¤Ê¤é±¦ÎÙ¤ÎÎó¤Ø°Ü¤Ã¤ÆƱÍͤˡ£
¤ÈÇÛÃÖ¤·¤Æ¤¯¤ÈÀ°Íý¤Î»þ¤Ë¾¯¤·³Ú¤Ë¤Ê¤ë¤è¤¦¤Êµ¤¤¬¤·¤Þ¤¹(Îó¤ÎÆþ¤ìÂؤ¨¤¬Ìµ¤¤È¦¤Ç¤¹¤Î¤Ç)¡£

¤Õ¤È»×¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢Í½Äê¤Îɽ¼¨°è¤ÏĹÊý·Á¤Ç¤Ê¤¤¤È¥À¥á¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£



YSR

¥ê¥ó¥¯

2012/8/22(Wed) 23:04:09|NO.48754

>ĹÊý·Á¤Ç¤Ê¤¤¤È¥À¥á
ÊÑ·Á¥¢¥ê¤Ê¤éËè²ó²èÌÌËä¤á¿Ô¤¯¤·¤Æ¤¤¤Þ¤¹¤è774¤µ¤ó¡Ä¡Ä
¤Þ¤¢774¤µ¤ó¤Î¼ÂÁõ¤Ê¤é¡¢Î㤨¤Ð
¡Ö¶õÇò²Õ½ê¤Ï¿¿º¸¤ÎͽÄê¤ÎÎΰè¤È¤¹¤ë¡£¤¿¤À¤·¤½¤ì¤Ç¤â;¤Ã¤¿¤é±¦¤Í¡×
¤Æ¤Ê¤è¤¦¤Ë½ñ¤­´¹¤¨¤ë¤À¤±(NO.48726¤Î¾ì¹çev_table¤òÆó²óÁöºº¤¹¤ë¤À¤±)¤Ç¼Â¸½²Äǽ¤«¤È



774

¥ê¥ó¥¯

2012/8/23(Thu) 22:07:01|NO.48770

>ÊÑ·Á¥¢¥ê¤Ê¤éËè²ó²èÌÌËä¤á¿Ô¤¯¤·¤Æ¤¤¤Þ¤¹¤è
¤½¤¦¤¤¤¦°ÕÌ£¤Ë¤Ê¤ë¤«¤âÃΤì¤Þ¤»¤ó¡£

¡Ö¸ß¤¤¤Ë½Å¤Ê¤Ã¤Æɽ¼¨¤µ¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡×¤È¤¤¤¦Í׷郎¶ë·Á¤Ç¤¢¤ë°Ù¤Î¤â¤Î¤Ê¤é
°Ê²¼¤ÏÏÀ³°¤ÊÏäˤʤê¤Þ¤¹¤Î¤Ç̵»ë¤·¤Æ²¼¤µ¤¤¡£

²¾¤Ëɽ¼¨°è³ÎÊݤΰ٤ÎÍ×·ï¤Ç¤¢¤Ã¤¿¤Î¤Ê¤é¡¢
ÇÛÃ֤ǤÎɽ¼¨°è³ÎÊݸå¤Ï¶ë·Á¤Ç¤¢¤ëɬÍפÏ̵¤¤¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤Ã¤¿¤Î¤Ç¤¹¡£
¤¤¤Ã¤½Á´¤Æ±¦Ã¼¤Þ¤Ç¿­¤Ð¤·¤Æ¡¢±¦¤Î¤â¤ÎÄø¾å¤Ë½Å¤Í¤ë¤è¤¦¤ËÉÁ²è¤¹¤ì¤Ð
¶ë·Á¤Î»þ¤è¤êɽ¼¨°è¤¬¸º¤ë»ö¤Ï¤Ê¤¤¤Ç¤¹¤·¡¢¤ß¤Ã¤Á¤êü¤Þ¤ÇËä¤Þ¤ê¤Þ¤¹¤«¤é
¤è¤êÍ×˾¤òËþ¤¿¤»¤ë·Á¤Ë¤Ê¤ê¤Ï¤·¤Ê¤¤¤«¤È¡£

²£ËÀ¥°¥é¥Õ¤Î¤è¤¦¤Êɽ¼¨·Á¼°¤Ë¤Ê¤ê¤Þ¤¹¤Í¡£

;½é´ü²½ randomize : dim n base_H = 400 : base_W = 400 base_start = 360 : base_zoom = 3 ev_zoom = 1,2,3,4,6,12 : tmp_Z=2 screen 0, base_W, base_H buffer 9, base_W, 180*24+440,8 *start n=rnd(20)+8 ;¥¤¥Ù¥ó¥È¤Î¸Ä¿ô ;¥¤¥Ù¥ó¥È¤Ë´Ø¤¹¤ëÊÑ¿ô dim ev_start, n ;³«»Ï»þ¹ï dim ev_end, n ;½ªÎ»»þ¹ï dim ev_duration, n ;·Ñ³»þ´Ö dim ev_X, n ;ɽ¼¨°ÌÃ֤κ¸¾åXºÂɸ dim ev_Y, n ;ɽ¼¨°ÌÃ֤κ¸¾åYºÂɸ dim ev_W, n ;ɽ¼¨¤µ¤ì¤ëÉý dim ev_H, n ;ɽ¼¨¤µ¤ì¤ë¹â¤µ dim ev_Col, n ;ɽ¼¨¤µ¤ì¤ë¿§ sdim ev_Info,$100, n ;ɽ¼¨¤µ¤ì¤ëÆâÍÆ goto *main #uselib "user32.dll" #func DrawText "DrawTextA" int,sptr,int,sptr,int #deffunc draw_ev_info int px, int py h=px-40,py,0,0,-1 : if (h.0<0)|(h.0>359){return 0} h.0/=tmp_X@ : h.1=(h.1+base_start@-20)*1440/(360*base_zoom@) repeat repeat n if ev_X@.cnt!h.0{continue} if ev_start@.cnt>h.1{continue} if ev_end@.cnt>=h.1{h.4=cnt : break} loop : if h.4>=0{break}else{h.0-- : if h.0<0{break}} loop : if h.4<0{return 0} gsel 0 : redraw 0 : gmode 4,360,360,192 : color ; title strf("[%d,%d]:%d,%d=%d",px,py,h.0,h.1,h.4);;;;;;;; pos 20,20 : gcopy 9,20,20 : gmode 0 hsvcolor ev_Col@(h.4)*12,255,160 h.2=(ginfo(16)<<16)|(ginfo(17)<<8)|(ginfo(18)) hsvcolor ev_Col@(h.4)*12,160,255 h.3=(ginfo(16)<<16)|(ginfo(17)<<8)|(ginfo(18)) gradf 26,30,348,20,1,h.3,h.2 : s=strf("Event%d",h.4) pos 31,32 : color : mes s :hsvcolor ,,255 : pos 30,31 : mes s pos 30,54 : s=strf("%2d:%02d ¡Á",ev_start@(h.4)/60,ev_start@(h.4)\60) s=strf("%s %2d:%02d",s,ev_end@(h.4)/60,ev_end@(h.4)\60) mes strf("%s (%2d:%02d)",s,ev_duration@(h.4)/60,ev_duration@(h.4)\60) s=ev_Info@(h.4) : h=30,80,370,370 DrawText hdc,s,-1,varptr(h),$2010 : pos 0,0 redraw 1 return 1 #deffunc draw_ev_rect int pi j.0=ev_X@.pi*tmp_X@+40,(((ev_start@.pi*base_zoom@>>1)+1)>>1)+420 j.2=base_W-j.0-1,limit(((ev_duration@.pi*base_zoom@>>1)+1)>>1,20,4320) j.4=0,0,ev_Col@.pi : hsvcolor j.6*12,192,96 circle j.0,j.1,j.0+18,j.1+18,1 : circle j.0,j.1+j.3-18,j.0+18,j.1+j.3,1 boxf j.0,j.1+9,j.0+1,j.1+j.3-10 : boxf j.0+9,j.1,j.0+j.2,j.1+j.3-1 color : boxf 0,0,base_W,18 : hsvcolor ,,255 circle 360,0,378,18,1 : hsvcolor j.6*12,64,255 j.4=(ginfo(16)<<16)|(ginfo(17)<<8)|(ginfo(18)) hsvcolor j.6*12,160,255 j.5=(ginfo(16)<<16)|(ginfo(17)<<8)|(ginfo(18)) gradf 0,0,360,6,1,j.4,j.5 : boxf 0,6,359,11 hsvcolor j.6*12,255,160 j.4=(ginfo(16)<<16)|(ginfo(17)<<8)|(ginfo(18)) gradf 0,12,360,6,1,j.5,j.4 : gmode 7,9,9 pos j.0+1,j.1+1 : gcopy 9,351,0 pos j.0+1,j.1+j.3-10 : gcopy 9,351,9 :gmode 1 pos j.0+10,j.1+1 : gcopy 9,0,0,j.2-9,9 pos j.0+10,j.1+j.3-10 : gcopy 9,0,9,j.2-9,9 if j.3>20{gradf j.0+1,j.1+9,j.2,j.3-17,1,j.4,j.5} s=strf("Event%d %2d:%02d",pi,ev_start@.pi/60,ev_start@.pi\60) j.0+=10 : j.1=j.1+2 j.2+=j.0-1 : j.3+=j.1-3 : hsvcolor j.6*12,255,64 DrawText hdc,s,-1,varptr(j),$2010 j=j.0-1,j.1-1,j.2-1,j.3-1 : hsvcolor ,,255 DrawText hdc,s,-1,varptr(j),$2010 return #deffunc kwait ;ÆþÎÏ j.1=0 : *@ : await 5 : stick j : if j=128{end} if (j=256)&(j.1=0){draw_ev_info MouseX,MouseY : j.1=stat : goto *@b} if j{if j.1{return 0}else{return j&1279}} goto *@b ;------------------½é´üÀßÄꤳ¤³¤«¤é--------------- *main repeat n ev_start.cnt=rnd(1430) ev_duration.cnt=(rnd(356)+5) if ev_duration.cnt+ev_start.cnt>=1440{ ev_duration.cnt=1440-ev_start.cnt} loop ;------------------ºÇŬ²½½èÍý¤³¤³¤«¤é--------------- repeat n ev_end.cnt=ev_start.cnt+ev_duration.cnt ev_X.cnt=-1 : ev_W.cnt=1 ev_Info.cnt=strf("Event%d ¤Î¾ÜºÙ¤Ï³«È¯Ãæ¤Ç¤¹¡£",cnt) ev_Col.cnt=rnd(16) loop tmp_X=0 : tmp_W=0 : i=0,0,0 repeat n tmp_X=0 : tmp_Y=-1 : tmp_H=0 : i=-1 repeat n if ev_X.cnt>=0{continue} If ev_duration.cnt<tmp_H{continue} If (ev_duration.cnt=tmp_H)&(ev_start.cnt>tmp_Y){continue} i=cnt : tmp_Y=ev_start.cnt : tmp_H=ev_duration.cnt loop repeat : i.1=0,tmp_Y+tmp_H repeat n if(i=cnt)|(tmp_X!ev_X.cnt){continue} if(tmp_Y>=ev_start.cnt)&(tmp_Y<ev_end.cnt){i.1++ : break} if(i.2>ev_start.cnt)&(i.2<=ev_end.cnt){i.1++ : break} loop if i.1=0{ ev_X.i=tmp_X if tmp_W<=tmp_X{tmp_W=tmp_X+1} break }else{tmp_X++} loop loop i=tmp_W-2,0 ;½½Æóʬ¤ËÉý¤¬ºß¤ê¤½¤¦¤Ê¤é¾¯¤·±¦¤Ø°ÜÆ° repeat : i.2=1,9999,-1 repeat n if i.0!ev_X.cnt{continue} if i.1>ev_start.cnt{continue} if i.3<ev_start.cnt{continue} i.3=ev_start.cnt : i.4=cnt loop : if i.4<0{i=i.0-1,0 : if i.0<1{break} :continue} i.1=ev_end(i.4) repeat : i.5=0 repeat n if (i.0+i.2)!ev_X.cnt{continue} if (i.1>ev_start.cnt)&(i.1<=ev_end.cnt){i.5++ : break} if (i.3>=ev_start.cnt)&(i.3<ev_end.cnt){i.5++ : break} if (ev_start.cnt<i.1)&(ev_start.cnt>=i.3){i.5++ : break} if (ev_end.cnt<=i.1)&(ev_end.cnt>i.3){i.5++ : break} loop : if i.5{break} : i.2++ : if (i.0+i.2)>=tmp_W{break} loop : if i.2>2{ev_X(i.4)+=(i.2>>1)} loop ;------------------ºÇŬ²½½èÍý¤³¤³¤Þ¤Ç--------------- ;ÉÁ²è *draw gsel 9 : redraw 0 : hsvcolor ,,255: boxf : base_zoom=ev_zoom(tmp_Z) tmp_H=base_zoom*4 : i.0=48/tmp_H gmode 3,base_W-24,1,64 : hsvcolor ,,128 boxf 0,60,base_W,65 repeat tmp_H+1 : pos 24+((cnt\2)*8),cnt*90+420 : gcopy 9,0,60 : loop font msGothic,20,17 gradf 0,20,20,20,1,$888899,$222233 : gmode 7,20,20 repeat tmp_H+1 if (cnt\2)=1{continue} color : boxf 20,20,40,40 hsvcolor ,,255 : pos 20,20 :mes strf("%2d",cnt*i.0/2) pos 0,cnt*90+410 : gcopy 9,0,20 loop font msGothic,16,16 tmp_X=360/(tmp_W+1) : i.1=0,-1,0,0 repeat : i.0=-1 : i.3=1440 repeat n if ev_X.cnt!i.1{continue} if ev_start.cnt<=i.2{continue} if ev_start.cnt>i.3{continue} i.0=cnt : i.3=ev_start.cnt loop if i.0>=0{ i.2=i.3 : draw_ev_rect i.0 i.4++ : if i.4>=n{break} }else{i.1=i.1+1,-1} loop color : boxf 0,0,400,400 : hsvcolor ,,255 circle 20,20,40,40,1 : circle 360,20,380,40,1 circle 20,360,40,380,1 : circle 360,360,380,380,1 boxf 30,20,369,379 gmode 6,360,10,255 : hsvcolor ,,48 : boxf 20,30,379,369 gradf 20,0,360,10,1,$AAAAAA,$CCCCCC pos 20,20 : gcopy 9,20,0 gradf 20,0,360,10,1,$CCCCCC,$EEEEEE pos 20,370 : gcopy 9,20,0 gmode 3,base_W-24,1,64 : tmp_H=base_zoom*4 repeat tmp_H+1 : pos 24+((cnt\2)*8),cnt*90+420 : gcopy 9,0,60 : loop redraw 1 : gsel 0 : gmode 1,base_W,base_H *@ : base_start=limit(base_start,0,base_zoom*360-360) gmode 1,base_W,base_H : pos 0,0 : gcopy 9,0,base_start+400 kwait : i.1=base_start,tmp_Z : if stat&$FF0{goto *start} if stat&2{base_start-=180} : if stat&8{base_start+=180} if stat&1{i.2=tmp_Z-1} : if stat&4{i.2=tmp_Z+1} i.2=limit(i.2,0,5) : if i.2!tmp_Z{tmp_Z=i.2 : goto *draw} goto *@b
¥«¡¼¥½¥ë¥­¡¼¤ÇÆ°¤­¤Þ¤¹¡£



YSR

¥ê¥ó¥¯

2012/8/23(Thu) 23:27:28|NO.48781

>>NO.48770
¤ó¤ó¤ó¤ó¡ª¡©¡ª¡©
Ëܵ¤½Ð¤·²á¤®¤Ç¤·¤ç¡Ä¡Ä¥¯¥ª¥ê¥Æ¥£¹â¤¹¤®£÷



ONION software Copyright 1997-2023(c) All rights reserved.