unmaintained/4DNav/deep/deep-docs.factor

   1 ! Copyright (C) 2008 Jean-François Bigot.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: help.markup help.syntax kernel quotations sequences ;
   4 IN: 4DNav.deep
   5
   6 ! HELP: deep-cleave-quots
   7 ! { $values
   8 !     { "seq" sequence }
   9 !     { "quot" quotation }
  10 ! }
  11 ! { $description "A word to build a soquence from a sequence of quotation" }
  12 !
  13 ! { $examples
  14 ! "It is useful to build matrix"
  15 ! { $example "USING: math math.trig ; "
  16 !     " 30 deg>rad "
  17 !    "  {  { [ cos ] [ sin neg ]   0 } "
  18 !    "     { [ sin ] [ cos ]       0 } "
  19 !    "     {   0       0           1 } "
  20 !    "  } deep-cleave-quots "
  21 !     " "
  22 !
  23 !
  24 ! } }
  25 ! ;
  26
  27 ARTICLE: "4DNav.deep" "Deep"
  28 { $vocab-link "4DNav.deep" }
  29 ;
  30
  31 ABOUT: "4DNav.deep"