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