Procedure: parallelo by Frank Cerman

Description of the procedure:
You can draw a filled paralelogram using this procedure. A small example is given, too.

Source:

procedure main
repeat 9,example
rt 180
repeat 9,example
end

procedure example
goto parallelo,length=100-5*loop,width=5,angle=90-loop*10
end

procedure parallelo
repeat width,line,length=length,angle=angle
end

procedure line
rt angle
go length
rt 180
go length
rt 180-angle
go 1
end