Source Code: Primitive Explosion
rating: 0+–x

Description

Generates a dynamic explosion using graphics primitives.

Instructions

Copy and paste, press F5

Source Code

SetFPS 60

ExpCR = 0
ExpR = 50
ExpMC = $bb
ExpX = 100
ExpY = 100

Do
    ExpX = ExpX - 1
    ExpY = ExpY - 1
    If ExpR > 0 Then ExpR = ExpR - 1
    If ExpCR < ExpR Then ExpCR = ExpCR + 2
    If ExpMC > 0 Then ExpMC = ExpMC - 2
    Cls 0
        CircleC ExpX,ExpY,ExpR + 2,True,$ff0000
        CircleC ExpX,ExpY,ExpR,True,RGB($ff,ExpMC,00) 
        CircleC ExpX,ExpY,ExpCR,True, $000000
    Sync
Loop

Related Pages

Backlinks

These pages link back to this one. You may find them helpful.

Categories: Graphics : Graphics Source Code : Source Code