Rasterman has put together a small tutorial demonstrating the power of the Enlightenment Evas backend library.
For example, here's 17 lines of source code for a simple DVD player:
#include <Evas.h>
#include <Ecore.h>
#include <Ecore_Evas.h>
#include <Emotion.h>
int main(int argc, char **argv){
Evas_Object *video;
Ecore_Evas *ee;
ecore_evas_init();
ecore_evas_show(ee = ecore_evas_software_x11_new(NULL, 0, 0, 0, 800, 600));
video = emotion_object_add(ecore_evas_get(ee));
emotion_object_file_set(video, "dvd:/");
emotion_object_play_set(video, 1);
evas_object_resize(video, 800, 600);
evas_object_show(video);
ecore_main_loop_begin();
ecore_evas_shutdown();
}
Follow the wild code tutorial here :)
Posted by crafterm at August 25, 2004 11:48 AM | TrackBackhere is the same thing in 7!
#!/usr/bin/perl -w
# 531-byte qrpff-fast, Keith Winstein and Marc Horowitz
# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
# arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])>8^($f=$t&($d>>12^$d>>4^
$d^$d/8))>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
Hi Greg,
Do you have the commented version available! :)
Cheers,
Marcus!
Posted by: Marcus Crafter at August 27, 2004 01:09 PM