    //vY̐BǗ͕ʎB
    //gpO[oϐFNumberOfPrismTop, DiffusePrismLaserLength
    //o̓O[oϐFNumberTopOfPolygon, x0Prisms, y0Prisms

    sub SetPrisms
    {
        //vYSWEpxETCY(S-_)E]xXg
        let x0List = [GetCenterX - 96, GetCenterX + 96];
        let y0List = [GetCenterY - 16, GetCenterY - 16];
        let AngX0List = [0 , 0];
        let rList = [80, 80];

        let D = [1, 10];			//vY[U[̕({E_~[)
        let Img = WHITE02;		//摜
        let time = TimeFirstMagic;		//쐻x
        let nTop = NumberOfPrismTop;	//vY_
        let LMinus = DiffusePrismLaserLength;	//eh~pB[U[ZB

        let nPrisms = length(x0List);

        //O[oϐo^
        NumberTopOfPolygon = nTop;

        //̎ZoEvY
        ascent(i in 0..nPrisms)
        {
            let X0 = [x0List[i], y0List[i]];

            //O[oϐo^
            x0Prisms = x0Prisms ~ [X0[0]];
            y0Prisms = y0Prisms ~ [X0[1]];

            ascent(j in 0..nTop)
            {
                //KvvZ
                let IDLaser = nTop * i + j;
                let r = rList[i];
                let AngX = AngX0List[i] + 360 / nTop * j;
                let L = 2 * r * sin(180 / nTop) - DiffusePrismLaserLength;

                TControlPrism(IDLaser, X0, r, AngX, L, D, Img, time, nTop);
            }

        }
    }