关于Tracepro 的marco语言（scheme）如何迭代

关于这个小程序，不明白错在哪里，大家讨论一下
(define z 3)
(define y 6)
(define r 100)
(define (refl y z)
  (define sphere1 (solid:sphere 0 y z r))
  (if (< y 12)
    (refl (+ y 1) z)
    (define sphere0 (solid:sphere 0 0 0 r))
    )
  )
运行后，只有一些输出命令，没有实体

[attachment=49034]

[attachment=49035]

sai6521472	2013-05-31 12:37
沙发自已坐 PC_4#6^5

sai6521472	2013-05-31 15:03
顶一顶帖子

stoong	2013-06-08 23:27
对marco语言熟吗？我想导入一个表面材料数据（如BRDF数据），能用这个实现吗

272049844	2013-06-17 15:47
(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 h*9o_ ) f,a %@WT

caidao737	2013-07-23 23:23
←_←好好看看

sai6521472	2013-08-06 23:11
272049844:(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 q)b?X ^ ) >NA7,Z2. (2013-06-17 15:47) pd3&AsU n^02@Aw (define (refl y z) p&mtKLv 这是定义一个函数,函数名为refl ，因变量 y和z 30E v" 不知道哪错了

272049844	2013-10-21 20:19
不好意思，好久没上来看看，是我先前看错了，refl是函数，那你运行出来只有refl是正常的，因为你的子函数refl里面没有给点yz值，你在全局里面定义没用的，必须在refl里面给定

272049844	2013-10-21 20:35
不过参数定义在里面就无法实现迭代了，所以还是用do来循环吧

查看本帖完整版本: [-- 关于Tracepro 的marco语言（scheme）如何迭代 --] [-- top --]