掲示板 > Tiny Basic for Windows

loadpictureでゴミが表示される

(1/3) > >>

ShionAmasato:
画像を連結するツールを作ったのですが、2枚目のloadpictureでゴミが表示されます。
（添付画像はツールで連結した画像をjpg変換したものです、右下に余計なものが表示されています）

ソースコードは添付した通りです

ShionAmasato:
画像がない？

ShionAmasato:
CLS

PUBLIC FN$
PUBLIC CW
PUBLIC CH
CWPOSITION(16,256)
CSCREEN(160,288)
FOR I=1 TO 8
   CBUTTON(I) ON
   CBUTTON(I).TOP=I*32-16
   CBUTTON(I).LEFT=16
   CBUTTON(I).WIDTH=128
   CBUTTON(I).HEIGHT=32
NEXT
CBUTTON(1).TEXT="ファイルを開く"
CBUTTON(2).TEXT="保存"
CBUTTON(3).TEXT="モザイク"
CBUTTON(4).TEXT="拡大"
CBUTTON(5).TEXT="縦連結"
CBUTTON(6) OFF '未実装
CBUTTON(7) OFF '未実装
CBUTTON(8 ).TEXT="終了"

CHDIR GETPROGRAMDIR
DO
   IF CBUTTON(1).CLICK THEN LOADFILE
   IF LEN(FN$)>0 THEN
      IF CBUTTON(2).CLICK THEN SAVEFILE
      IF CBUTTON(3).CLICK THEN MOZAIKU
      IF CBUTTON(4).CLICK THEN RESIZE
      IF CBUTTON(5).CLICK THEN JOINH
   ENDIF
   IF CBUTTON(8 ).CLICK THEN EXIT DO
LOOP

CLOSECSCREEN
END

SUB LOADFILE
   DIM T$
   T$=SELECTOPENFILE(" |*.JPG;*.PNG;")
   IF LEN(T$)>0 THEN
      FN$=""+T$
   ELSE
      EXIT SUB
   ENDIF
   T$=GETIMAGESIZE$(FN$):CW=VAL(LEFT$(T$,4)):CH=VAL(RIGHT$(T$,4))
   GWPOSITION(256,256)
   GSCREEN(2048,2048)
   GFLOCATE(0,0)
   LOADPICTURE(FN$)
END SUB

SUB SAVEFILE
   FN$=LEFT$(FN$,INSTR(1,FN$,".")-1)+"_EX.PNG"
   SAVEPICTURE(FN$,CW,CH)
   ?FN$+"に保存しました"
END SUB

(中略)

SUB JOINH
   DIM W,H
   DIM F$,T$
   F$=SELECTOPENFILE(" |*.JPG;*.PNG;")
   IF LEN(F$)<1 THEN EXIT SUB
   ?"連結処理中…"
   T$=GETIMAGESIZE$(F$):W=VAL(LEFT$(T$,4)):H=VAL(RIGHT$(T$,4))
   GFLOCATE(-MAX((CW-W)\2,0),-CH)
   LOADPICTURE(F$)
   CH=MIN(CH+H,2048)
   ?"連結完了"
END SUB

ShionAmasato:
すいません、自己解決しました
   GFLOCATE(-MAX((CW-W)\2,0),-CH)
   LOADPICTURE(F$)
ではなく
   GLOCATE(MAX((CW-W)\2,0),CH)
   LOADPICTURE(F$,W,H)
にすると求めていた挙動をします。

数値がマイナスなのを訝るべきでした…

ShionAmasato:
話題とは別なのですが

この掲示板について気になるところ
・スパムがついているので消した方がよさそう
・ファイル添付機能があるのに添付したファイルが見れないのはどういうことでしょうか？

Navigation

[0] Message Index

[#] Next page