Andrew Cooke | Contents | Latest | RSS | Previous | Next

C[omp]ute

Welcome to my blog, which was once a mailing list of the same name and is still generated by mail. Please reply via the "comment" links.

Always interested in offers/projects/new ideas. Eclectic experience in fields like: numerical computing; Python web; Java enterprise; functional languages; GPGPU; SQL databases; etc. Based in Santiago, Chile; telecommute worldwide. CV; email.

Personal Projects

Choochoo Training Diary

Last 100 entries

[Programming] React Leaflet; AliExpress Independent Sellers; Applebaum - Twilight of Democracy; [Politics] Back + US Elections; [Programming,Exercise] Simple Timer Script; [News] 2019: The year revolt went global; [Politics] The world's most-surveilled cities; [Bike] Hope Freehub; [Restaurant] Mama Chau's (Chinese, Providencia); [Politics] Brexit Podcast; [Diary] Pneumonia; [Politics] Britain's Reichstag Fire moment; install cairo; [Programming] GCC Sanitizer Flags; [GPU, Programming] Per-Thread Program Counters; My Bike Accident - Looking Back One Year; [Python] Geographic heights are incredibly easy!; [Cooking] Cookie Recipe; Efficient, Simple, Directed Maximisation of Noisy Function; And for argparse; Bash Completion in Python; [Computing] Configuring Github Jekyll Locally; [Maths, Link] The Napkin Project; You can Masquerade in Firewalld; [Bike] Servicing Budget (Spring) Forks; [Crypto] CIA Internet Comms Failure; [Python] Cute Rate Limiting API; [Causality] Judea Pearl Lecture; [Security, Computing] Chinese Hardware Hack Of Supermicro Boards; SQLAlchemy Joined Table Inheritance and Delete Cascade; [Translation] The Club; [Computing] Super Potato Bruh; [Computing] Extending Jupyter; Further HRM Details; [Computing, Bike] Activities in ch2; [Books, Link] Modern Japanese Lit; What ended up there; [Link, Book] Logic Book; Update - Garmin Express / Connect; Garmin Forerunner 35 v 230; [Link, Politics, Internet] Government Trolls; [Link, Politics] Why identity politics benefits the right more than the left; SSH Forwarding; A Specification For Repeating Events; A Fight for the Soul of Science; [Science, Book, Link] Lost In Math; OpenSuse Leap 15 Network Fixes; Update; [Book] Galileo's Middle Finger; [Bike] Chinese Carbon Rims; [Bike] Servicing Shimano XT Front Hub HB-M8010; [Bike] Aliexpress Cycling Tops; [Computing] Change to ssh handling of multiple identities?; [Bike] Endura Hummvee Lite II; [Computing] Marble Based Logic; [Link, Politics] Sanity Check For Nuclear Launch; [Link, Science] Entropy and Life; [Link, Bike] Cheap Cycling Jerseys; [Link, Music] Music To Steal 2017; [Link, Future] Simulated Brain Drives Robot; [Link, Computing] Learned Index Structures; Solo Air Equalization; Update: Higher Pressures; Psychology; [Bike] Exercise And Fuel; Continental Race King 2.2; Removing Lowers; Mnesiacs; [Maths, Link] Dividing By Zero; [Book, Review] Ray Monk - Ludwig Wittgenstein: The Duty Of Genius; [Link, Bike, Computing] Evolving Lacing Patterns; [Jam] Strawberry and Orange Jam; [Chile, Privacy] Biometric Check During Mail Delivery; [Link, Chile, Spanish] Article on the Chilean Drought; [Bike] Extended Gear Ratios, Shimano XT M8000 (24/36 Chainring); [Link, Politics, USA] The Future Of American Democracy; Mass Hysteria; [Review, Books, Links] Kazuo Ishiguro - Never Let Me Go; [Link, Books] David Mitchell's Favourite Japanese Fiction; [Link, Bike] Rear Suspension Geometry; [Link, Cycling, Art] Strava Artwork; [Link, Computing] Useful gcc flags; [Link] Voynich Manuscript Decoded; [Bike] Notes on Servicing Suspension Forks; [Links, Computing] Snap, Flatpack, Appimage; [Link, Computing] Oracle is leaving Java (to die); [Link, Politics] Cubans + Ultrasonics; [Book, Link] Laurent Binet; VirtualBox; [Book, Link] No One's Ways; [Link] The Biggest Problem For Cyclists Is Bad Driving; [Computing] Doxygen, Sphinx, Breathe; [Admin] Brokw Recent Permalinks; [Bike, Chile] Buying Bearings in Santiago; [Computing, Opensuse] Upgrading to 42.3; [Link, Physics] First Support for a Physics Theory of Life; [Link, Bike] Peruvian Frame Maker; [Link] Awesome Game Theory Tit-For-Tat Thing; [Food, Review] La Fabbrica - Good Italian Food In Santiago; [Link, Programming] MySQL UTF8 Broken; [Link, Books] Latin American Authors

