返回列表 回复 发帖
我刚才胡整海整,歪打正着,居然作出了,怪哉!我今天就干这个特效,总是带来整去不对劲,感谢上天。
未命名.jpg
M集CheckerBoard特效.gsp (23.38 KB)
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
}
                        

FamilyGradient(BOTH)-1.JPG (41.08 KB)

FamilyGradient(BOTH)-1.JPG

FamilyGradient(BOTH)-3.JPG (30.24 KB)

FamilyGradient(BOTH)-3.JPG

未命名.jpg
未命名.jpg
未命名.jpg
12# 榕坚
不同的着色模式,引发不同的视觉冲击。再扫一图:
未命名.jpg
特效代码如下:
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
}
迎新年,贴上一个窗花

捕获.JPG (28 KB)

捕获.JPG

各位对几何画板与分形的热爱与痴迷真让人佩服。学习了!
UF中的有些特效太迷人,但破译起来太费神,判断多,令人眼花了乱,只好放弃了。
UF中肯定也有边界构造的特效,能把它找出来吗?
17# 柳烟
有些特效确实已经超出了几何画板的能力范围,象一些3D的特效连UF本身运行起来也非常慢,只能选作几何画板能为的。
19# 榕坚
完全正确。
返回列表