コラム / テトリスぽいもの / 27

• Prev
• Next
• コラム/テトリスぽいもの

右回転を定義します。

   TPiece = Class(TObject)
   private
   public
       (略)
       procedure SpinLeft;
       procedure SpinRight;

       procedure Main;
   end;

実装部はこうなります。

procedure TPiece.SpinRight;
begin
   SpinLeft;
   SpinLeft;
   SpinLeft;
end;

３回まわせば右１回だもんｗｗｗｗ
３回だけだし、ループもしないで直接かいちゃえ

では、次で回転処理を実行できるようにします。

• Prev
  コラム/テトリスぽいもの/26
• Next
  コラム/テトリスぽいもの/28
• Home
  Up