# | Line 660 | Line 660 | makeshape(shp, width, length, height) /* make source | |
---|---|---|
660 | register SHAPE *shp; | |
661 | double width, length, height; | |
662 | { | |
663 | < | if (illumrad >= MINDIM/2.) { |
663 | > | if (illumrad/meters2out >= MINDIM/2.) { |
664 | shp->type = SPHERE; | |
665 | < | shp->w = shp->l = shp->h = 2.*illumrad; |
665 | > | shp->w = shp->l = shp->h = 2.*illumrad / meters2out; |
666 | } else if (width < MINDIM) { | |
667 | width = -width; | |
668 | if (width < MINDIM) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |