CB taiteilijana

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

CB taiteilijana

Post by iTKEVAnAKKI »

Eli nyt CB päästää luovuutensa valloilleen, PIIRTÄJÄNÄ! ;)

Code: Select all

SCREEN 600,600

  jako1=20
  jako2=3
  nopeus=1000 //Nopeus, mitä pienempi sitä hitaampi
  koko=100
  
  Randomize Timer() //Varmasti omalaatuisia kuvia
  
Repeat

  kuva+nopeus 
  
  For a=1 To kuva
    Line 300,300,300+Cos(a/jako1)*koko,300-Sin(a/jako2)*koko//Piirretään kuvio
  Next a
  
  If KeyHit(57) Then //Luodaan uusi kuvio
    Repeat
      jako1=Rand(1,20)
      jako2=Rand(1,20)
    Until  jako1<>jako2
    kuva=0
  EndIf
  //Tiedot
  Text 0,0,FPS()
  Text 0,15,jako1
  Text 0,30,jako2
DrawScreen
Forever 
Aika turha, mutta tällä voi luoda vaikka logoja. Siihen tän alun perin tein itelleni ku en keksinyt mitään kuviota :D
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
Post Reply