マウスを追いかける、目玉

作品プログラム
動作環境
プロデル 2.0.1322 Windows 11 Pro 64ビット
投稿者
ohisama
投稿日
2025-07-26 13:37:35
ダウンロード数
105

作品のプログラム

//目玉

メイン画面を表示する
待機する

メイン画面とは
  ウィンドウを継承する
  はじめの手順
    初期化する
  終わり
  初期化する手順
    この実質大きさを{428, 394}に変える
    この内容を「目」に変える
    初期化開始する
    キャンバス1というキャンバスを作る
      その位置と大きさを{0, 0, 428, 394}に変える
      そのドッキング方向を「全体」に変える
    初期化終了する
    この設計スケール比率を{144, 144}に変える
  終わり
  キャンバス1のマウスカーソルが移動した時の手順
    始点は、この時の座標
    angle = atan2(始点の1, 始点の2)
    キャンバス1をクリアする
    キャンバス1へ円を描いて右目とする
      その位置と大きさは、{70, 70, 50, 50}
    キャンバス1へ円を描いて右目玉とする
      その位置と大きさは、{70 + sin(angle) * 20, 70 + cos(angle) * 20, 30, 30}
      その背景色を黄に変える
      その太さを3に変える
    キャンバス1へ円を描いて左目とする
      その位置と大きさは、{20, 70, 50, 50}
    キャンバス1へ円を描いて左目玉とする
      その位置と大きさは、{20 + sin(angle) * 20, 70 + cos(angle) * 20, 30, 30}
      その背景色を黄に変える
      その太さを3に変える
  終わり
終わり
	

▲ページの先頭へ