プチコンまとめWiki (初代/mkII)

ゆるキューブ

パンくずリスト

累計17人 

今日1人

昨日0人

2012年4月20日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム 癒し 色調合 QRコード 初代対応 @

概要

三原色を直方体にみたてました。

キューブの表面をグリグリして、微妙な色を楽しみます。

静かな音楽をつけました。

(2012.4.8に投稿した「光奏器」の入力方法を変更したものです。)

用途

ゆっくりとキューブをなでて、気分にあった色をさがします。

らくな姿勢でぼんやりと色をながめて、深く呼吸をします。

お香をたくとさらにゆるゆるできるかも。

操作

 キューブの表面をタップしてください。

(正面は赤・緑、上面は緑・青、側面は青・赤)

Aボタン: 画面のオフ・オン

Xボタン: RBG値の表示・非表示

Yボタン: 画面のオフ・オンのリバース

↑↓←→: メモリー色の表示

Bボタン+↑↓←→: 現在の表示色の記録

音楽の終了は BGMSTOP

スクリーンショット・動画

sIMGP6990.jpg
sIMGP6992.jpg

QR コード

プチコンmkII 向けの QR コードです。

1/3

qrc0.png

2/3

qrc1.png

3/3

qrc2.png

プログラムリスト

  1. ’−−−−−−−−−−−−−−−−−−−−−−−
  2. ’|     Yuru Cube        |
  3. ’|    Slow Cube         |
  4. ’|  2012.04.20 by hoy   |
  5. ’−−−−−−−−−−−−−−−−−−−−−−−
  6. GOSUB @INIT
  7. ?”           Yuru Cube”
  8. ?”           Slow Cube”
  9. ?”            ver1.0”
  10. ?”          Pat the Cube.”
  11. ?”        A: ON/OFF”
  12. ?”        Y: OFF/ON Reverse”
  13. ?”        X: RGB Vol ON/OFF”
  14. ?”    ↑↓←→:   Show color”
  15. ?”    B+↑↓←→: Save current color”
  16. @MATI
  17. B=BUTTON()
  18. IF B!=0 THEN GOTO @EXIT
  19. IF TCHST==FALSE THEN GOTO @MATI
  20. @EXIT
  21. CLS
  22. GOSUB @COLORSET
  23. ’−−−−− MAIN LOOP −−−−
  24. @LOOP
  25. B=BUTTON()
  26. IF B==64 THEN GOSUB @NUMOFF
  27. IF B==16 AND FLAG==1 THEN VISIBLE 1,1,1,1,1,1
  28. IF B==16 AND FLAG==−1 THEN VISIBLE 1,1,1,1,1,0
  29. IF B==0 AND FLAG==1 THEN VISIBLE 1,1,1,1,1,0
  30. IF B==0 AND FLAG==−1 THEN VISIBLE 1,1,1,1,1,1
  31. IF B==128 THEN GOSUB @REVERSE
  32. IF B==1 THEN GOSUB @PUT1
  33. IF B==2 THEN GOSUB @PUT2
  34. IF B==4 THEN GOSUB @PUT4
  35. IF B==8 THEN GOSUB @PUT8
  36. IF B==33 THEN GOSUB @SET1
  37. IF B==34 THEN GOSUB @SET2
  38. IF B==36 THEN GOSUB @SET4
  39. IF B==40 THEN GOSUB @SET8
  40. TST=TCHST
  41. IF TST==FALSE THEN GOTO @LOOP
  42. IF FLAG2==−1 THEN VISIBLE 0,1,1,1,1,1
  43. IF FLAG2==1 THEN VISIBLE 1,1,1,1,1,1
  44. X=TCHX:Y=TCHY
  45. IF (X>9 AND X<111) AND (Y>79 AND Y<181) THEN GOSUB @IROSET1
  46. IF (Y<75 AND Y>11) AND (Y<−2/3*X+148)AND (Y>−2/3*X+80.8) THEN GOSUB @IROSET2
  47. IF (X<209 AND X>117) AND (Y>−2/3*X+154.6−2) AND (Y<−2/3*X+255.6) THEN GOSUB @IROSET3
  48. IF X>215 AND Y<90 THEN GOSUB @ALLUP
  49. IF X>215 AND Y>=90 THEN GOSUB @ALLDWN
  50. GOTO @LOOP
  51. ’−−−−− SUB −−−−
  52. @IROSET1
  53. YR=FLOOR(−51/20*Y + 460)
  54. YG=FLOOR(51/20*X − 24.5)
  55. GOSUB @COLORSET
  56. RETURN
  57. @IROSET2
  58. YG=FLOOR((3/2*Y−121.6+X)/100*255+0.5)
  59. YB=FLOOR(−51/12*Y+306)
  60. GOSUB @COLORSET
  61. RETURN
  62. @IROSET3
  63. YR=FLOOR((−2/3*X + 254.6−Y)/100*255)
  64. YB=FLOOR(51/18*X−334.3)
  65. GOSUB @COLORSET
  66. RETURN
  67. ’−−−−−−−−
  68. @COLORSET
  69. IF YR>255 THEN YR=255
  70. IF YR<0 THEN YR=0
  71. IF YG>255 THEN YG=255
  72. IF YG<0 THEN YG=0
  73. IF YB>255 THEN YB=255
  74. IF YB<0 THEN YB=0
  75. R$=HEX$(YR)
  76. G$=HEX$(YG)
  77. B$=HEX$(YB)
  78. IF LEN(R$)==1 THEN R$=”0”+R$
  79. IF LEN(G$)==1 THEN G$=”0”+G$
  80. IF LEN(B$)==1 THEN B$=”0”+B$
  81. C$=R$+G$+B$
  82. GPAGE 0
  83. COLSET ”GRP”, 100, C$
  84. GPAGE 1
  85. COLSET ”GRP”, 100, C$
  86. CLS
  87. IF FLAG2==−1 GOTO @SKIP
  88. LOCATE 3,22
  89. ?”<R>    <G>    <B> ”
  90. LOCATE 3,20 : ? YR;
  91. LOCATE 10,20 : ? YG;
  92. LOCATE 17,20 : ? YB;
  93. @SKIP
  94. GOSUB @GRAPH
  95. GOSUB @TENUTU
  96. RETURN
  97. ’−−−−−−−
  98. @REVERSE
  99. FLAG=FLAG*−1
  100. IF FLAG==1 THEN SPCLR
  101. FOR I = 0 TO 10000
  102. NEXT I
  103. RETURN
  104. @NUMOFF
  105. FLAG2=FLAG2*−1
  106. CLS
  107. GOSUB @COLORSET
  108. FOR I = 0 TO 10000
  109. NEXT I
  110. RETURN
  111. @PUT1
  112. YR=MEMORY(0,0)
  113. YG=MEMORY(0,1)
  114. YB=MEMORY(0,2)
  115. GOSUB @COLORSET
  116. RETURN
  117. @PUT2
  118. YR=MEMORY(1,0)
  119. YG=MEMORY(1,1)
  120. YB=MEMORY(1,2)
  121. GOSUB @COLORSET
  122. RETURN
  123. @PUT4
  124. YR=MEMORY(2,0)
  125. YG=MEMORY(2,1)
  126. YB=MEMORY(2,2)
  127. GOSUB @COLORSET
  128. RETURN
  129. @PUT8
  130. YR=MEMORY(3,0)
  131. YG=MEMORY(3,1)
  132. YB=MEMORY(3,2)
  133. GOSUB @COLORSET
  134. RETURN
  135. @SET1
  136. MEMORY(0,0)=YR
  137. MEMORY(0,1)=YG
  138. MEMORY(0,2)=YB
  139. RETURN
  140. @SET2
  141. MEMORY(1,0)=YR
  142. MEMORY(1,1)=YG
  143. MEMORY(1,2)=YB
  144. RETURN
  145. @SET4
  146. MEMORY(2,0)=YR
  147. MEMORY(2,1)=YG
  148. MEMORY(2,2)=YB
  149. RETURN
  150. @SET8
  151. MEMORY(3,0)=YR
  152. MEMORY(3,1)=YG
  153. MEMORY(3,2)=YB
  154. RETURN
  155. ’−−−−−−−−−
  156. @GRAPH
  157. GLINE 9, 180, 9, 78, 100
  158. GLINE 8, 180, 8, 78, 100
  159. GLINE 7, 180, 7, 78, 100
  160. GLINE 9, 180, 9, −20/51*YR+180, 2
  161. GLINE 8, 180, 8, −20/51*YR+180, 2
  162. GLINE 7, 180, 7, −20/51*YR+180, 13
  163. GLINE 10, 181, 110, 181, 100
  164. GLINE 10, 182, 110, 182, 100
  165. GLINE 10, 183, 110, 183, 100
  166. GLINE 10, 181, 20/51*YG+10, 181, 11
  167. GLINE 10, 182, 20/51*YG+10, 182, 11
  168. GLINE 10, 183, 20/51*YG+10, 183, 13
  169. GLINE 115, 72,FLOOR(113+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
  170. GLINE 114, 72,FLOOR(112+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
  171. GLINE 112, 72,FLOOR(110+92*YBKYU/255), FLOOR(73−60*YBKYU/255),100
  172. GLINE 115, 72,FLOOR(113+92*YB/255), FLOOR(73−60*YB/255),4
  173. GLINE 114, 72,FLOOR(112+92*YB/255), FLOOR(73−60*YB/255),4
  174. GLINE 112, 72,FLOOR(110+92*YB/255), FLOOR(73−60*YB/255),13
  175. YBKYU=YB
  176. RETURN
  177. @ALLUP
  178. YR=YR+4
  179. YG=YG+4
  180. YB=YB+4
  181. GOSUB @COLORSET
  182. RETURN
  183. @ALLDWN
  184. YR=YR−2
  185. YG=YG−2
  186. YB=YB−2
  187. GOSUB @COLORSET
  188. RETURN
  189. @TENUTU
  190. SPPAGE 1
  191. SPSET 0,107,2,0,0,0
  192. SPSET 1,107,2,0,0,0
  193. SPSET 2,107,2,0,0,0
  194. SPOFS 0,20/51*YG+10,−20/51*YR+175
  195. SPOFS 1,FLOOR(YG/255*100+11+93*YB/255),FLOOR(72−60*YB/255)
  196. SPOFS 2,FLOOR(113+94*YB/255),FLOOR(−20/51*YR+172−60*YB/255)
  197. IF FLAG==1 THEN SPCLR
  198. RETURN
  199. ’−−−−−−−−−
  200. @INIT
  201. ACLS
  202. CLEAR
  203. VISIBLE 1,1,1,1,1,1
  204. COLOR 2
  205. GPAGE 0
  206. GCLS 100
  207. PNLTYPE ”OFF”
  208. GPAGE 1
  209. GCLS 100
  210. DATA 37,74,88,202,34,45
  211. DATA 238,102,30,19,100,87
  212. ’DATA 65,93,30,19,100,87
  213. DIM MEMORY(4,3)
  214. FOR I= 0 TO 3
  215.  FOR J = 0 TO 2
  216.   READ MEMORY(I,J)
  217.  NEXT J
  218. NEXT I
  219. FLAG=−1 : FLAG2=1
  220. YR=80: YG=153 : YB=0
  221. GOSUB @COLORSET
  222. CLS
  223. X0=10 : Y0=180
  224. GLINE X0,Y0,X0+104,Y0,13
  225. GLINE X0+104,Y0,X0+104,Y0−104,13
  226. GLINE X0+104,Y0−104,X0,Y0−104,13
  227. GLINE X0,Y0−104,X0,Y0,13
  228. GLINE X0,Y0−104,X0+94,Y0−104−64,13
  229. GLINE X0+104,Y0−104,X0+104+94,Y0−104−64,13
  230. GLINE X0+104,Y0,X0+104+94,Y0−64,13
  231. GLINE X0+94,Y0−104−64,X0+104+94,Y0−104−64,13
  232. GLINE X0+104+94,Y0−104−64,X0+104+94,Y0−64,13
  233. GLINE 220,80,235,60,13
  234. GLINE 235,60,250,80,13
  235. GLINE 220,100,235,120,13
  236. GLINE 235,120,250,100,13
  237. BGMPLAY 24
  238. RETURN
  239. ’−−−  END  −−−

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : 癒されるww (2012/04/24 (火) 00:05:43)
  • 名無しさん : ууу (2012/04/24 (火) 21:57:00)
  • hoy : ゆるゆるが伝わって嬉しいです。色って心に伝わるものがありますよね。 (2012/04/26 (木) 21:36:38)
  • 名無しさん : プログラムいただきました。すごく綺麗で、心がほっとします。 (2012/08/04 (土) 20:47:13)
  • 名無しさん : 「光奏器」のアップグレードですね。ゆったりできます。 (2015/01/10 (土) 23:08:17)
  • お名前 : コメント (2012/08/29 (月) 14:04:48)

表示モード : [ スマホ・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