Sorry I just wrapped it in a (beside)

(def light (pt 0.7 0.7))
(set-curve-pict-size 128 128 )

;(save-pict-as-png "logo.png"
 (beside
  ; Here is a flat logo

  (draw (color blue (fill blue-curve))
        (color red  (fill red-left-curve))
        (color red  (fill red-middle-curve)))

  ; A version with a spotlight at (0.7, 0.7).

  (draw (brushcolor "white" (fill (rectangle (pt -1 -1) (pt 1 1))))
        (brushgradient (radial-gradient light 0 light 2 blue-gradient)
                       (draw (fill blue-curve)))
        (color red (fill red-left-curve))
        (color red (fill red-middle-curve)))

  ; A Simple outline version
  (draw blue-curve red-left-curve red-middle-curve)

  ; A simple black and white filled version
  (fill blue-curve red-left-curve red-middle-curve)



  (draw (color blue (fill blue-curve))
        (color red  (fill red-left-curve))
        (color red  (fill red-middle-curve))))

Laurent discovered bug yesterday- and the fix. Adding a freeze.

I remember now. I can’t have the (def inside the (beside :sob:

Any Racketeers in Tokyo?

Should radial-gradient apply a freeze automatically? Also, it’s probably best to freeze the minimal amount in the picture

I really gotta read the manual to find out what a freeze is…

Afaiu and fttomh, freeze turns a pict, which is a set of relations basically, to a bitmap, which is a flat pixel map.

But keeps it as a pict structure

(but I may recall wrongly)

Nice

I think the gradient bug is due to something I have missed regarding the coordinate transformation from pattern pace to user space. But until I figure out what, adding a freeze could be used as a temporary fix.

“One can even conjecture that Lisp owes its survival specifically to the fact that its programs are lists, which everyone, including me, has regarded as a disadvantage.” - John McCarthy, “History of Lisp”, 1979