home *** CD-ROM | disk | FTP | other *** search
/ Maclife 39 / MACLIFE39.ISO.7z / MACLIFE39.ISO / FreeWare200 / グラフィック / Photonick_68K.sit / Photonick_68Kフォルダ / Filter / mosaic.fcf < prev    next >
Text File  |  1998-03-24  |  681b  |  55 lines
  1. AFCF
  2. #    Artemis Filter Code File
  3. #   Into Mosaic Pattern
  4. #
  5. #    Copyright (C) 1997-98 by Yasushi Tanaka
  6.  
  7. # Version Number    ; V:n
  8. V:2
  9.  
  10. # Filter ID            ; I:n
  11. I:3
  12.  
  13. # Filter Title        ; T:str
  14. T:Mosaic
  15.  
  16. # Use Preview        ; P:n
  17. P:1
  18.  
  19. # Slider Value        ; S:n cr mi mx cr mi mx cr mi mx
  20. S:1 
  21.   4  2  16
  22.  
  23. # Slider Label        ; L:str
  24. L:Block Size
  25.  
  26. # Color Space : RGB or YUV
  27. C:RGB
  28.  
  29. R:
  30.     const_s0 R0        ; Slider value to R0
  31.     mov R0 R1        ; Create Position
  32.     div 2 R1
  33.     const_x X
  34.     const_y Y
  35.     div R0 X
  36.     div R0 Y
  37.     mul R0 X
  38.     mul R0 Y
  39.     add R1 X        ; X: x-pos to global
  40.     add R1 Y        ; Y: y-pos to global
  41.     func_get_r A
  42.     eop
  43. /:
  44. G:
  45.     func_get_g A    ; X,Y from global
  46.     eop
  47. /:
  48. B:
  49.     func_get_b A    ; X,Y from global
  50.     eop
  51. /:
  52.  
  53. # End of fsf
  54. E:
  55.