tluyben

// add on top of gxtkAudio 

class PlaySampleThread extends Thread {
  SoundPool pool;
	gxtkSample sample;
	gxtkAudio.gxtkChannel chan; 
	float lv, rv;
	int loops; 
	
	public PlaySampleThread(SoundPool pool, gxtkSample sample, gxtkAudio.gxtkChannel chan, float lv, float rv, int loops) {

tluyben

  Field parentCache:GuiVector2D
	
	'summary: This returns the rendering position of this control. The result is presented on Device coordinates. (screen pixels)
	Method CalculateRenderPosition:GuiVector2D()

		If _cacheRenderPosCalcuation = Null Then _cacheRenderPosCalcuation = New GuiVector2D
		_cacheRenderPosCalcuation.SetValues (Position.X, Position.Y)

		If parentCache = Null 
			parentCache = New GuiVector2D()

tluyben

{TRON-LASERBIKES by (c) T.Luyben && J.Straaten 1988, revised for TP7.0 VGA,
 THIS GAME IS FREEWARE AND MAY BE COPIED... DO NOT ALTER THIS FILE OR THE
 ZIP FILE YOU COPY...
 IF YOU CHANGE ANYTHING THEN PLEASE LET ME KNOW! NO PROFIT SHALL BE MADE FROM
 THIS LITTLE PROJECT
}

uses crt,dos;

const cdlevel=3;  {here you can change the difficulty level; there is a}

tluyben

Import diddy
Import mojo


Class TestScreen Extends Screen

  Method Start:Void() 
	
	End 
	

tluyben

// Parses the client API version string and extracts the version number
//
static GLboolean parseGLVersion(int* api, int* major, int* minor, int* rev)
{
    int i, _api = GLFW_OPENGL_API, _major, _minor = 0, _rev = 0;
    const char* version;
    const char* prefixes[] =
    {
        "OpenGL ES-CM ",
        "OpenGL ES-CL ",

tluyben

#!/usr/bin/perl 

$x = $ARGV[0];
$y = $ARGV[1];

if (not $x or not $y) {
        print "./cut50.pl width height\n"; 
        exit;
} 

tluyben

Import mojo
Import diddy 

Class TestScreen Extends Screen 
  
	Method Start:Void()
	
	End 
	
	Method Update:Void()

tluyben

#!/usr/bin/perl

$f = $ARGV[0];

$pagestart = 0; 
$charstart = 0; 
$kernstart = 0;

$s = "<?xml version=\"1.0\"?>\n<font>\n"; 
open(F, $f);

tluyben

  Method DrawWrap(t:String, x:Float, y:Float, width:Float, align:Int = AngelFont.ALIGN_CENTER)
		' do some calculations and splitting
		Local splits:StringList = New StringList
		Local lw := Floor(width / font.TextWidth("W")) ' about how many letters fit in the width?
		
		Local enters:String[] = t.Split("~n")
		
		' check if any split string is too long to fit
		For Local i:=0 Until enters.Length
			Local s := enters[i]

tluyben

  Method Parse() ' csv parser
		Local _inc:Bool  = False 
		Local afc:Bool = False
		Local quote:=New Quote
		Local c:String, c1:String = "" 
		raw = raw + "~n" ' make sure we catch the last one
		For Local i := 0 To raw.Length 
			c = raw[i..i+1]
			If i+2 < raw.Length
				c1 = raw[i+1..i+2]