SWOG is a language to draw pictures programmatically

Getting started documentation SWOG reference manual

Latest version: 1.1pre37
Download the latest version
Change history

The original SWOG is written in Perl, but is is also possible to use the Java version!

You can always ask for help: jaanus_hansen is my MSN address start (before @hotmail.com)

Animation example
SWOG code:

Commands used to get the animation:
readObjects('ani.swog'); output_raw_gifanim('/tmp/')

Or for fast mode use:
buf_gifanim('/tmp/'); readObjects('ani.swog'); output_raw_gifanim();

HTML clickmap example You can click on clickable regions.	SVG (Scalable Vector Graphics) example To create SVG, You need Perl module XML::Writer To see SVG, You need a viewer, for example Adobe SVG Viewer

Server-side click processing example
Click on an object and SWOG tells what was hit.

You can type new SWOG code here:

new 500,400

font {Arial.ttf} -0.7 16 :viltu
font {Arial.ttf} 16 :kaekiri
font {Arial.ttf} 12 :arial

setFont arial

gradient red blue 100 :grad

frects 0,0 10 10 grad 0 25 50 75

mimetex \LARGE x=\frac{-b\pm\sqrt{b^2-4ac}}{2a} 20,2 :formula
line (formula.p4) (formula.p3) red

gnuplot 300,110 200 180 :gn <http://www.gnuplot.info>
  set title "gnuplot"
  plot cos(x)
endGnuplot

rect (gn.p1) (gn.p3)

origin 0,30

#defineerime läbipaistva värvi:
color red 100 :alfaga

defObject koll
scale %2,%2
rotate 30,25 %1
frect 0,0 60 50 green
frect 10,10 10 10 #ff0000 :silm1
frect 50,10 -10 10 red :silm2
frect 6,30 48 5 white :suu 
endObject

object  140,40 koll 0 2 /koll1/ :g1 <http://www.neti.ee>
object  70,40 koll 40 1 /koll2/ :g2 <http://www.zone.ee>
object  0,40 koll 80 0.5 /koll3/ :g3 <http://www.mega.ee>
object  30,240 koll 138 1 /koll4/ :g4 <http://www.moga.ee>

object  130,240 koll 138 1 /elajas/

ellipse 100,100 50 100 red :ellips
arc (ellips) 52 102  300 350  black

#teeme ühe väikese ristküliku punkti 0,0
#ja nimetame ta null-iks
frect 0,0 1 1 blue :null

#ütleme, koordinaatide alguspunkt on pildi keskel 
#ja x telje suund on paremale ja y teljel vasakule
#(sama oleks coordsys center center right up)
# või näiteks origin 200,150
#             scale 1,-1

coordsys :esialgu

#nüüd tõmbame joone esialgsest 0-punktist uude
line (null) 0,0

#ja nüüd koordinaadistik vaikimisi peale tagasi:
coordsys center north right down

line 10,10 100 0 red

#paneme uue keskpunkti:
origin 10,10

frect 0,0 10 10 blue :vaikesinine

string -180,90 pink {this is a text!}
string -180,90 brown viltu {this is a text!} /www.tekst.ee/ :jutt <http://www.tekst.ee>

#stringidel saab määrata, mis punkti suhtes neid joonistatakse: (vaikimisi north west)
line -180,130 0 0
string south -180,130 red kaekiri {tekst}
string north -180,130 red kaekiri {tekst}
string east north -180,130 red kaekiri {tekst}
string east south -180,130 red kaekiri {tekst}

#teeme pildi suuremaks, muidu ei paista hästi..
scale 5,5

frect 10,10 10 10 yellow :suur

frect 0,0 (suur) black /ülikool/ <http://www.ut.ee>

frect -5,15 10 10 blue

frect 4,5 10 13 alfaga /see asi paistab läbi!/ <tere>

#ja teeme ühe puu kah...
coordsys center west right down
rotate 0,0 10 :keere
tree 0,0 260 100 ({juurikas}({peeter};{http://www.ut.ee} <http://www.ut.ee>;arial {üliväike tekst} :g))

undo keere

#võtame esimese coordsys kutsumise tagasi:
undo esialgu :tagasi

frect 5,30 10 10 blue

frect 5,30 10 10 goldenrod

undo tagasi

#siin see $ rea lõpus on rea murdja...
axis auto ticks all below arial :telg

lineGraph telg 10 5 up 60,100 400 200  ($
123,209 /ATGCGTCTTTTCCGCTGAACCGTTCCAGCAAAAAAGACTACCAACGCAATATGGATTGTCAGAATCATATAAAAGAGAAGCAAATAA/ <?> $
94,159 /ATGGATTGTCAGAATCATATAAAAGAGAAGCAAATAACTCCTTGTCTTGTATCAATTGCATTATAA/ :CUP <?> $
345,422 /ATGTTCATGTATGTATCTGTATTTAAAACACTTTTGTATTATTTTTCCTCATATATGTGTATAGGTTTATACGGATGA/ <?> $
345,416 /ATGTATGTATCTGTATTTAAAACACTTTTGTATTATTTTTCCTCATATATGTGTATAGGTTTATACGGATGA/ <?> $
359,412 /ATGTATCTGTATTTAAAACACTTTTGTATTATTTTTCCTCATATATGTGTATAG/ <?> $
288,368 /ATGTGTATAGGTTTATACGGATGATTTAATTATTACTTCACCACCCTTTATTTCAGGCTGATATCTTAGCCTTGTTACTAG/ <?> $
) red  ($
86,136 /ATGCATTTAATAGAGCATAGGCAATGTAGAGAGAGAAATTAACAATGGTGA/ :SGV1 <?> $
124,204 /ATGTGGTCATCGCGTCGAACGGAAATACACCCATACACCAAACCTCTGTGAATTTGAAAAATTCACATATGCATTTAATAG/ <?> $
) blue  :jooned

#punkt 250 on teljel oluline, lisame...
pointAdd (jooned.axis.val_250) 0 5 :a
pointAdd (jooned.axis.val_250) 0 -5 :b
line (a) (b) red
string south center (b) {250}

string east south (jooned.SGV1) blue arial {SGV1}

string east north (jooned.CUP) red arial {CUP1-2}

origin 300,-200

image 0,0 {salmon.png} 0,0 42 42
rect 20,0 22 22 black :koht

image 50,20 100 100 {salmon.png} 20,0 22 22 :zoom <riin>

rect 50,20 100 100 black

line (koht.p1) (zoom.p1)
line (koht.p2) (zoom.p2)
line (koht.p4) (zoom.p4)

Default SWOG code