HSPTV!掲示板

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

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

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

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

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

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

男子中学生
さん。
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

ってしても
ちかちかして目に悪いですか・・・

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
のとうり目に悪(みてね！)

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

	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が実行されてはじめて現実の画面にコピーされるというものです
コピーの回数が少なくなる分、処理を軽くしちらつきを防ぐことができます。

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

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

その手がありましたか！


>>5


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

標準命令に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命令というものが標準命令にあります。
これを使えば、文字を拡大・縮小しつつ回転させるということもできるでしょう。

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

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

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

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

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

>11

と同じ