Danmakufu code

    task aura(obj,R,G,B){
        let objS = [];
        let test = CreateRenderTarget("Thing");
        let scale = [];
        let q = 0;
        RenderToTextureB1("Thing",obj,true);
        let objPrims = 20;

        ascent(i in 0..objPrims){
            objS = objS ~ [ObjPrim_Create(OBJ_SPRITE_2D)];
            ObjPrim_SetTexture(objS[i],"Thing");
            ObjSprite2D_SetSourceRect(objS[i],ObjMove_GetX(obj)-64,ObjMove_GetY(obj)-64,ObjMove_GetX(obj)+64,ObjMove_GetY(obj)+64);
            ObjSprite2D_SetDestCenter(objS[i]);
            Obj_SetRenderPriorityI(objS[i],31);
            ObjRender_SetColor(objS[i],R,G,B);
            ObjRender_SetAlpha(objS[i],255/(objPrims*1.5));
            scale = scale ~ [1+i/(objPrims*2)];
        }
        let shader = ObjShader_Create;
        ObjShader_SetShaderF(shader, GetCurrentScriptDirectory~"./hsls.txt");
        ObjShader_SetTechnique(shader,"Technique1");

        while(!Obj_IsDeleted(obj)){
            q++;
            ascent(i in 0..objPrims){
                ObjRender_SetScaleXYZ(objS[i],scale[i],scale[i],scale[i]);
                ObjRender_SetPosition(objS[i],ObjMove_GetX(obj),ObjMove_GetY(obj),1);
                if(scale[i]>1.5){scale[i] = 1;}
                else{scale[i]=scale[i]+0.001}
            }
            ObjShader_SetShaderO(obj, shader);
            RenderToTextureB1("Thing",obj,true);
            ObjShader_ResetShader(obj);
            yield;
        }
    }