/extra/svg/svg-tests.factor

http://github.com/abeaumont/factor · Factor · 116 lines · 90 code · 25 blank · 1 comment · 0 complexity · fec31eef58bcaf5f42ec6b9136b5713f MD5 · raw file 

    

  1. ! (c)2009 Joe Groff, see BSD license
    2. 

  2. USING: accessors arrays literals math math.affine-transforms
    3. 

  3. math.functions sequences svg tools.test xml xml.traversal multiline ;
    4. 

  4. IN: svg.tests
    5. 

  5. 

  6. { 1.0 2.25 } { -3.0 4.0 } { 5.5 0.5 } <affine-transform> 1array [
    7. 

  7.     "matrix ( 1 +2.25 -3  , 0.4e+1  ,5.5, 5e-1 )" svg-transform>affine-transform
    8. 

  8. ] unit-test
    9. 

  9. 

  10. { 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> 1array [
    11. 

  11.     "translate(5.0, 1e1 )" svg-transform>affine-transform
    12. 

  12. ] unit-test
    13. 

  13. 

  14. { 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> 1array [
    15. 

  15.     "translate( 5.0  1e+1)" svg-transform>affine-transform
    16. 

  16. ] unit-test
    17. 

  17. 

  18. { 2.0 0.0 } { 0.0 2.0 } { 0.0 0.0 } <affine-transform> 1array [
    19. 

  19.     "scale(2.0)" svg-transform>affine-transform
    20. 

  20. ] unit-test
    21. 

  21. 

  22. { 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> 1array [
    23. 

  23.     "scale(2.0 4.0)" svg-transform>affine-transform
    24. 

  24. ] unit-test
    25. 

  25. 

  26. { 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> 1array [
    27. 

  27.     "scale(2.0 4.0)" svg-transform>affine-transform
    28. 

  28. ] unit-test
    29. 

  29. 

  30. [ t ] [
    31. 

  31.     "skewX(45)" svg-transform>affine-transform
    32. 

  32.     { 1.0 0.0 } { 1.0 1.0 } { 0.0 0.0 } <affine-transform> 0.001 a~
    33. 

  33. ] unit-test
    34. 

  34. 

  35. [ t ] [
    36. 

  36.     "skewY(-4.5e1)" svg-transform>affine-transform
    37. 

  37.     { 1.0 -1.0 } { 0.0 1.0 } { 0.0 0.0 } <affine-transform> 0.001 a~
    38. 

  38. ] unit-test
    39. 

  39. 

  40. [ t ] [
    41. 

  41.     "rotate(30)" svg-transform>affine-transform
    42. 

  42.     { $[ 0.75 sqrt ] 0.5            }
    43. 

  43.     { -0.5           $[ 0.75 sqrt ] }
    44. 

  44.     {  0.0           0.0            } <affine-transform> 
    45. 

  45.     0.001 a~
    46. 

  46. ] unit-test
    47. 

  47. 

  48. [ t ] [
    49. 

  49.     "rotate(30 1.0,2.0)" svg-transform>affine-transform
    50. 

  50.     { $[  30 degrees cos ] $[ 30 degrees sin ] }
    51. 

  51.     { $[ -30 degrees sin ] $[ 30 degrees cos ] } {
    52. 

  52.         $[ 1.0 30 degrees cos 1.0 * - 30 degrees sin 2.0 * + ]
    53. 

  53.         $[ 2.0 30 degrees cos 2.0 * - 30 degrees sin 1.0 * - ]
    54. 

  54.     } <affine-transform> 0.001 a~
    55. 

  55. ] unit-test
    56. 

  56. 

  57. { $[  30 degrees cos ] $[ 30 degrees sin ] }
    58. 

  58. { $[ -30 degrees sin ] $[ 30 degrees cos ] }
    59. 

  59. { 1.0 2.0 } <affine-transform> 1array [
    60. 

  60.     "translate(1 2) rotate(30)" svg-transform>affine-transform
    61. 

  61. ] unit-test
    62. 

  62. 

  63. [ {
    64. 

  64.     T{ moveto f { 1.0  1.0 } f }
    65. 

  65.     T{ lineto f { 3.0 -1.0 } f }
    66. 

  66. 

  67.     T{ lineto f { 2.0  2.0 } t }
    68. 

  68.     T{ lineto f { 2.0 -2.0 } t }
    69. 

  69.     T{ lineto f { 2.0  2.0 } t }
    70. 

  70. 

  71.     T{ vertical-lineto f -9.0 t }
    72. 

  72.     T{ vertical-lineto f  1.0 t }
    73. 

  73.     T{ horizontal-lineto f 9.0 f }
    74. 

  74.     T{ horizontal-lineto f 8.0 f }
    75. 

  75. 

  76.     T{ closepath }
    77. 

  77. 

  78.     T{ moveto f { 0.0 0.0 } f }
    79. 

  79. 

  80.     T{ curveto f { -4.0 0.0 } { -8.0 4.0 } { -8.0 8.0 } f }
    81. 

  81.     T{ curveto f { -8.0 4.0 } { -12.0 8.0 } { -16.0 8.0 } f }
    82. 

  82. 

  83.     T{ smooth-curveto f { 0.0 2.0 } { 2.0 0.0 } t }
    84. 

  84. 

  85.     T{ quadratic-bezier-curveto f { -2.0 0.0 } { 0.0 -2.0 } f }
    86. 

  86.     T{ quadratic-bezier-curveto f { -3.0 0.0 } { 0.0  3.0 } f }
    87. 

  87. 

  88.     T{ smooth-quadratic-bezier-curveto f { 1.0 2.0 } t }
    89. 

  89.     T{ smooth-quadratic-bezier-curveto f { 3.0 4.0 } t }
    90. 

  90. 

  91.     T{ elliptical-arc f { 5.0 6.0 } 7.0 t f { 8.0 9.0 } f }
    92. 

  92. } ] [
    93. 

  93.     """
    94. 

  94.     M 1.0,+1 3,-10e-1  l 2 2, 2 -2, 2 2   v -9 1 H 9 8  z 
    95. 

  95.     M 0 0  C -4.0 0.0 -8.0 4.0 -8.0 8.0  -8.0 4.0 -12.0 8.0 -16.0 8.0
    96. 

  96.     s 0.0,2.0 2.0,0.0
    97. 

  97.     Q -2 0 0 -2 -3. 0 0 3
    98. 

  98.     t 1 2 3 4
    99. 

  99.     A 5 6 7 1 0 8 9
    100. 

  100.     """ svg-path>array
    101. 

  101. ] unit-test
    102. 

  102. 

  103. STRING: test-svg-string
    104. 

  104. <svg xmlns="http://www.w3.org/2000/svg">
    105. 

  105.         <path transform="translate(1 2)" d="M -1 -1 l 2 2" />
    106. 

  106. </svg>
    107. 

  107. ;
    108. 

  108. 

  109. : test-svg-path ( -- obj )
    110. 

  110.     test-svg-string string>xml body>> children-tags first ;
    111. 

  111. 

  112. [ { T{ moveto f { -1.0 -1.0 } f } T{ lineto f { 2.0 2.0 } t } } ]
    113. 

  113. [ test-svg-path tag-d ] unit-test
    114. 

  114. 

  115. [ T{ affine-transform f { 1.0 0.0 } { 0.0 1.0 } { 1.0 2.0 } } ]
    116. 

  116. [ test-svg-path tag-transform ] unit-test
    117.