| 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

Calling C From Fortran 95; Bjork DJ Set; Z3 Example With Python; Week 1; Useful Guide To Starting With IJulia; UK Election + Media; Review: Reinventing Organizations; Inline Assembly With Julia / LLVM; Against the definition of types; Dumb Crypto Paper; The Search For Quasi-Periodicity...; Is There An Alternative To Processing?; CARDIAC (CARDboard Illustrative Aid to Computation); The Bolivian Case Against Chile At The Hague; Clear, Cogent Economic Arguments For Immigration; A Program To Say If I Am Working; Decent Cards For Ill People; New Photo; Luksic And Barrick Gold; President Bachelet's Speech; Baltimore Primer; libxml2 Parsing Stream; configure.ac Recipe For Library Path; The Davalos Affair For Idiots; Not The Onion: Google Fireside Chat w Kissinger; Bicycle Wheels, Inertia, and Energy; Another Tax Fraud; Google's Borg; A Verion That Redirects To Local HTTP Server; Spanish Accents For Idiots; Aluminium Cans; Advice on Spray Painting; Female View of Online Chat From a Male; UX Reading List; S4 Subgroups - Geometric Interpretation; Fucking Email; The SQM Affair For Idiots; Using Kolmogorov Complexity; Oblique Strategies in bash; Curses Tools; Markov Chain Monte Carlo Without all the Bullshit; Email Para Matias Godoy Mercado; The Penta Affair For Idiots; Example Code To Create numpy Array in C; Good Article on Bias in Graphic Design (NYTimes); Do You Backup github?; Data Mining Books; SimpleDateFormat should be synchronized; British Words; Chinese Govt Intercepts External Web To DDOS github; Numbering Permutations; Teenage Engineering - Low Price Synths; GCHQ Can Do Whatever It Wants; Dublinesque; A Cryptographic SAT Solver; Security Challenges; Word Lists for Crosswords; 3D Printing and Speaker Design; Searchable Snowden Archive; XCode Backdoored; Derived Apps Have Malware (CIA); Rowhammer - Hacking Software Via Hardware (DRAM) Bugs; Immutable SQL Database (Kinda); Tor GPS Tracker; That PyCon Dongle Mess...; ASCII Fluid Dynamics; Brandalism; Table of Shifter, Cassette and Derailleur Compatability; Lenovo Demonstrates How Bad HTTPS Is; Telegraph Owned by HSBC; Smaptop - Sunrise (Music); Equation Group (NSA); UK Torture in NI; And - A Natural Extension To Regexps; This Is The Future Of Religion; The Shazam (Music Matching) Algorithm; Tributes To Lesbian Community From AIDS Survivors; Nice Rust Summary; List of Good Fiction Books; Constructing JSON From Postgres (Part 2); Constructing JSON From Postgres (Part 1); Postgres in Docker; Why Poor Places Are More Diverse; Smart Writing on Graceland; Satire in France; Free Speech in France; MTB Cornering - Where Should We Point Our Thrusters?; Secure Secure Shell; Java Generics over Primitives; 2014 (Charlie Brooker); How I am 7; Neural Nets Applied to Go; Programming, Business, Social Contracts; Distributed Systems for Fun and Profit; XML and Scheme; Internet Radio Stations (Curated List); Solid Data About Placebos; Half of Americans Think Climate Change Is a Sign of the Apocalypse; Saturday Surf Sessions With Juvenile Delinquents; Ssh, tty, stdout and stderr; Feathers falling in a vacuum; Santiago 30m Bike Route

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

Example of Writing Indexed PNG Using PNGJ + Clojure

From: andrew cooke <andrew@...>

Date: Sat, 28 Apr 2012 15:46:42 -0300

Throwing this out there because pngj is a nice little library, but the
examples are fairly opaque and it assumes you know PNG internals.

I'll describe the code (below) and then give a summary.  You may not need the
code to understand how to use the library, so feel free to skip to the
numbered list...


OK, first the code: The function "print-png-indexed" takes an output stream
and returns two functions.

The second function is used to convert each pixel in the image (originally
HSL) into an index.  This palette of colours that this index references is the
"colours" atom in "print-png-indexed".

Once the first function takes a set of nested lists of index values (orginally
these would have been pixels, but they will have been converted by the second
function - I hope you are following!) and writes them to the output stream,
using the pngj library (after first writing the palette).


You don't have to understand all the above to use this, I hope.  What is
important is the process:

 1 - change pixels to indices, building up a colour-index map as you go.

 2 - start up the pngj library, with ImageInfo and PngWriter

 3 - use the colour-index map to populate a PngChunkPLTE instance.

 4 - write the PngChunkPLTE palette via the image metadata.

 5 - write the indices via the ImageLine.

Andrew


  (defn print-png-indexed [os]
    (let [colours (atom {})]
      [(fn [size rows]
	 ; 8 bits, no alpha, no grayscale, indexed
	 (let [info (ImageInfo. size size 8 Boolean/FALSE Boolean/FALSE Boolean/TRUE)
	       writer (PngWriter. os info)
	       line (ImageLine. info)
	       palette (PngChunkPLTE. info)]
	   (.setNentries palette (count @colours))
	   (doseq [rgb (keys @colours)]
	     (let [[r g b] rgb]
	       (.setEntry palette (@colours rgb) r g b)))
	   (.queueChunk (.getMetadata writer) palette)
	   (doseq [[i row] (map-indexed vector rows)]
  ;           (println row)
	     (.setScanLine line (int-array row))
	     (.writeRow writer line i))
	   (.end writer)))
       (fn [hsl]
	 (let [rgb (hsl-to-8-bit hsl)]
	   (when (nil? (@colours rgb))
	     (swap! colours #(assoc % rgb (count %))))
	   (@colours rgb)))]))

Comment on this post