diff --git a/extra/processing/gallery/trails/trails.factor b/extra/processing/gallery/trails/trails.factor deleted file mode 100644 index a5b2b7b02a..0000000000 --- a/extra/processing/gallery/trails/trails.factor +++ /dev/null @@ -1,47 +0,0 @@ - -USING: kernel arrays sequences math math.order qualified - sequences.lib circular processing ui newfx processing.shapes ; - -IN: processing.gallery.trails - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -! Example 33-15 from the Processing book - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: point-list ( n -- seq ) [ drop 0 0 2array ] map ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: dot ( pos percent -- ) 1 swap - 25 * 5 max circle ; - -: step ( seq -- ) - - no-stroke - { 1 0.4 } fill - - 0 background - - mouse push-circular - [ dot ] - each-percent ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: go* ( -- ) - - 500 500 size* - - [ - 100 point-list - [ step ] - curry - draw - ] setup - - run ; - -: go ( -- ) [ go* ] with-ui ; - -MAIN: go