1.1 --- a/src/glut/main.c	Fri Oct 02 04:55:54 2015 +0300
     1.2 +++ b/src/glut/main.c	Fri Oct 02 07:10:19 2015 +0300
     1.3 @@ -98,11 +98,51 @@
     1.4  		break;
     1.5  
     1.6  	case '.':
     1.7 -		seektime(250);
     1.8 +		seektime(50);
     1.9 +		break;
    1.10 +	case '>':
    1.11 +		seektime(10);
    1.12 +		break;
    1.13 +	case ']':
    1.14 +		seektime(1);
    1.15  		break;
    1.16  
    1.17  	case ',':
    1.18 -		seektime(-250);
    1.19 +		seektime(-50);
    1.20 +		break;
    1.21 +	case '<':
    1.22 +		seektime(-10);
    1.23 +		break;
    1.24 +	case '[':
    1.25 +		seektime(-1);
    1.26 +		break;
    1.27 +
    1.28 +	case '1':
    1.29 +		glutReshapeWindow(960, 640);	/* 3.5 inch iphone */
    1.30 +		break;
    1.31 +
    1.32 +	case '2':
    1.33 +		glutReshapeWindow(1136, 640);	/* 4.0 inch iphone */
    1.34 +		break;
    1.35 +
    1.36 +	case '3':
    1.37 +		glutReshapeWindow(1334, 750);	/* 4.7 inch iphone */
    1.38 +		break;
    1.39 +
    1.40 +	case '4':
    1.41 +		glutReshapeWindow(2208, 1242);	/* 5.5 inch iphone */
    1.42 +		break;
    1.43 +
    1.44 +	case '5':
    1.45 +		glutReshapeWindow(2048, 1496);	/* ipad2? */
    1.46 +		break;
    1.47 +
    1.48 +	case '9':
    1.49 +		glutReshapeWindow(1104, 621);	/* hald 5.5 inch iphone */
    1.50 +		break;
    1.51 +
    1.52 +	case '0':
    1.53 +		glutReshapeWindow(1024, 748);	/* half ipad2 */
    1.54  		break;
    1.55  
    1.56  	default: