From 32da237f4442895249553982db940baa431693e7 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 5 Apr 2013 16:28:34 -0700 Subject: [PATCH] gtk: Update fix-demo.scm's copyright notice. Turn the ball blue. --- src/gtk/fix-demo.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1