バイユーのタペストリーの画像が横長すぎるので、縦１８段に再配置した画像を作る

//c:\Windows\Microsoft.NET\Framework\v4.0.30319\csc.exe /target:winexe tape1page.csusingSystem.Drawing;publicclasstape1page{publicstaticvoidMain(string[]args){/// https://upload.wikimedia.org/wikipedia/commons/1/10/Teppich_von_Bayeux.jpgBitmapbmpBase=newBitmap(@".\Teppich_von_Bayeux.jpg",true);Rectanglerect;intyi=0;intxi;Bitmapcanvas=newBitmap((int)2400,(int)(360*18));Graphicsg=Graphics.FromImage(canvas);for(xi=0;xi<=(int)bmpBase.Width;xi+=2300){rect=newRectangle(xi,00,(int)2400,(int)bmpBase.Height);/// Teppich_von_Bayeux.jpg  size:39866x360if(xi==39100){rect=newRectangle(xi,00,(int)766,(int)bmpBase.Height);}BitmapbmpNew=bmpBase.Clone(rect,bmpBase.PixelFormat);g.DrawImage(bmpNew,0,yi,(int)bmpNew.Width,(int)bmpNew.Height);yi+=360;bmpNew.Dispose();}canvas.Save(@".\tape1page.jpg",System.Drawing.Imaging.ImageFormat.Jpeg);bmpBase.Dispose();}}