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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
=head1 DESCRIPTION
raw_pixels.pir - paint the screen blue, pixel by pixel
=head1 SYNOPSIS
To run this file, run the following command from the Parrot directory:
$ ./parrot examples/sdl/raw_pixels.pir
$
=cut
.include 'datatypes.pasm'
.sub _main :main
# first load the necessary libraries
load_bytecode "SDL/App.pir"
load_bytecode "SDL/Rect.pir"
load_bytecode "SDL/Color.pir"
# create an SDL::App object
.local pmc app
.local int app_type
app = new ['SDL'; 'App']
app.'init'( 'height' => 480, 'width' => 640, 'bpp' => 0, 'flags' => 1 )
# fetch the SDL::Surface representing the main window
.local pmc main_screen
main_screen = app.'surface'()
# create an SDL::Rect representing the entire main screen
.local pmc rect
.local int rect_type
rect = new ['SDL'; 'Rect']
rect.'init'( 'height' => 480, 'width' => 640, 'x' => 0, 'y' => 0 )
# create a white color to paint the background; make new pixels show up
.local pmc white
white = new ['SDL'; 'Color']
white.'init'( 'r' => 255, 'g' => 255, 'b' => 255 )
# create a blue color to paint the new pixels
.local pmc blue
blue = new ['SDL'; 'Color']
blue.'init'( 'r' => 0, 'g' => 0, 'b' => 255 )
# draw the background
main_screen.'fill_rect'( rect, white )
main_screen.'update_rect'( rect )
# lock the raw framebuffer
main_screen.'lock'()
# if you convert the color ahead of time, it's much faster!
.local int converted_blue
converted_blue = blue.'color_for_surface'( main_screen )
# draw a vertical line of pixels from left to right on each iteration
.local int x
.local int y
x = 0
loop_x:
y = 0
loop_y:
main_screen.'draw_pixel'( x, y, converted_blue )
inc y
if y < 480 goto loop_y
inc x
# update the screen on each iteration
main_screen.'update_rect'( rect )
if x < 640 goto loop_x
loop_end:
# no more raw pixel access necessary
main_screen.'unlock'()
# show off for a bit then exit
sleep 2
app.'quit'()
end
.end
=head1 AUTHOR
chromatic, E<lt>chromatic at wgz dot orgE<gt>.
=head1 COPYRIGHT
Copyright (C) 2004-2008, Parrot Foundation.
=cut
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
