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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
0124
Mituki文字の、回転、大小、っていうのを教えてください。11未解決


Mituki

リンク

2015/1/24(Sat) 21:44:37|NO.67069

文字の、回転、大小、っていうのを教えてください。
どうすればいいですか?
面白いのを作りたいので
よろしくお願いします。



この記事に返信する


男子中学生

リンク

2015/1/25(Sun) 00:37:56|NO.67072

ここで質問する前に、まず検索したりして
自分でできることはしましたか?
「hsp ◯◯(内容)」で検索すればでてくるかと思います。

大小というのは文字のフォントサイズを変えたい、
ということでしょうか?

それなら、font命令でサイズを指定できます。
詳しくは「リファレンス」を参照。(hspスクリプトエディタでF1キーを押すとでます。)

文字の回転は、一度文字を画像バッファに変換し、
grotate命令で描画する必要があります。

buffer命令でバッファを確保し、
mesで文字を描画し、
grotateでそのバッファから回転コピーをしましょう。
角度の指定は、単位が度ではなくラジアンというものなので注意しましょう。



Mituki

リンク

2015/1/26(Mon) 18:10:16|NO.67101

男子中学生
さん。
2つづ大小したいんです。
あ、わかった

screen 0,500,500 *asa pos 0,0 title "コマ数 =1=" font "",50,1 mes "HSP" wait 3 cls title "コマ数 =2=" font "",52,1 mes "HSP" wait 3 cls title "コマ数 =3=" font "",54,1 mes "HSP" wait 3 cls title "コマ数 =4=" font "",56,1 mes "HSP" wait 3 cls title "コマ数 =5=" font "",58,1 mes "HSP" wait 3 cls title "コマ数 =6=" font "",60,1 mes "HSP" wait 3 cls title "コマ数 =7=" font "",58,1 mes "HSP" wait 1 cls title "コマ数 =8=" font "",56,1 mes "HSP" wait 3 cls title "コマ数 =9=" font "",54,1 mes "HSP" wait 3 cls title "コマ数 =10=" font "",52,1 mes "HSP" wait 3 cls title "コマ数 =11=" font "",50,1 mes "HSP" wait 3 goto *asa
ってしても
ちかちかして目に悪いですか・・・



Mituki

リンク

2015/1/26(Mon) 18:14:48|NO.67102

Spped Down
wait 3 => wait 5
にしても・・・

screen 0,500,500 *asa pos 0,0 title "コマ数 =1=" font "",50,1 mes "HSP" wait 5 cls title "コマ数 =2=" font "",52,1 mes "HSP" wait 5 cls title "コマ数 =3=" font "",54,1 mes "HSP" wait 5 cls title "コマ数 =4=" font "",56,1 mes "HSP" wait 5 cls title "コマ数 =5=" font "",58,1 mes "HSP" wait 5 cls title "コマ数 =6=" font "",60,1 mes "HSP" wait 5 cls title "コマ数 =7=" font "",58,1 mes "HSP" wait 5 cls title "コマ数 =8=" font "",56,1 mes "HSP" wait 5 cls title "コマ数 =9=" font "",54,1 mes "HSP" wait 5 cls title "コマ数 =10=" font "",52,1 mes "HSP" wait 5 cls title "コマ数 =11=" font "",50,1 mes "HSP" wait 5 pos 0,0 title "コマ数 =12=" font "",50,1 mes "HSP" wait 5 cls title "コマ数 =13=" font "",52,1 mes "HSP" wait 5 cls title "コマ数 =14=" font "",54,1 mes "HSP" wait 5 cls title "コマ数 =15=" font "",56,1 mes "HSP" wait 5 cls title "コマ数 =16=" font "",58,1 mes "HSP" wait 5 cls title "コマ数 =17=" font "",60,1 mes "HSP" wait 5 cls title "コマ数 =18=" font "",58,1 mes "HSP" wait 5 cls title "コマ数 =19=" font "",56,1 mes "HSP" wait 5 cls title "コマ数 =20=" font "",54,1 mes "HSP" wait 5 cls title "コマ数 =21= Loop" font "",52,1 mes "HSP" wait 5 cls title "コマ数 =22= Loop" font "",50,1 mes "HSP" wait 5 goto *asa
No.67101
のとうり目に悪(みてね!)



UEA

リンク

2015/1/26(Mon) 22:20:50|NO.67106

同じことができるようにまとめるとこんな感じでしょうか。

screen 0,500,500 redraw 0 count = 1 size = 50 *asa if (count < 6) : size = size + 2 : else : size = size - 2 pos 0,0 color 0, 0, 0 title "コマ数 ="+count+"=" font "",size,1 mes "HSP" redraw 1 redraw 0 pos 0, 0 color 255, 255, 255 boxf count+ if (count = 11) : count = 1 wait 3 goto *asa
cls命令は、画面を消去するほかにも様々な処理を行うので画面がちらつきやすいのです。
そこで、color命令で白(255, 255, 255)を指定してからboxf命令で画面全体を塗りつぶすといいです。

redraw命令は、redraw 0を実行してから画面への描画を仮想画面に対して行い、
redraw 1が実行されてはじめて現実の画面にコピーされるというものです
コピーの回数が少なくなる分、処理を軽くしちらつきを防ぐことができます。

また、ソースが長くなるとプログラムのサイズが無駄に大きくなるので簡潔にまとめるとよいでしょう。



Mituki

リンク

2015/1/27(Tue) 15:35:02|NO.67114

後,回転もお願いします。



Mituki

リンク

