; Picture Feedback minimal ; copyleft 2022-07-07 sugiura@nagoya-u.jp ;----------------------------------------------------------------------------- ; 使う画像に番号をつけていく ;----------------------------------------------------------------------------- buffer 1 ; 画像を事前に読み込んでおく場所の番号 picload "fuji3.jpg" ; 画像を読み込んで、bufferに入れておく buffer 2 picload "rose2.jpg" buffer 3 picload "saboten2.jpg" buffer 4 picload "cups2.jpg" ;------------------------------------------------------------------------------- ; ウィンドウの大きさ設定 screen 0, 640, 480 ; ウインドウの初期化 0番、ウインドウの大きさの指定 ; bufferを使って画像を読み込んだときは、明示的にウィンドウを指定する ;------------------------------------------ *main ; ボタンの配置 pos 100, 400 button gosub "Fuji", *fuji pos 200, 400 button gosub "Rose", *rose pos 300, 400 button gosub "Sabo", *sabo pos 400, 400 button gosub "Cups", *cups stop ; -------------------------------- sub --------------------------------------- *fuji pos 200, 50 ; 画像を配置する位置 gmode 0, 180, 100 ; モード0で通常画像コピー, 画像の大きさをx, y で gcopy 1 ; 1番の画像 return *rose pos 200, 50 gmode 0, 180, 100 gcopy 2 ; 2番の画像 return *sabo pos 200, 50 gmode 0, 180, 100 gcopy 3 ; 3番の画像 return *cups pos 200, 50 gmode 0, 180, 100 gcopy 4 ; 4番の画像 return