Code: Select all
SCREEN 800, 600
Repeat
kuvan_x = Input ("Leveys: ")
DrawScreen
Until KeyHit (28)
CloseInput
Repeat
kuvan_y = Input ("Korkeus: ")
DrawScreen
Until KeyHit (28)
CloseInput
kuva = MakeImage (kuvan_x, kuvan_y)
DrawToImage kuva
Color 255,255,255
Box 0,0,kuvan_x,kuvan_y,1
Repeat
DrawImage kuva, 0, 0
If MouseDown (1) Then
DrawToImage kuva
Color 0,0,0
piirto_x = - 3
piirto_y = - 3
For i = 1 To 3
For i = 1 To 3
Dot MouseX()+piirto_x, MouseY()+piirto_y
piirto_x+1
Next i
piirto_x = - 3
piirto_y+1
Next i
EndIf
DrawToScreen
DrawScreen
Forever
Offtopic: Saako näitä viestien kirjoituksessa olevia tekstivärjäyksiä pois? Ne ärsyttää.
EDIT:
Ja ne, jotka ihmettelevät miksi en tee sivellintä Box:illa, niin haluan vähän "ilmavamman" jäljen