Advertisement
Guest User

rectangular smooth window function

a guest
Dec 13th, 2016
254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. min(a,b) = a>b ? b:a
  2. max(a,b) = a>b ? a:b
  3. lim(minval,maxval, value) = max(minval,min(maxval,value))
  4.  
  5. set pm3d
  6. set pm3d interpolate 2,2
  7. set isosamples 100,100
  8. set view map
  9. set hidden3d
  10. unset key
  11. set palette grayscale
  12.  
  13. sx = 4.5
  14. sy = 3.5   
  15. margin = 1.5
  16.  
  17. sx2 = sx/2.0
  18. sy2 = sy/2.0     
  19. m = 1/margin
  20.  
  21. f(x,y) = lim(0,1,m*(sx2-abs(sx2-x)))*lim(0,1,m*(sy2-abs(sy2-y)))
  22. splot [-1:5][-1:5] 0.5*(cos(pi*(1-f(x,y)))+1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement