alias demo_credits {

        drawrect -nrf @demo $rgb(255,255,255) 0 0 0 320 180        

        if (%dm.c < 2500) {

                drawpic -ncs @demo $calc(0 + %dm.credits.zoom.x) $calc(0 + %dm.credits.zoom.y) $calc(320 - (%dm.credits.zoom.x * 2)) $calc(180 - (%dm.credits.zoom.y * 2)) %dm.credits.pic

                if (%dm.credits.zoom.x > 0) {

                        ddec dm.credits.zoom.x $calc(0.16 / 2)
                        ddec dm.credits.zoom.y $calc(0.09 / 2)
                }
        }

        else {

                if (%dm.credits.zoom.x < 300) {

                        dinc dm.credits.zoom.x 0.16
                        dinc dm.credits.zoom.y 0.09
                }

                drawcopy -n @dm.credits.1 $calc(0 + (%dm.credits.zoom.x / 2)) $calc(0 + (%dm.credits.zoom.y / 2)) $calc(320 - %dm.credits.zoom.x) $calc(180 - %dm.credits.zoom.y) @demo 0 0 320 180
        }

        if (%dm.c > 4600) {

                signal -n dmSelectPart balls
                halt
        }


        dmDrawFrame demo_credits
}