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 ;