/unmaintained/images/processing/rotation/rotation-tests.factor

http://github.com/abeaumont/factor · Factor · 71 lines · 54 code · 15 blank · 2 comment · 11 complexity · 697f22e277a75675cf61e2054a67dcef MD5 · raw file 

    

  1. ! Copyright (C) 2009 Kobi Lurie, Doug Coleman.

    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.

    3. 

  3. USING: accessors fry images.loader

    4. 

  4. images.processing.rotation kernel literals math sequences

    5. 

  5. tools.test images.processing.rotation.private ;

    6. 

  6. IN: images.processing.rotation.tests

    7. 

  7. 

    8. 

  8. : first-row ( seq^2 -- seq ) first ;

    9. 

  9. : first-col ( seq^2 -- item ) harvest [ first ] map ;

    10. 

  10. : last-row ( seq^2 -- item ) last ;

    11. 

  11. : last-col ( seq^2 -- item ) harvest [ last ] map ;

    12. 

  12. : end-of-first-row ( seq^2 -- item ) first-row last ;

    13. 

  13. : first-of-first-row ( seq^2 -- item ) first-row first ;

    14. 

  14. : end-of-last-row ( seq^2 -- item ) last-row last ;

    15. 

  15. : first-of-last-row ( seq^2 -- item ) last-row first ;

    16. 

  16. 

    17. 

  17. <<

    18. 

  18. 

    19. 

  19. : clone-image ( image -- new-image )

    20. 

  20.     clone [ clone ] change-bitmap ;

    21. 

  21. 

    22. 

  22. >>

    23. 

  23. 

    24. 

  24. : pasted-image ( -- image )

    25. 

  25.     "vocab:images/processing/rotation/test-bitmaps/PastedImage.bmp"

    26. 

  26.     load-image clone-image ;

    27. 

  27. 

    28. 

  28. : pasted-image90 ( -- image )

    29. 

  29.     "vocab:images/processing/rotation/test-bitmaps/PastedImage90.bmp"

    30. 

  30.     load-image clone-image ;

    31. 

  31. 

    32. 

  32. : lake-image ( -- image )

    33. 

  33.     "vocab:images/processing/rotation/test-bitmaps/lake.bmp"

    34. 

  34.     load-image clone-image image>pixel-rows ;

    35. 

  35. 

    36. 

  36. [ t ] [ pasted-image dup clone-image 4 [ 90 rotate ] times = ] unit-test

    37. 

  37. [ t ] [ pasted-image dup clone-image 2 [ 180 rotate ] times = ] unit-test

    38. 

  38. [ t ] [ pasted-image dup clone-image 270 rotate 90 rotate = ] unit-test

    39. 

  39. [ t ] [

    40. 

  40.     pasted-image dup clone-image dup { 90 180 90 } [ rotate drop ] with each =

    41. 

  41. ] unit-test

    42. 

  42. 

    43. 

  43. [ t ] [

    44. 

  44.     pasted-image 90 rotate

    45. 

  45.     pasted-image90 = 

    46. 

  46. ] unit-test

    47. 

  47. 

    48. 

  48. [ t ] [

    49. 

  49.     "vocab:images/processing/rotation/test-bitmaps/small.bmp"

    50. 

  50.     load-image 90 rotate 

    51. 

  51.     "vocab:images/processing/rotation/test-bitmaps/small-rotated.bmp"

    52. 

  52.     load-image =

    53. 

  53. ] unit-test

    54. 

  54.     

    55. 

  55. [ t ] [

    56. 

  56.     lake-image

    57. 

  57.     [ first-of-first-row ]

    58. 

  58.     [ 90 (rotate) end-of-first-row ] bi =

    59. 

  59. ] unit-test

    60. 

  60. 

    61. 

  61. [ t ]

    62. 

  62. [ lake-image [ first-row ] [ 90 (rotate) last-col ] bi = ] unit-test

    63. 

  63. 

    64. 

  64. [ t ]

    65. 

  65. [ lake-image [ last-col ] [ 90 (rotate) last-row reverse ] bi = ] unit-test

    66. 

  66. 

    67. 

  67. [ t ]

    68. 

  68. [ lake-image [ last-row ] [ 90 (rotate) first-col ] bi = ] unit-test

    69. 

  69. 

    70. 

  70. [ t ]

    71. 

  71. [ lake-image [ first-col ] [ 90 (rotate) first-row reverse ] bi = ] unit-test
    72.