From: Matt Birkholz Date: Fri, 5 Apr 2013 23:28:34 +0000 (-0700) Subject: gtk: Update fix-demo.scm's copyright notice. Turn the ball blue. X-Git-Tag: mit-scheme-pucked-9.2.12~524 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32da237f4442895249553982db940baa431693e7;p=mit-scheme.git gtk: Update fix-demo.scm's copyright notice. Turn the ball blue. --- diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm index a3a7ebb2b..44ebe0d60 100644 --- a/src/gtk/fix-demo.scm +++ b/src/gtk/fix-demo.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 Matthew Birkholz +Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013 Matthew Birkholz This file is part of an extension to MIT/GNU Scheme. @@ -150,7 +150,7 @@ USA. (let ((pattern #;(cairo-pattern-create-linear 0. 0. 1. 1.) (cairo-pattern-create-radial .25 .25 0. .25 .25 1.))) (cairo-pattern-add-color-stop pattern 0. "white") - (cairo-pattern-add-color-stop pattern 1. "gold") + (cairo-pattern-add-color-stop pattern 1. "blue") (let ((2pi (flo:* 8. (flo:atan2 1. 1.)))) (cairo-arc cr 0. 0. 1. 0. 2pi)) (cairo-set-source cr pattern)