Matematiikkakysymys

[-Z-]

Johtuneeko sitten siitä, että olen valvonut viimeisen vuorokauden, vai pelkästään matemaattisesta lahjattomuudestani, niin en onnistu ratkaisemaan seuraavaa pulmaa:

Code: Select all

SCREEN 600,400
FrameLimit 40
tausta = MakeImage(600,400)
DrawToImage tausta
    For i=1 To 100
        Color 0,0,150+i
        Box 0,i*3-3, 600, 3
    Next i
    Color 150,100,50
    Box 0,300, 600, 100
    Color 0, 100,0
    For i=1 To 600
        Box i,300-Rand(1,3),1,Rand(3,7)
    Next i
DrawToScreen
Repeat
    DrawImage tausta,0,0
    height = MouseY()*-1+300
    If height<45 Then height=45
    If height>250 Then height=250
    Color 0,0,0
    Box 60,height,40,height
    Text 0,0, height
    Text 0,10, FPS()
    DrawScreen
Forever

Palkin olisi siis tarkoitus kasvaa maasta hiiren tasolle, mutta itse en onnistunut toteuttamaan. Apuva?

[Substance]

Kun lisäät DrawToWorld ON ylös, niin ainakin palkki menee samaan suuntaan.
Hieno maasto muuten

[-Z-]

Kiitos avusta ja kohteliaisuuksista.

Voisiko joku minua viisaampi vielä kertoa, että miksi FPS tippuu kymmenen tienoille kun hiirtä vispaa eesuntaasun?

[nevssons]

Kiitos avusta ja kohteliaisuuksista.

Voisiko joku minua viisaampi vielä kertoa, että miksi FPS tippuu kymmenen tienoille kun hiirtä vispaa eesuntaasun?

Saat tyytyä tyhmän vastaukseen:
Koska CB on hidas. Se ei ole sinun koodisi vika!

[Harakka]

Tätäkö hait?

Code: Select all

SCREEN 600,400
FrameLimit 40
tausta = MakeImage(600,400)
DrawToImage tausta
    For i=1 To 100
        Color 0,0,150+i
        Box 0,i*3-3, 600, 3
    Next i
    Color 150,100,50
    Box 0,300, 600, 100
    Color 0, 100,0
    For i=1 To 600
        Box i,300-Rand(1,3),1,Rand(3,7)
    Next i
DrawToScreen
Repeat
    DrawImage tausta,0,0
    height = Max(45,Min(250,MouseY()))

    Color 0,0,0
    Box 60,height,40,300-height
    Text 0,0, height
    Text 0,10, FPS()
    DrawScreen
Forever

[-Z-]

Juu kiitos harakka, tuo olikin vähän vähemmän purkkaisa ratkaisu.
Mutta en vieläkään saanut tyydyttävää vastausta siihen, että miksi tuo on noin hidas. Se ei millään voi olla coolbasicin vika, eihän?
edit: eikä etenkään koneeni?

[cheeshelmet.jr]

Itselläni tuo fps ei tipu yhtään vaikka kuinka heiluttaa ihan mihin suuntaan vaan.

[-Z-]

Itselläni tuo fps ei tipu yhtään vaikka kuinka heiluttaa ihan mihin suuntaan vaan.

Jaa.

Kun heilutan hiirtä ylös-alas, niin fsp putoaa kymmenen tienoille. tuntuu välillä ruudunpäivitys pysähtyvän kokonaan.

EDIT: Ei enää mitään. Tämä inspiroi minut lopulta poistamaan F-securen koneeltani.