| Andrew Cooke | Contents | Latest | RSS | Twitter | 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

Lepl parser for Python.

Colorless Green.

Photography around Santiago.

SVG experiment.

Professional Portfolio

Calibration of seismometers.

Data access via web services.

Cache rewrite.

Extending OpenSSH.

C-ORM: docs, API.

Last 100 entries

Interesting Argentinian Author - Antonio Di Benedetto; Useful Thread on MetaPhysics; RAND on fighting online anarchy (2001); Now Is Cat Soft LLC's Chance To Save Up To 32% On Mail; NSA Hacked; Call Center Services for Cat Soft LLC; Very Good LRB Article on Brexit; Nussbaum on Anger; Credit Card Processing for Cat Soft LLC; Discover new movies on demand in our online cinema; Tasting; Credit Card Processing for Cat Soft LLC; Apple + Kiwi Jam; Hit Me; Increase Efficiency with GPS Vehicle Tracking for Cat Soft LLC; Sudoku - CSP + Chaos; Recycling Electronics In Santiago; Vector Displays in OpenGL; Call Center Services for Cat Soft LLC; And Anti-Aliased; OpenGL - Render via Intermediate Texture; And Garmin Connect; Using Garmin Forerunner 230 With Linux; Payroll Service Quotes for Cat Soft LLC; (Beating Dead Horse) StackOverflow; Current State of Justice in China; Now Is Cat Soft LLC's Chance To Save Up To 32% On Mail; Axiom of Determinacy; Ewww; Fee Chaos Book; Course on Differential Geometry; Increase Efficiency with GPS Vehicle Tracking for Cat Soft LLC; Okay, but...; Sparse Matrices, Deep Learning; Sounds Bad; Applebaum Rape; Tomato Chutney v4; Have to add...; Culturally Liberal and Nothing More; Weird Finite / Infinite Result; Your diamond is a beaten up mess; Maths Books; Good Bike Route from Providencia / Las Condes to Panul\; Iain Pears (Author of Complex Plots); Plum Jam; Excellent; More Recently; For a moment I forgot StackOverflow sucked; A Few Weeks On...; Chilean Book Recommendations; How To Write Shared Libraries; Jenny Erpenbeck (Author); Dijkstra, Coins, Tables; Python libraries error on OpenSuse; Deserving Trump; And Smugness; McCloskey Economics Trilogy; cmocka - Mocks for C; Concept Creep (Americans); Futhark - OpenCL Language; Moved / Gone; Fan and USB issues; Burgers in Santiago; The Origin of Icosahedral Symmetry in Viruses; autoenum on PyPI; Jars Explains; Tomato Chutney v3; REST; US Elections and Gender: 24 Point Swing; PPPoE on OpenSuse Leap 42.1; SuperMicro X10SDV-TLN4F/F with Opensuse Leap 42.1; Big Data AI Could Be Very Bad Indeed....; Cornering; Postcapitalism (Paul Mason); Black Science Fiction; Git is not a CDN; Mining of Massive Data Sets; Rachel Kaadzi Ghansah; How great republics meet their end; Raspberry, Strawberry and Banana Jam; Interesting Dead Areas of Math; Later Taste; For Sale; Death By Bean; It's Good!; Tomato Chutney v2; Time ATAC MX 2 Pedals - First Impressions; Online Chilean Crafts; Intellectual Variety; Taste + Texture; Time Invariance and Gauge Symmetry; Jodorowsky; Tomato Chutney; Analysis of Support for Trump; Indian SF; TP-Link TL-WR841N DNS TCP Bug; TP-Link TL-WR841N as Wireless Bridge; Sending Email On Time; Maybe run a command; Sterile Neutrinos; Strawberry and Banana Jam

© 2006-2015 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