Un p'tit peu de 3D...

WIDTH 0,1200
HEIGHT 0,650
BORDER_HIDE 0
LEFT 0,(SCREEN_X-1200)/2
TOP 0,(SCREEN_Y-650)/2
COLOR 0,0,0,0
Dessiner_Ciel()
CREATE_HIDE
Creer_scene3d()
SHOW 100
Animation()
TERMINATE
END
' ------------------------------------------------------------------------------
SUB Creer_scene3d()
    SCENE3D 100
    FULL_SPACE 100
    3D_PLANE 1
    LIGHT_POSITION 0,0,3
    3D_Z_POSITION 1,1.95
    3D_V_TILE 1,1
    3D_U_TILE 1,1
    3D_IMAGE_TEXTURE 1,2
    3D_TEXT 100,"Panoramic"
    3D_COLOR 100,150,150,0
    3D_X_POSITION 100,-2
    3D_Z_POSITION 100,5.2
    LIGHT_X_POSITION -10
END_SUB
' ------------------------------------------------------------------------------
SUB Animation()
    DIM_LOCAL y
    FOR y= 5.2 to 2.2 STEP -0.1
        3D_Z_POSITION 100,y
        3D_Y_POSITION 100,2-y
        pause 40
    NEXT y
    FOR y = -5 to 5 STEP 0.2
        LIGHT_X_POSITION y
        pause 20
    NEXT y
    FOR y = 5 to -5 STEP -0.2
        LIGHT_X_POSITION y
        pause 20
    NEXT y
    FOR y = -5 to 5 STEP 0.2
        LIGHT_X_POSITION y
        pause 20
    NEXT y
    PAUSE 1000
END_SUB
' ------------------------------------------------------------------------------
SUB Dessiner_Ciel()
    DIM_LOCAL i%
    PICTURE 1
    WIDTH 1,1200
    HEIGHT 1,1200
    COLOR 1,0,0,0
    2D_TARGET_IS 1
    HIDE 1
    2D_PEN_COLOR 255,255,255
    FOR i%=1 TO 1000
        2D_POINT INT(RND(1200)),INT(RND(1200))
    NEXT i%
    FOR i%=1 TO 500
        2D_CIRCLE INT(RND(1200)),INT(RND(1200)),2
    NEXT i%
    FOR i%=1 TO 50
        2D_CIRCLE INT(RND(1200)),INT(RND(1200)),3
    NEXT i%
    IMAGE 2
    2D_IMAGE_COPY 2,0,0,1200,1200
END_SUB