From 7afd3e8a321e1d9e1561e7ae0178a37f7f2d714e Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 14 Jan 2009 00:38:15 -0600 Subject: [PATCH] Remove 'unmaintained/turtle' --- unmaintained/turtle/authors.txt | 1 - unmaintained/turtle/turtle.factor | 47 ------------------------------- 2 files changed, 48 deletions(-) delete mode 100644 unmaintained/turtle/authors.txt delete mode 100644 unmaintained/turtle/turtle.factor diff --git a/unmaintained/turtle/authors.txt b/unmaintained/turtle/authors.txt deleted file mode 100644 index 6cfd5da273..0000000000 --- a/unmaintained/turtle/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Eduardo Cavazos diff --git a/unmaintained/turtle/turtle.factor b/unmaintained/turtle/turtle.factor deleted file mode 100644 index 24f93b56fc..0000000000 --- a/unmaintained/turtle/turtle.factor +++ /dev/null @@ -1,47 +0,0 @@ - -USING: kernel math arrays math.vectors math.matrices generic.lib pos ori ; - -IN: turtle - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -TUPLE: turtle ; - -: ( -- turtle ) -turtle new -{ 0 0 0 } clone -3 identity-matrix -rot -3array chain ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: reset-turtle ( -- ) { 0 0 0 } >pos 3 identity-matrix >ori ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: step-vector ( length -- array ) { 0 0 1 } n*v ; - -: step-turtle ( length -- ) step-vector ori> swap m.v pos> v+ >pos ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: strafe-up ( length -- ) -90 pitch-up -step-turtle -90 pitch-down ; - -: strafe-down ( length -- ) -90 pitch-down -step-turtle -90 pitch-up ; - -: strafe-left ( length -- ) -90 turn-left -step-turtle -90 turn-right ; - -: strafe-right ( length -- ) -90 turn-right -step-turtle -90 turn-left ;