UF与复分形特效

柳烟

M集TruchetTiles(BOTH)特效：

下载 (71.43 KB)

2012-1-2 00:00

附上UF中该特效作色的程序代码：
TruchetTiles(BOTH) {
; By Samuel Monnier, 31.10.00
init:
  z = 0
  zc = 0
  zz = 0
  cr = 0
  float d1 = 0
  float d2 = 0
loop:
  
final:
  z = #z/@size*exp(1i*pi/180*@rot)
  zc = round(z)
  zz = z - zc
  
  cr = 2*(@seed/(zc+124) - round(@seed/(zc+124)))
  
  if real(cr) > 0
    if @mode == 0
      d1 = abs(cabs(zz+(.5,.5))-.5)
      d2 = abs(cabs(zz-(.5,.5))-.5)
    else
      d1 = abs(real(zz) - imag(zz) -.5)
      d2 = abs(real(zz) - imag(zz) +.5)
    endif
    if d2 < d1
      d1 = d2
    endif
  else
    if @mode == 0
      d1 = abs(cabs(zz+(.5,-.5))-.5)
      d2 = abs(cabs(zz-(.5,-.5))-.5)
    else
      d1 = abs(real(zz) + imag(zz) -.5)
      d2 = abs(real(zz) + imag(zz) +.5)
    endif
    if d2 < d1
      d1 = d2
    endif
  endif
  
  #index = d1^@thick
  
default:
  title = "Truchet Tiles"
  helpfile = "sam-help/variouscol2.htm"
  helptopic = "truchet"
  
  param mode
    caption = "Mode"
    default = 0
    enum = "Roundy" "Squarry"
  endparam
  
  param size
    caption = "Pattern Size"
    default = 1.0
  endparam
  
  param rot
    caption = "Pattern Rotation"
    default = 0.0
  endparam
  
  param thick
    caption = "Thickness"
    default = 0.1
  endparam
  
  param seed
    caption = "Seed"
    default = 1234567890
  endparam
}

xiaongxp

1# 柳烟
此图太妙了！是有机一体的还是二次扫描图？

柳烟

2# xiaongxp
一次扫成的。

柳烟

改变参数，再扫：

下载 (63.13 KB)

2012-1-2 00:01

柳烟

UF中的这个特效带两个开关项，要在一个画板文件中，整合这两个开关项，不难，无非多几个判断而已。分形着色，用了本坛榕坚兄发在该坛的一种特效中的着色法。一楼图是其中一个开关项之一，今再扫其姐妹篇：

下载 (57.55 KB)

2012-1-2 00:02

一楼的画板源文件，待我整理好后，再发在此。大家一同努力，将分形推向高潮。
附上1楼的源文件，以方便交流：
M集TruchetTiles(BOTH)特效.gsp (28.41 KB)

下载次数: 3668

2012-1-2 12:41

dyk

太漂亮了，赞。背景着色的好方法。

柳烟

将程序代码中的某些句子动一动，扫得一图：

下载 (50.58 KB)

2012-1-2 14:01

榕坚

这UF中的宝贝可真多，怎么也学不完：

柳烟

8# 榕坚
说得不错，UF确实是学习复分形的绝好教材，是分形艺术的“敦煌莫高窟”。

柳烟

这个复分形没整成功，程序解读起来费神，弄来不对头，等势圈老是不能消亡了。摆出来，算是征解。不过，倒学会了扫描法扫出国际象棋棋盘：

下载 (30.99 KB)

2012-1-2 20:50

国际象棋棋盘：

下载 (185.57 KB)

2012-3-12 20:16

国际象棋棋盘扫法(更新).gsp (16.33 KB)

下载次数: 3590

2012-3-12 20:16