Re: ChaosBasic [version 0.0.2.4]
Posted: Wed Jan 02, 2008 12:47 pm
Käänsin CoolBasic kiellelle tekemäni funktion 3DText ChaosBasic kielelle. Tämä siis tulostaa isometristä tekstiä.
Käyttö:
Text3D(x,y,teksti,korkeus,r,g,b)
x = Tekstin x koordinaatti.
y = Tekstin y koordinaatti.
teksti = Teksti joka tulostetaan.
korkeus = Tekstin korkeus.
r = Punainen värikomponentti. Huom! Piirtoväri asettuu täksi.
g = Vihreä värikomponentti. Huom! Piirtoväri asettuu täksi.
b = Sininen värikomponentti. Huom! Piirtoväri asettuu täksi.
Funktio ja esimerkki:
Käyttö:
Text3D(x,y,teksti,korkeus,r,g,b)
x = Tekstin x koordinaatti.
y = Tekstin y koordinaatti.
teksti = Teksti joka tulostetaan.
korkeus = Tekstin korkeus.
r = Punainen värikomponentti. Huom! Piirtoväri asettuu täksi.
g = Vihreä värikomponentti. Huom! Piirtoväri asettuu täksi.
b = Sininen värikomponentti. Huom! Piirtoväri asettuu täksi.
Funktio ja esimerkki:
Code: Select all
Var f As Font = New Font
f.Load("arial",80)
Screen.SetFont f
Repeat
Text3D(0,0,"Hei",10,0,164,255)
Screen.Draw
Forever
Function Text3D(Var x,Var y,Var teksti As String,Var korkeus,Var r,Var g,Var b) As Void
Var i = 0
Var newr
Var newg
Var newb
For i = 1 To korkeus
newr = r-i*5
newg = g-i*5
newb = b-i*5
If newr < 0 Then
newr = 0
EndIf
If newg < 0 Then
newg = 0
EndIf
If newb < 0 Then
newb = 0
EndIf
Screen.SetColor newr,newg,newb
Screen.Text x+i,y+i,teksti
Next
Screen.SetColor r,g,b
EndFunction