/*
 *  SPL - The SPL Programming Language
 *  Copyright (C) 2004, 2005  Clifford Wolf <clifford@clifford.at>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 *  example46.spl: simple example for math functions
 */

var map;
var output;

#define pi 3.14159265

/* this is floating point stuff. so the results may differ slightly on
 * different architectures...
 */
for (var i=0; i.<=pi./2; i.+=.01) {
	var x = round(cos(i) .* 40);
	var y = round(sin(i) .* 20);
	map[x][y] = " ";
}

for (var y=0; y<=21; y++) {
	for (var x=0; x<=41; x++)
		output ~= declared map[x][y] ? map[x][y] : "*";
	output ~= "\n";
}

debug "Simple sin/cos example program:\n" ~ output;