/
project1(house).bas
45 lines (43 loc) · 1 KB
/
project1(house).bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'Levi Pinkard Period 2
SCREEN 12
_FULLSCREEN
'Sets blue background
LINE (0, 0)-(640, 480), 1, BF
'Grass
CIRCLE (320, 1025), 700, 2
PAINT (320, 475), 2
'Sun
CIRCLE (640, 0), 175, 14
PAINT (639, 1), 14
'Main tree
LINE (90, 150)-(160, 360), 6, BF
'Tree leaves
CIRCLE (125, 150), 60, 10
PAINT STEP(0, 0), 10
'Tree roots
LINE (90, 360)-(80, 380), 6
LINE (80, 380)-(100, 370), 6
LINE (100, 370)-(110, 380), 6
LINE (110, 380)-(120, 370), 6
LINE (120, 370)-(130, 380), 6
LINE (130, 380)-(140, 370), 6
LINE (140, 370)-(150, 380), 6
LINE (150, 380)-(160, 370), 6
LINE (160, 370)-(170, 380), 6
LINE (170, 380)-(160, 360), 6
'House
LINE (230, 340)-(390, 240), 4, BF
'Door
LINE (290, 340)-(330, 280), 6, BF
PAINT (145, 365), 6
'Roof
LINE (390, 240)-(310, 180), 0,
LINE (230, 240)-(310, 180), 0,
LINE (390, 240)-(230, 240), 0
PAINT (300, 220), 0
LINE (310, 180)-(405, 250), 0
LINE (310, 180)-(215, 250), 0
'Windows
LINE (340, 285)-(370, 310), 15, BF
LINE (280, 285)-(250, 310), 15, BF
SLEEP