diff --git a/unmaintained/pos/authors.txt b/unmaintained/pos/authors.txt deleted file mode 100644 index 6cfd5da273..0000000000 --- a/unmaintained/pos/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Eduardo Cavazos diff --git a/unmaintained/pos/pos.factor b/unmaintained/pos/pos.factor deleted file mode 100644 index b150c5bda1..0000000000 --- a/unmaintained/pos/pos.factor +++ /dev/null @@ -1,22 +0,0 @@ - -USING: kernel math math.functions math.vectors sequences self -accessors ; - -IN: pos - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -TUPLE: pos val ; - -C: pos - -: pos> ( -- val ) self> val>> ; - -: >pos ( val -- ) self> val<< ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: distance ( pos pos -- n ) val>> swap val>> v- [ sq ] map-sum sqrt ; - -: move-by ( point -- ) pos> v+ >pos ; -