柳烟

我刚才胡整海整，歪打正着，居然作出了，怪哉！我今天就干这个特效，总是带来整去不对劲，感谢上天。

下载 (33.56 KB)

2012-1-2 20:48

M集CheckerBoard特效.gsp (23.38 KB)

下载次数: 2897

2012-1-2 20:18

CheckerBoard {
; Marcelo Anelli
  ; Caution!!:
  ; this method does not work with fast Mandel and fast Julia.
  init:
    float p = 0.0
    float w = 320 / #width * 0.03 * sqrt(@p1)
    int tx = 0
    int ty = 0
    float rx = real( #screenpixel )
    float ry = imag( #screenpixel )
    tx = floor( rx * w )
    if @ratio
      ty = floor( ry * w * #width / #height )
    else
      ty = floor( ry * w )
    endif
    int t = ( tx + ty ) % 2
    if (t == 0)
      p = @pmin
    else
      p = @pmax
    endif
  final:
    #index = p
default:
  title = "CheckerBoard"
  param p1
    caption = "Width"
    default = 1.0
    hint = "Not depending of magnification."
  endparam
  param ratio
    default = false
    caption = "Aspect ratio"
    hint = "Enable to match the aspect ratio of the square and the image"
  endparam
  param pmin
    caption = "White Square Color"
    min = 0.0
    max = 1.0
    default = 0.1
  endparam
  param pmax
    caption = "Black Square Color"
    min = 0.0
    max = 1.0
    default = 0.7
  endparam
}

榕坚

                        

柳烟

下载 (46.82 KB)

2012-1-4 08:30

下载 (25.32 KB)

2012-1-4 08:31

下载 (87.76 KB)

2012-1-4 08:33

柳烟

12# 榕坚
不同的着色模式，引发不同的视觉冲击。再扫一图：

下载 (35.36 KB)

2012-1-4 08:35

特效代码如下：
FamilyGradient(BOTH) {
; By Samuel Monnier, 20.3.00
; Designed for the "Familly formulas"
; (Julifamilly and Pcfamilly in my file
; and Pinskyfamilly in kpk.ufm.
init:
  complex z = pixel
  complex zc = 0
loop:
  
final:
  z = z - @tilem
  z = z*exp(1i*pi/180*@rottile)
  zc = round(z/@sizesq)*@sizesq
  z = z*exp(-1i*pi/180*@rottile)
  zc = zc*exp(-1i*pi/180*@rottile)
  z = z + @tilem
  zc = zc + @tilem
  z = 2*(z - zc)/@sizesq
  z = z*exp(1i*pi/180*@rottile)
  if @mode == 0
    #index = cabs(z)
  elseif @mode == 1
    float x = abs(real(z))
    float y = abs(imag(z))
    if x > y
      #index = x
    else
      #index = y
    endif
  endif
default:
  title = "Gradient for <<Familly>>"
  helpfile = "sam-help/variouscol.htm"
  helptopic = "gradforfam"
  
  param mode
    caption = "Gradient Mode"
    default = 1
    enum = "Circles" "Squares"
  endparam
  
  param tilem
    caption = "Tiling displacement"
    default = (0,0)
  endparam

  param sizesq
    caption = "Size of the tiles"
    default = 0.6
  endparam

  param rottile
    caption = "Tiling rotation"
    default = 0.0
  endparam
}

榕坚

迎新年，贴上一个窗花

yandongtai

各位对几何画板与分形的热爱与痴迷真让人佩服。学习了！

柳烟

UF中的有些特效太迷人，但破译起来太费神，判断多，令人眼花了乱，只好放弃了。

榕坚

UF中肯定也有边界构造的特效，能把它找出来吗？

榕坚

17# 柳烟
有些特效确实已经超出了几何画板的能力范围，象一些3D的特效连UF本身运行起来也非常慢，只能选作几何画板能为的。

柳烟

19# 榕坚
完全正确。