Ylimmäinen kaartaa tekstin upeasti esim alkuvalikkoihin aika mahtava. Alempi koodi suurentaa tekstin koko näyttöön... ei pysty selittää, kokeile. Upeita!
Kaartaja
SCREEN 12
PRINT "Tekstiä niinku"
PALETTE 15, 0 'teksti näkymättömäks
z = .7 'paljon mennään kaartumaan
FOR x = 0 TO 130 'pist enemmän jos pidempi teksti
FOR y = 0 TO 11 'tekstin korkeus on screen 12:ssa 12px
IF x < 60 THEN COL = 2
IF x > 60 THEN COL = 2
IF POINT(x, y) = 15 THEN 'siin kohtaa on tekstii
CIRCLE (x * 5 + 2, y * 5 * z + 22), 1 + z, COL
CIRCLE (x * 5 + 2, y * 5 * z + 22), 3 + z, COL
END IF
z = z * 1.001 'kaarrutetaan tekstiä
NEXT
NEXTSuurennus
SCREEN 12
COLOR 15
PALETTE 15, 0 'teksti pois näkyvistä nurkasta
PRINT "Vähänkö siiistii"
PRINT "!!!Eiks ookki!!!"
PRINT "!!!!!!!!!!!!!!!!"
PRINT "!!!!!!!!!!!!!!!!"
FOR Y = 55 TO 0 STEP -1
FOR X = 140 TO 0 STEP -1
IF POINT(X, Y) = 15 THEN 'tekstii siinä kohdassa
LINE (X + 5, Y + 12)-(X * 5 + 5, Y * 5 + 50), 1
CIRCLE (X * 5 + 5, Y * 5 + 50), 5, 4
CIRCLE (X * 5 + 5, Y * 5 + 50), 2, 4
END IF
NEXT
NEXTYhdistin nämä kaksi samantapaista koodivinkkiä, voisit ehkä kirjoittaa pidemmän kuvauksen...
Eiks tossa tokassa vinkissä ole lopussa kirjoitusvirhe? Eikö siinä pitäis olla T-kirjain NEX:n perässä?
mut on kyl tosi hienoja
tosi hienoja? no ei ihan. toi toka on perkeleen ruma :-)
Hyvä että tekstistä sai selvää...
Mut muuten ok.
hieno
Aihe on jo aika vanha, joten et voi enää vastata siihen.