返回列表 回复 发帖
我扫出的图片有时挺不错的,但是发在坛子上,颜色变来不好看,我是用windows中的附件处理的图片,请教板友们,有什么更好的处理gsp中的图片法子?
再扫一图:
未命名3.JPG
未命名1.JPG
代码:
bwp3 {
init:
  z1 = @InitValue
  t = #pixel
loop:
  z2 = z1
  z1 = sin(z1) - t
  t = 1 / (z1 * @Value)
  z = z1 - z2
bailout:
  |z| < @Bailout  
default:
  title = "BWP 03"
  param InitValue
    caption = "Initial Value"
    default = (0, 0)
  endparam
  param Value
    caption = "Value"
    default = (50, 0)
  endparam
  param Bailout
    caption = "Bailout Value"
    default = 4.0
  endparam
}
未命名1.JPG
BWP03.gsp (17.65 KB)
BMP03的changxde 变换图片
未命名1.JPG
BWP03的变换图片.gsp (19.27 KB)
未命名2.JPG
12# 柳烟
这组图若用mjj的起泡法作色,将所有圆作成有光泽的球,一定更加漂亮。
16# xiaongxp
向老师建议好,由于近来忙,对梅老师的起泡法还未曾钻研,等以后研究了,再来作。
代码:
bwp16 {
init:
  z = @InitValue
loop:
  z = @Mult3 * ((@Mult1 * (z ^ @Exp1)) + \
  (@Mult2 * (z ^ @Exp2))) + @Fun(#pixel)
bailout:
  |z| < @Bailout  
default:
  title = "BWP 16"
  param InitValue
    caption = "Initial Value"
    default = (0, 0)
  endparam
  param Mult1
    caption = "Multiplier 1"
    default = (0.5, 0)
  endparam
  param Mult2
    caption = "Multiplier 2"
    default = (0.5, 0)
  endparam
  param Mult3
    caption = "Multiplier 3"
    default = (1, 0)
  endparam
  param Exp1
    caption = "Exponent 1"
    default = (2, 0)
  endparam
  param Exp2
    caption = "Exponent 2"
    default = (2, 0)
  endparam
  param Bailout
    caption = "Bailout Value"
    default = 4.0
  endparam
  func Fun
    caption = "Function"
    default = ident()
  endfunc
switch:
  type = "bwp17"
  Seed = #pixel
  Mult1 = @Mult1
  Mult2 = @Mult2
  Mult3 = @Mult3
  Exp1 = @Exp1
  Exp2 = @Exp2
  Fun = @Fun
  Bailout = @Bailout
}
扫出的图片多如繁星,我这文件,改变参数代表的开关顶,就可扫出不同的图片,有些是UF中能扫出的,有些是不能扫出的,先扫几张UF中有的。连我自已都扫不赢,大家自已扫去。
BWP16一号.gsp (33.05 KB)

未命名2.JPG

未命名1.JPG (18.59 KB)

未命名1.JPG

下略扫扫几张UF中没有,而楼上文件中,改变参数就能得到的图片:
未命名6.JPG
未命名7.JPG

未命名5.JPG (12.49 KB)

未命名5.JPG

BMP16 二号.gsp (51.93 KB)
未命名3.JPG
未命名3.JPG
未命名1.JPG
返回列表