HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0308
T-glus虹色を作ってみた!4解決


T-glus

リンク

2021/3/8(Mon) 16:13:04|NO.92438

大したものではありませんが何かのお役に立てればと思い投稿させていただきます

// どの色から始まるか指定
red=255
green=0
blue=0

// 虹色処理開始
repeat

if hen=0{if red>=253{blue=blue+5:if green>=253{hen=1}}}
if hen=0{if blue>=253{red=red-5}}
if hen=0{if red<=1{green=green+5}}
if hen=0{if green>=253{blue=blue-5}}
if hen=0{if blue<=1{red=red+5}}
if hen=0{if red>255{red=255}}
if hen=0{if green>255{green=255}}
if hen=0{if blue>255{blue=255}}
if hen=0{if red<1{red=2}}
if hen=0{if green<1{green=2}}
if hen=0{if blue<1{blue=2}}
if hen=1{if red>253{if green<4{if blue<10{hen=0}}}}
if hen=1{green=green-5}

// 画面塗りつぶし
color red,green,blue
boxf
wait 1

loop



この記事に返信する


玄冬

リンク

2021/3/9(Tue) 02:40:35|NO.92442

 
a_COLOR = 255,0,0
repeat -1 mode = (cnt \ 6) + 2 repeat 51 a_COLOR(mode \ 3) += 5 - 10 *(mode \ 2) color a_COLOR(0), a_COLOR(1), a_COLOR(2) boxf wait 1 loop loop



T-glus

リンク

2021/3/10(Wed) 17:54:57|NO.92456

そんなにスマートな書き方があったのですね。
私はまだまだ未熟です
しかしそれは他のコードと一緒に使うことができませんでした



よっちぃ

リンク

2021/3/11(Thu) 04:04:01|NO.92458

こんなのとかどうすか

repeat:hsvcolor cnt\191,255,255:boxf:wait 1:loop



T-glus

リンク

2021/3/11(Thu) 17:01:21|NO.92459

凄いです!
お二人ともありがとうございます!



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