Octagon Drawing Example

This program draws various shapes on the Show page and is a good way of getting started with the drawing commands in Octagon.

Program


---

Octagon Drawing Program

---


prog_vars =


d/step 0

d/color 0

d/opacity 1.0

d/arc_angle 0

d/arc_radius 0

prog_vars.


prog_start =

pclear


ptl f a ^ts=20^tf=verdana^ "JackBord Oactagon Drawing Program"


psq t e 100 ^fc=red ^

pcr t h 50 ^fc=cyan ^


prect o j f e ^fc=yellow ^lc=yellow^lw=5^


prog_start.


prog_loop =

-- main program loop


repeat 35 ->

pal /step /step /step /step ^lc=/color ^op=/opacity ^lw=50^


mapi 0 520 0 360 /step -> /arc_angle

mapi 0 520 0 100 /step -> /arc_radius

parc 400 200 /arc_radius 0 /arc_angle ^lc=/color ^fc=transparent^lw=16^


inc /step 15

dec /opacity 0.05

any /opacity <= 0 -> /opacity 1.0


inc /color

any /color >= 15 -> /color 1


ptl t c "step /step"

repeat.


exitprog


prog_loop.



prog_stop =

print "Bye"

prog_stop.