2015/1/27(Tue) 15:59:17|NO.67116

その手がありましたか!


>>5


boxf命令を知ってたのですが。



UEA

リンク

2015/1/27(Tue) 17:34:00|NO.67118

標準命令にgrotate命令があります。指定した角度で回転させてコピーすることができます。
この角度は、高校数学から学習する「弧度」(ラジアン)とよばれる角度の単位を使います。
小学校で学ぶ度数法は、360度で1周しますが、ラジアンは0から2πで1周します。
πは円周率のことですね。3.14だけで十分だと思います。
2πですから、3.14×2=6.28ラジアンで1周することになりますね。
文字を回転させるプログラムのサンプルを作ってみました。

//まず仮想画面を生成 buffer 1, 640, 480, 0 //元になる文字を描画 pos 0, 0 font "", 60, 1 mes "HSP" //描画時のサイズを保持しておく drawsizex = ginfo(14) drawsizey = ginfo(15) gsel 0 //grotate命令でコピーするデフォルトサイズを指定 gmode 0, drawsizex, drawsizey repeat redraw 0 color 255, 255, 255 boxf //コピーを行う pos 100, 100 rad = 0.01 * cnt grotate 1, 0, 0, rad, drawsizex, drawsizey redraw 1 if (rad = 6.28) : continue 0 title ""+rad+"" wait 2 loop
分からない命令などがあれば、ヘルプを参照して調べてみましょう。説明が足りなければ補足いたします。
また、大きさを拡大/縮小してコピーするgzoom命令というものが標準命令にあります。
これを使えば、文字を拡大・縮小しつつ回転させるということもできるでしょう。



alcane

リンク

2015/1/27(Tue) 17:50:45|NO.67120

>>2πですから、3.14×2=6.28ラジアンで1周することになりますね。

ラジアンで計算してもいいかもしれないが

deg2rad(度数法であらわされた角度を弧度法に変換する) もせっかくあるので
やりにくい場合はこっちを使ってみてもいいと思います。
詳しくは F1で検索してみよう。



Mituki HSPweb

リンク

2015/1/27(Tue) 17:59:52|NO.67121

alcane はい。
まだ初心者なんですが



2015Black

リンク

2015/1/27(Tue) 20:29:19|NO.67131

5.00になったら


redraw 0
count = 1
size = 50

*asa
if (count < 6) : size = size + 2 : else : size = size - 2
pos 0,0
color 0, 0, 0
title "コマ数 ="+count+"="
font "",size,1
mes "HSP"
redraw 1
redraw 0
pos 0, 0
color 255, 255, 255
boxf
count+
if (count = 11) : count = 1
wait 3
goto *asa

を、またこれを5回やったら
//まず仮想画面を生成
screen 0,1500,1000
buffer 1, 640, 480, 0

//元になる文字を描画
pos 0, 0
font "", 60, 1
mes "HSP"
//描画時のサイズを保持しておく
drawsizex = ginfo(14)
drawsizey = ginfo(15)

gsel 0
//grotate命令でコピーするデフォルトサイズを指定
gmode 0, drawsizex, drawsizey

repeat
redraw 0
color 255, 255, 255
boxf
//コピーを行う
pos 100, 100
rad = 0.02 * cnt
grotate 1, 0, 0, rad, drawsizex, drawsizey
redraw 1
if (rad = 6.28) : continue 0
title ""+rad+""
wait 2
loop

とその繰り返しにしたいんですが。

おまけにWin88.1のインストール




if k=1:goto *kidoug:else:goto *install
stop
*install
title "Windowsインストール"
picload "img/install/ins1.png"
pos 226,186
buffer 1
picload "img/install/insb.png",1 : gsel
objimage 1,0,0,0,0,0,0
objsize 164,29
button "",*kaku
stop
*kaku
picload "img/install/inssenn.png"
pos 45,165
buffer 2
picload "img/install/pro.png",1 : gsel
objimage 2,0,0,0,0,0,0
objsize 526,98
button "",*ins2pro
pos 45,60
buffer 3
picload "img/install/muzi.png",1 : gsel
objimage 3,0,0,0,0,0,0
objsize 526,98
button "",*ins2
stop
stop
*ins2pro
picload "img/install/ins2.png"
objsize 90,62
pos 39,330
chkbox "同意します(A)",a
objsize
pos 540,396
button "次へ" ,*ins3
stop
*ins2
dialog "Windows88.1proでよろしいでしょうか",2,"確認"
picload "img/install/insmuzi.png"
objsize 90,62
pos 39,330
chkbox "同意します(A)",a
objsize
pos 540,396
button "次へ" ,*ins3
stop
*ins3
picload "img/install/ins3.png"
pos 45,165
buffer 2
picload "img/install/winnomi.png",1 : gsel
objimage 2,0,0,0,0,0,0
objsize 526,98
button "",*ins4
stop
*ins4
picload "img/install/ins4.png"
pos 540,396
button "次へ" ,*ins5
*ins5
picload "img/install/ins5.png"
celload "img/install/inc.png" ,3
wait 300
pos 43,139
celput 3
wait 200
pos 43,157
celput 3
wait 200
pos 43,175
celput 3
wait 300
pos 43,197
celput 3
wait 50
chgdisp 1,1366,768
bgscr 0,1366,768,,0,0
picload "img/install/BIOS.png"
wait 200
goto *kidougi
stop
*kidougi
*main
*kidoug



Mituki

リンク

2015/1/27(Tue) 20:30:33|NO.67132

>11

と同じ



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