累計17人
今日1人
昨日0人
2012年4月20日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム 癒し 色調合 QRコード 初代対応 @
三原色を直方体にみたてました。
キューブの表面をグリグリして、微妙な色を楽しみます。
静かな音楽をつけました。
(2012.4.8に投稿した「光奏器」の入力方法を変更したものです。)
ゆっくりとキューブをなでて、気分にあった色をさがします。
らくな姿勢でぼんやりと色をながめて、深く呼吸をします。
お香をたくとさらにゆるゆるできるかも。
キューブの表面をタップしてください。
(正面は赤・緑、上面は緑・青、側面は青・赤)
Aボタン: 画面のオフ・オン
Xボタン: RBG値の表示・非表示
Yボタン: 画面のオフ・オンのリバース
↑↓←→: メモリー色の表示
Bボタン+↑↓←→: 現在の表示色の記録
音楽の終了は BGMSTOP
プチコンmkII 向けの QR コードです。
1/3
2/3
3/3
- ’−−−−−−−−−−−−−−−−−−−−−−−
- ’| Yuru Cube |
- ’| Slow Cube |
- ’| 2012.04.20 by hoy |
- ’−−−−−−−−−−−−−−−−−−−−−−−
- GOSUB @INIT
- ?
- ?
- ?” Yuru Cube”
- ?
- ?” Slow Cube”
- ?
- ?” ver1.0”
- ?
- ?
- ?” Pat the Cube.”
- ?
- ?” A: ON/OFF”
- ?” Y: OFF/ON Reverse”
- ?” X: RGB Vol ON/OFF”
- ?
- ?” ↑↓←→: Show color”
- ?” B+↑↓←→: Save current color”
- ?
- @MATI
- B=BUTTON()
- IF B!=0 THEN GOTO @EXIT
- IF TCHST==FALSE THEN GOTO @MATI
- @EXIT
- CLS
- GOSUB @COLORSET
- ’−−−−− MAIN LOOP −−−−
- @LOOP
- B=BUTTON()
- IF B==64 THEN GOSUB @NUMOFF
- IF B==16 AND FLAG==1 THEN VISIBLE 1,1,1,1,1,1
- IF B==16 AND FLAG==−1 THEN VISIBLE 1,1,1,1,1,0
- IF B==0 AND FLAG==1 THEN VISIBLE 1,1,1,1,1,0
- IF B==0 AND FLAG==−1 THEN VISIBLE 1,1,1,1,1,1
- IF B==128 THEN GOSUB @REVERSE
- IF B==1 THEN GOSUB @PUT1
- IF B==2 THEN GOSUB @PUT2
- IF B==4 THEN GOSUB @PUT4
- IF B==8 THEN GOSUB @PUT8
- IF B==33 THEN GOSUB @SET1
- IF B==34 THEN GOSUB @SET2
- IF B==36 THEN GOSUB @SET4
- IF B==40 THEN GOSUB @SET8
- TST=TCHST
- IF TST==FALSE THEN GOTO @LOOP
- IF FLAG2==−1 THEN VISIBLE 0,1,1,1,1,1
- IF FLAG2==1 THEN VISIBLE 1,1,1,1,1,1
- X=TCHX:Y=TCHY
- IF (X>9 AND X<111) AND (Y>79 AND Y<181) THEN GOSUB @IROSET1
- IF (Y<75 AND Y>11) AND (Y<−2/3*X+148)AND (Y>−2/3*X+80.8) THEN GOSUB @IROSET2
- IF (X<209 AND X>117) AND (Y>−2/3*X+154.6−2) AND (Y<−2/3*X+255.6) THEN GOSUB @IROSET3
- IF X>215 AND Y<90 THEN GOSUB @ALLUP
- IF X>215 AND Y>=90 THEN GOSUB @ALLDWN
- GOTO @LOOP
- ’−−−−− SUB −−−−
- @IROSET1
- YR=FLOOR(−51/20*Y + 460)
- YG=FLOOR(51/20*X − 24.5)
- GOSUB @COLORSET
- RETURN
- @IROSET2
- YG=FLOOR((3/2*Y−121.6+X)/100*255+0.5)
- YB=FLOOR(−51/12*Y+306)
- GOSUB @COLORSET
- RETURN
- @IROSET3
- YR=FLOOR((−2/3*X + 254.6−Y)/100*255)
- YB=FLOOR(51/18*X−334.3)
- GOSUB @COLORSET
- RETURN
- ’−−−−−−−−
- @COLORSET
- IF YR>255 THEN YR=255
- IF YR<0 THEN YR=0
- IF YG>255 THEN YG=255
- IF YG<0 THEN YG=0
- IF YB>255 THEN YB=255
- IF YB<0 THEN YB=0
- R$=HEX$(YR)
- G$=HEX$(YG)
- B$=HEX$(YB)
- IF LEN(R$)==1 THEN R$=”0”+R$
- IF LEN(G$)==1 THEN G$=”0”+G$
- IF LEN(B$)==1 THEN B$=”0”+B$
- C$=R$+G$+B$
- GPAGE 0
- COLSET ”GRP”, 100, C$
- GPAGE 1
- COLSET ”GRP”, 100, C$
- CLS
- IF FLAG2==−1 GOTO @SKIP
- LOCATE 3,22
- ?”<R> <G> <B> ”
- LOCATE 3,20 : ? YR;
- LOCATE 10,20 : ? YG;
- LOCATE 17,20 : ? YB;
- @SKIP
- GOSUB @GRAPH
- GOSUB @TENUTU
- RETURN
- ’−−−−−−−
- @REVERSE
- FLAG=FLAG*−1
- IF FLAG==1 THEN SPCLR
- FOR I = 0 TO 10000
- NEXT I
- RETURN
- @NUMOFF
- FLAG2=FLAG2*−1
- CLS
- GOSUB @COLORSET
- FOR I = 0 TO 10000
- NEXT I
- RETURN
- @PUT1
- YR=MEMORY(0,0)
- YG=MEMORY(0,1)
- YB=MEMORY(0,2)
- GOSUB @COLORSET
- RETURN
- @PUT2
- YR=MEMORY(1,0)
- YG=MEMORY(1,1)
- YB=MEMORY(1,2)
- GOSUB @COLORSET
- RETURN
- @PUT4
- YR=MEMORY(2,0)
- YG=MEMORY(2,1)
- YB=MEMORY(2,2)
- GOSUB @COLORSET
- RETURN
- @PUT8
- YR=MEMORY(3,0)
- YG=MEMORY(3,1)
- YB=MEMORY(3,2)
- GOSUB @COLORSET
- RETURN
- @SET1
- MEMORY(0,0)=YR
- MEMORY(0,1)=YG
- MEMORY(0,2)=YB
- RETURN
- @SET2
- MEMORY(1,0)=YR
- MEMORY(1,1)=YG
- MEMORY(1,2)=YB
- RETURN
- @SET4
- MEMORY(2,0)=YR
- MEMORY(2,1)=YG
- MEMORY(2,2)=YB
- RETURN
- @SET8
- MEMORY(3,0)=YR
- MEMORY(3,1)=YG
- MEMORY(3,2)=YB
- RETURN
- ’−−−−−−−−−
- @GRAPH
- GLINE 9, 180, 9, 78, 100
- GLINE 8, 180, 8, 78, 100
- GLINE 7, 180, 7, 78, 100
- GLINE 9, 180, 9, −20/51*YR+180, 2
- GLINE 8, 180, 8, −20/51*YR+180, 2
- GLINE 7, 180, 7, −20/51*YR+180, 13
- GLINE 10, 181, 110, 181, 100
- GLINE 10, 182, 110, 182, 100
- GLINE 10, 183, 110, 183, 100
- GLINE 10, 181, 20/51*YG+10, 181, 11
- GLINE 10, 182, 20/51*YG+10, 182, 11
- GLINE 10, 183, 20/51*YG+10, 183, 13
- GLINE 115, 72,FLOOR(113+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
- GLINE 114, 72,FLOOR(112+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
- GLINE 112, 72,FLOOR(110+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
- GLINE 115, 72,FLOOR(113+92*YB/255), FLOOR(73−60*YB/255),4
- GLINE 114, 72,FLOOR(112+92*YB/255), FLOOR(73−60*YB/255),4
- GLINE 112, 72,FLOOR(110+92*YB/255), FLOOR(73−60*YB/255),13
- YBKYU=YB
- RETURN
- @ALLUP
- YR=YR+4
- YG=YG+4
- YB=YB+4
- GOSUB @COLORSET
- RETURN
- @ALLDWN
- YR=YR−2
- YG=YG−2
- YB=YB−2
- GOSUB @COLORSET
- RETURN
- @TENUTU
- SPPAGE 1
- SPSET 0,107,2,0,0,0
- SPSET 1,107,2,0,0,0
- SPSET 2,107,2,0,0,0
- SPOFS 0,20/51*YG+10,−20/51*YR+175
- SPOFS 1,FLOOR(YG/255*100+11+93*YB/255),FLOOR(72−60*YB/255)
- SPOFS 2,FLOOR(113+94*YB/255),FLOOR(−20/51*YR+172−60*YB/255)
- IF FLAG==1 THEN SPCLR
- RETURN
- ’−−−−−−−−−
- @INIT
- ACLS
- CLEAR
- VISIBLE 1,1,1,1,1,1
- COLOR 2
- GPAGE 0
- GCLS 100
- PNLTYPE ”OFF”
- GPAGE 1
- GCLS 100
- DATA 37,74,88,202,34,45
- DATA 238,102,30,19,100,87
- ’DATA 65,93,30,19,100,87
- DIM MEMORY(4,3)
- FOR I= 0 TO 3
- FOR J = 0 TO 2
- READ MEMORY(I,J)
- NEXT J
- NEXT I
- FLAG=−1 : FLAG2=1
- YR=80: YG=153 : YB=0
- GOSUB @COLORSET
- CLS
- X0=10 : Y0=180
- GLINE X0,Y0,X0+104,Y0,13
- GLINE X0+104,Y0,X0+104,Y0−104,13
- GLINE X0+104,Y0−104,X0,Y0−104,13
- GLINE X0,Y0−104,X0,Y0,13
- GLINE X0,Y0−104,X0+94,Y0−104−64,13
- GLINE X0+104,Y0−104,X0+104+94,Y0−104−64,13
- GLINE X0+104,Y0,X0+104+94,Y0−64,13
- GLINE X0+94,Y0−104−64,X0+104+94,Y0−104−64,13
- GLINE X0+104+94,Y0−104−64,X0+104+94,Y0−64,13
- GLINE 220,80,235,60,13
- GLINE 235,60,250,80,13
- GLINE 220,100,235,120,13
- GLINE 235,120,250,100,13
- BGMPLAY 24
- RETURN
- ’−−− END −−−
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.125 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:58 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30