lib/mnit_linux/sdl.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2011-2013 Alexis Laferrière <alexis.laf@xymus.net>
   4 #
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17 # SDL display support (used in Linux for windows and inputes only)
  18 module sdl
  19
  20 import mnit # for
  21 # import display
  22 # mport input_events
  23
  24 in "C header" `{
  25 #include <unistd.h>
  26 #include <SDL/SDL.h>
  27 #include <SDL/SDL_syswm.h>
  28 #include <SDL/SDL_image.h>
  29 #include <SDL/SDL_ttf.h>
  30 `}
  31
  32 # Represent a screen surface
  33 extern SDLDisplay in "C" `{SDL_Surface *`}
  34         super Display
  35
  36         redef type I: SDLImage
  37
  38         # Initialize a surface with width and height
  39         new ( w, h: Int) is extern `{
  40                 SDL_Init(SDL_INIT_VIDEO);
  41
  42                 if(TTF_Init()==-1) {
  43                         printf("TTF_Init: %s\n", TTF_GetError());
  44                         exit(2);
  45                 }
  46
  47                 /* ignores mousemotion for performance reasons */
  48                 SDL_EventState( SDL_MOUSEMOTION, SDL_IGNORE );
  49
  50                 return SDL_SetVideoMode( w, h, 24, SDL_HWSURFACE );
  51         `}
  52
  53         # Destroy the surface
  54         fun destroy is extern `{
  55         if ( SDL_WasInit( SDL_INIT_VIDEO ) )
  56                 SDL_Quit();
  57
  58         if ( TTF_WasInit() )
  59                 TTF_Quit();
  60         `}
  61
  62         redef fun finish is extern `{ SDL_Flip( recv ); `}
  63
  64         # Clear the entire window with given RGB color (integer values)
  65         fun clear_int( r, g, b: Int ) is extern `{
  66                 SDL_FillRect( recv, NULL, SDL_MapRGB(recv->format,r,g,b) );
  67         `}
  68
  69         redef fun width: Int is extern `{ return recv->w; `}
  70         redef fun height: Int is extern `{ return recv->h; `}
  71
  72         # Fill a rectangle with given color
  73         fun fill_rect( rect: SDLRectangle, r, g, b: Int ) is extern `{
  74                 SDL_FillRect( recv, rect,  SDL_MapRGB(recv->format,r,g,b) );
  75         `}
  76
  77         redef fun clear( r, g, b: Float ) is extern `{
  78                 Uint8 ri, gi, bi;
  79                 ri = (Uint8)r*255;
  80                 gi = (Uint8)g*255;
  81                 bi = (Uint8)b*255;
  82                 SDL_FillRect( recv, NULL, SDL_MapRGB(recv->format,ri,gi,bi) );
  83         `}
  84
  85         fun events: Sequence[ IE ]
  86         do
  87                 var new_event: nullable Object = null
  88                 var events = new List[ IE ]
  89                 loop
  90                         new_event = poll_event
  91                         if new_event != null then # new_event isa Event then #
  92                                 events.add( new_event )
  93                         else
  94                                 break
  95                         end
  96                 end
  97                 return events
  98         end
  99
 100         private fun poll_event: nullable IE is extern import SDLKeyEvent, SDLMouseButtonEvent, SDLMouseMotionEvent, SDLQuitEvent, NativeString::to_s, SDLMouseButtonEvent as (nullable IE), SDLMouseMotionEvent as (nullable IE), SDLKeyEvent as (nullable IE), SDLQuitEvent as (nullable IE) `{
 101                 SDL_Event event;
 102
 103                 SDL_PumpEvents();
 104
 105                 if ( SDL_PollEvent(&event) )
 106                 {
 107                         switch (event.type ) {
 108                                 case SDL_KEYDOWN:
 109                                 case SDL_KEYUP:
 110         #ifdef DEBUG
 111                                         printf("The \"%s\" key was pressed!\n",
 112                                                    SDL_GetKeyName(event.key.keysym.sym));
 113         #endif
 114
 115                                         return SDLKeyEvent_as_nullable_InputEvent(
 116                                                         new_SDLKeyEvent( NativeString_to_s(
 117                                                                 SDL_GetKeyName(event.key.keysym.sym) ),
 118                                                                 event.type==SDL_KEYDOWN ) );
 119
 120                                 case SDL_MOUSEMOTION:
 121         #ifdef DEBUG
 122                                         printf("Mouse moved by %d,%d to (%d,%d)\n",
 123                                                    event.motion.xrel, event.motion.yrel,
 124                                                    event.motion.x, event.motion.y);
 125         #endif
 126
 127                                         return SDLMouseMotionEvent_as_nullable_InputEvent(
 128                                                         new_SDLMouseMotionEvent( event.motion.x, event.motion.y,
 129                                                                 event.motion.xrel, event.motion.yrel ) );
 130
 131                                 case SDL_MOUSEBUTTONDOWN:
 132                                 case SDL_MOUSEBUTTONUP:
 133         #ifdef DEBUG
 134                                         printf("Mouse button \"%d\" pressed at (%d,%d)\n",
 135                                                    event.button.button, event.button.x, event.button.y);
 136         #endif
 137                                         return SDLMouseButtonEvent_as_nullable_InputEvent(
 138                                                         new_SDLMouseButtonEvent( event.button.x, event.button.y,
 139                                                                 event.button.button, event.type == SDL_MOUSEBUTTONDOWN ) );
 140
 141                                 case SDL_QUIT:
 142         #ifdef DEBUG
 143                                         printf("Quit event\n");
 144         #endif
 145                                         return SDLQuitEvent_as_nullable_InputEvent( new_SDLQuitEvent() );
 146                         }
 147                 }
 148
 149                 return null_InputEvent();
 150         `}
 151
 152         # Set the position of the cursor to x,y
 153         fun warp_mouse( x,y: Int ) `{ SDL_WarpMouse( x, y ); `}
 154
 155         # Show or hide the cursor
 156         fun show_cursor( show: Bool ) `{ SDL_ShowCursor( show ); `}
 157 end
 158
 159 # Basic Drawing figures
 160 extern SDLDrawable in "C" `{SDL_Surface*`}
 161         super Drawable
 162
 163         redef type I: SDLImage
 164
 165         redef fun blit( img, x, y ) is extern `{
 166                 SDL_Rect dst;
 167                 dst.x = x;
 168                 dst.y = y;
 169                 dst.w = 0;
 170                 dst.h = 0;
 171
 172                 SDL_BlitSurface( img, NULL, recv, &dst );
 173         `}
 174
 175         redef fun blit_centered( img, x, y )
 176         do
 177                 x = x - img.width / 2
 178                 y = y - img.height / 2
 179                 blit( img, x, y )
 180         end
 181 end
 182
 183 extern SDLImage in "C" `{SDL_Surface*`} # TODO remove
 184         super DrawableImage
 185         super SDLDrawable
 186
 187         new from_file( path: String ) is extern import String::to_cstring `{
 188                 SDL_Surface *image = IMG_Load( String_to_cstring( path ) );
 189                 return image;
 190         `}
 191
 192         new partial( original: Image, clip: SDLRectangle ) is extern `{
 193                 return NULL;
 194         `}
 195
 196         new copy_of( image: SDLImage ) is extern `{
 197                 SDL_Surface *new_image = SDL_CreateRGBSurface( image->flags, image->w, image->h, 24,
 198                                                           0, 0, 0, 0 );
 199
 200                 SDL_Rect dst;
 201                 dst.x = 0;
 202                 dst.y = 0;
 203                 dst.w = image->w;
 204                 dst.h = image->h;
 205                 SDL_BlitSurface( image, NULL, new_image, &dst );
 206
 207                 return new_image;
 208         `}
 209
 210         fun save_to_file( path: String ) is extern import String::to_cstring `{ `}
 211
 212         redef fun destroy is extern `{ SDL_FreeSurface( recv ); `}
 213
 214         redef fun width: Int is extern `{ return recv->w; `}
 215         redef fun height: Int is extern `{ return recv->h; `}
 216
 217         fun is_ok: Bool do return true # TODO
 218 end
 219
 220 extern SDLRectangle in "C" `{SDL_Rect*`}
 221         new ( x: Int, y: Int, w: Int, h: Int ) is extern `{
 222                 SDL_Rect *rect = malloc( sizeof( SDL_Rect ) );
 223                 rect->x = (Sint16)x;
 224                 rect->y = (Sint16)y;
 225                 rect->w = (Uint16)w;
 226                 rect->h = (Uint16)h;
 227                 return rect;
 228         `}
 229
 230         fun x=( v: Int ) is extern `{ recv->x = (Sint16)v; `}
 231         fun x: Int is extern `{ return recv->x; `}
 232
 233         fun y=( v: Int ) is extern `{ recv->y = (Sint16)v; `}
 234         fun y: Int is extern `{ return recv->y; `}
 235
 236         fun w=( v: Int ) is extern `{ recv->w = (Uint16)v; `}
 237         fun w: Int is extern `{ return recv->w; `}
 238
 239         fun h=( v: Int ) is extern `{ recv->h = (Uint16)v; `}
 240         fun h: Int is extern `{ return recv->h; `}
 241
 242         fun destroy is extern `{ `}
 243 end
 244
 245 interface SDLInputEvent
 246         super InputEvent
 247 end
 248
 249 class SDLMouseEvent
 250         super PointerEvent
 251         super SDLInputEvent
 252
 253         redef var x: Float
 254         redef var y: Float
 255
 256         private init ( x, y: Float )
 257         do
 258                 self.x = x
 259                 self.y = y
 260         end
 261 end
 262
 263 class SDLMouseButtonEvent
 264         super SDLMouseEvent
 265
 266         var button: Int
 267
 268         redef var pressed: Bool
 269         redef fun depressed: Bool do return not pressed
 270
 271         init ( x, y: Float, button: Int, pressed: Bool )
 272         do
 273                 super( x, y )
 274
 275                 self.button = button
 276                 self.pressed = pressed
 277         end
 278
 279         redef fun to_s
 280         do
 281                 if pressed then
 282                         return "MouseButtonEvent button {button} down at {x}, {y}"
 283                 else
 284                         return "MouseButtonEvent button {button} up at {x}, {y}"
 285                 end
 286         end
 287 end
 288
 289 class SDLMouseMotionEvent
 290         super SDLMouseEvent
 291
 292         var rel_x: Float
 293         var rel_y: Float
 294
 295         init ( x, y, rel_x, rel_y: Float )
 296         do
 297                 super( x, y )
 298
 299                 self.rel_x = rel_x
 300                 self.rel_y = rel_y
 301         end
 302
 303         redef fun to_s do return "MouseMotionEvent at {x}, {y}"
 304 end
 305
 306 class SDLKeyEvent
 307         super KeyEvent
 308         super SDLInputEvent
 309
 310         var key_name: String
 311         var down: Bool
 312
 313         init ( key_name: String, down: Bool )
 314         do
 315                 self.key_name = key_name
 316                 self.down = down
 317         end
 318
 319         redef fun to_c: nullable Char
 320         do
 321                 if key_name.length == 1 then return key_name.first
 322                 return null
 323         end
 324
 325         redef fun to_s
 326         do
 327                 if down then
 328                         return "KeyboardEvent key {key_name} down"
 329                 else
 330                         return "KeyboardEvent key {key_name} up"
 331                 end
 332         end
 333
 334         redef fun is_down do return down
 335
 336         redef fun is_arrow_up do return key_name == "up"
 337         redef fun is_arrow_left do return key_name == "left"
 338         redef fun is_arrow_down do return key_name == "down"
 339         redef fun is_arrow_right do return key_name == "right"
 340 end
 341
 342 class SDLQuitEvent
 343         super SDLInputEvent
 344         super QuitEvent
 345 end
 346
 347 redef class Int
 348         fun delay is extern `{ SDL_Delay( recv ); `}
 349 end
 350
 351 extern SDLFont in "C" `{TTF_Font *`}
 352         new ( name: String, points: Int ) is extern import String::to_cstring `{
 353         char * cname = String_to_cstring( name );
 354
 355         TTF_Font *font = TTF_OpenFont( cname, (int)points);
 356         if(!font) {
 357                 printf("TTF_OpenFont: %s\n", TTF_GetError());
 358                 exit( 1 );
 359         }
 360
 361         return font;
 362         `}
 363
 364         fun destroy is extern `{ TTF_CloseFont( recv ); `}
 365
 366         fun render( text: String, r, g, b: Int ): SDLImage is extern import String::to_cstring `{
 367                 SDL_Color color;
 368                 SDL_Surface *text_surface;
 369                 char *ctext;
 370
 371                 color.r = r;
 372                 color.g = g;
 373                 color.b = b;
 374
 375                 ctext = String_to_cstring( text );
 376                 if( !(text_surface=TTF_RenderText_Blended( recv, ctext, color )) )
 377                 {
 378                         fprintf( stderr, "SDL TFF error: %s\n", TTF_GetError() );
 379                         exit( 1 );
 380                 }
 381                 else
 382                         return text_surface;
 383         `}
 384
 385         # TODO reactivate fun below when updating libsdl_ttf to 2.0.10 or above
 386         #fun outline: Int is extern # TODO check to make inline/nitside only
 387         #fun outline=( v: Int ) is extern
 388
 389         #fun kerning: Bool is extern
 390         #fun kerning=( v: Bool ) is extern
 391
 392         # Maximum pixel height of all glyphs of this font.
 393         fun height: Int is extern `{
 394                 return TTF_FontHeight( recv );
 395         `}
 396
 397         fun ascent: Int is extern `{
 398                 return TTF_FontAscent( recv );
 399         `}
 400
 401         fun descent: Int is extern `{
 402                 return TTF_FontDescent( recv );
 403         `}
 404
 405         # Get the recommended pixel height of a rendered line of text of the loaded font. This is usually larger than the Font::height.
 406         fun line_skip: Int is extern `{
 407                 return TTF_FontLineSkip( recv );
 408         `}
 409
 410         fun is_fixed_width: Bool is extern `{
 411                 return TTF_FontFaceIsFixedWidth( recv );
 412         `}
 413         fun family_name: nullable String is extern import String::to_cstring, String as nullable `{
 414                 char *fn = TTF_FontFaceFamilyName( recv );
 415
 416                 if ( fn == NULL )
 417                         return null_String();
 418                 else
 419                         return String_as_nullable( NativeString_to_s( fn ) );
 420         `}
 421         fun style_name: nullable String is extern import String::to_cstring, String as nullable `{
 422                 char *sn = TTF_FontFaceStyleName( recv );
 423
 424                 if ( sn == NULL )
 425                         return null_String();
 426                 else
 427                         return String_as_nullable( NativeString_to_s( sn ) );
 428         `}
 429
 430         fun width_of( text: String ): Int is extern import NativeString::to_s `{
 431                 char *ctext = String_to_cstring( text );
 432                 int w;
 433                 if ( TTF_SizeText( recv, ctext, &w, NULL ) )
 434                 {
 435                         fprintf( stderr, "SDL TFF error: %s\n", TTF_GetError() );
 436                         exit( 1 );
 437                 }
 438                 else
 439                         return w;
 440         `}
 441 end