© 2006-2017 Andrew Cooke (site) / post authors (content).

Initial Scheme code for Napito

From: "andrew cooke" <andrew@...>

Date: Mon, 13 Aug 2007 21:04:14 -0400 (CLT)

Wrote this over the weekend, with help from people on various mailing
lists and #scheme.  Finally got it running just now.  It shows the basic
structure, but the code is still a mess - I need to write functions
(possibly macros) to help simplify things.

There seems to be more emphasis on higher order functions than I believe
normal in Scheme, but really I don't have much of a clue (someone on
#scheme didn't seem to follow it, but I probably didn't explain it well,
and they may have been a student).

":";exec snow -- "$0" "$@"

(package* napito/v1.0.0

  (provide:
   (define (nap-line x1 y1 x2 y2))
   (define (nap-generate engine drawing)))

  (author: "Andrew Cooke <andrew at acooke.org>")
  (homepage: "http://www.acooke.org")
  (description: "Napito drawing description language")
  (keywords: graphics)
  (license: gpl/v3.0)

  (require: napito-base/v1)
  (require: napito-test/v1))

; napito is separated into a user api (this file), some common support
; code (napito-base), and various engines.  the engines all implement
; (extend) the same "engine api".

; the user api is used to describe a drawing.  the api looks like a
; program but, when evaluated, constructs a function that takes and
; returns an engine.

; in other words, a drawing has the type engine -> engine.

; this interface is ubiquitous, since drawings can be nested (for
; example, a single line is a drawing).

; when an engine is passed to a drawing the internal api is invoked to
; generate the image on the engine's output device (eg. by creating a
; postscript file).

; for simple actions the engine api is similar to the user api.  for
; example, the user api to draw a line is the function (nap-line x1 y1
; x2 y2).  the engine api is (engine 'line (list x1 y1 x2 y2)).

; the job of the user api is to hide the engine api (which is generic
; with late binding) behind something that looks nice and simple.

; there are two advantages to this approach:

; first, late binding allows different engines to be used with the
; same drawing.

; second, the handling of the context (for example, the current
; coordinate transformation) is made implicit to the user, without
; losing referential transparency in the implementation.

(define (nap-line x1 y1 x2 y2)
  (lambda (engine)
    (engine 'line (list x1 y1 x2 y2))))

(define (nap-generate engine drawing)
  (drawing engine))

(test*
 (expect* (equal? (let ((engine (nap-engine (nap-default-transform))))
                    ((nap-generate engine (nap-line 0 0 1 1)) 'results '()))
                  '((line 0 0 1 1)))))

(write
 (let ((engine (nap-engine (nap-default-transform))))
   ((nap-generate engine (nap-line 0 0 1 1)) 'results '())))


":";exec snow -- "$0" "$@"

(package* napito-test/v1.0.0

  (provide:
      (define (nap-engine initial-transform)))

  (author: "Andrew Cooke <andrew at acooke.org>")
  (homepage: "http://www.acooke.org")
  (description: "Napito drawing description language - test engine")
  (keywords: graphics)
  (license: gpl/v3.0)

  (require: napito-base/v1))

(define (nap-engine initial-transform)
  (let ((state (make-state '() initial-transform)))
    (new-engine state)))

(define (new-engine state)
  (lambda (action args)
    (case action
      ((line) (new-engine (line state args)))
      ((scale) (new-engine (scale state args)))
      ((results) (get-results state)) ; specific to this engine
      (else (error "unsupported action" action)))))

(define (get-results state)
  (car state))

(define (get-transform state)
  (cadr state))

(define (make-state results transform)
  (list results transform))

(define (line state args)
  (let ((results (get-results state))
        (transform (get-transform state)))
    (make-state (cons `(line ,@args) results) transform)))

  (define (scale state args)
    (display "scale"))


Andrew

Comment on this post