Re: About flowcharts

[Mark Summerfield]

Hi Dominique,

On Fri, 25 Mar 2011 15:58:15 +0100 (CET)
address@hidden wrote:
> Hello,
> 
> I would like to know if someone has already built flowcharts with
> Lout? I mean by flowcharts, something like in this paper:
> http://se.uwaterloo.ca/~dberry/FTP_SITE/reprints.journals.conferences/flo.conference.paper.pdf
> Thanks.
> 
> Dominique Cretel

Below are some basic ones I created ages ago. I haven't used them in a
while and they're probably not perfect but they might prove helpful to
get you started:

# Just cut from here to END and save to, say flowchart.lout, and then in
# the file you want to use them do:
#   @SysInclude{diag}
#   @Include{flowchart.lout}
#
# Here is the list of shapes:
#  Decision: Use @Diamond
# @FileBox
# @FolderBox
# @ManualInput 
# @ManualOp 
# @OPConnector 
# @PredefProcess 
# @Preparation 
#  Process: Use @Box
# @Printout 
# @SlantBox 
# @StoredData 

extend @DiagSetup @Diag
macro @FileBox {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 0
            0 ysize
            xsize - 0.5f ysize
            xsize ysize - 0.5f
            xsize 0
            0 0
            []
            xsize - 0.5f ysize
            xsize - 0.5f ysize - 0.5f
            xsize ysize - 0.5f
        }
}

extend @DiagSetup @Diag
macro @FolderBox {
    @Node 
        outline {
            N:: { xsize / 2 ysize - 0.4f }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 0
            0 ysize - 0.4f
            0.4f ysize 
            xsize * 0.33 ysize
            xsize * 0.33 + 0.4f ysize - 0.4f
            xsize ysize - 0.4f
            xsize 0
            0 0
        }
}

extend @DiagSetup @Diag
macro @SlantBox {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0.3f ysize / 2 }
            E:: { xsize - 0.3f ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 0 
            0.6f ysize 
            xsize ysize 
            xsize - 0.6f 0 
            0 0 
        }
}

extend @DiagSetup @Diag
macro @OPConnector {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 ysize
            xsize ysize
            xsize 0.4f
            xsize / 2 0
            0 0.4f
            0 ysize
        }
}

extend @DiagSetup @Diag
macro @StoredData {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize - 0.4f ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0.4f 0
            [ 1.0f ysize / 2 clockwise ]
            0.4f ysize
            xsize ysize
            [ xsize + 1.0f ysize / 2 ]
            xsize 0
            0.4f 0
        }
}

extend @DiagSetup @Diag
macro @DirectData {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0.4f 0
            [ 1.0f ysize / 2 clockwise ]
            0.4f ysize
            xsize - 0.4f ysize
            [ xsize + 1.0f ysize / 2 ]
            xsize - 0.4f 0
            0.4f 0
            []
            xsize - 0.4f 0
            [ xsize - 1.0f ysize / 2 ]
            xsize - 0.4f ysize 
        }
}

extend @DiagSetup @Diag
macro @Printout {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0.2f }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 ysize
            0 0.2f
            [ xsize / 4 1.0f ]
            xsize / 2 0.2f
            [ xsize * 0.75 1.4f ]
            xsize 0.4f
            xsize ysize
            0 ysize
        }
}

extend @DiagSetup @Diag
macro @Preparation {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 ysize / 2
            0.4f ysize
            xsize - 0.4f ysize
            xsize ysize / 2
            xsize - 0.4f 0
            0.4f 0
            0 ysize / 2
        }
}

extend @DiagSetup @Diag
macro @ManualOp {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0.2f ysize / 2 }
            E:: { xsize - 0.2f ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 ysize
            xsize ysize
            xsize - 0.4f 0
            0.4f 0
            0 ysize
        }
}

extend @DiagSetup @Diag
macro @ManualInput {
    @Node 
        outline {
            N:: { xsize / 2 ysize - 0.2f }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 0
            0 ysize - 0.4f
            xsize ysize
            xsize 0
            0 0
        }
}

extend @DiagSetup @Diag
macro @PredefProcess {
    @Node 
        outline {
            N:: { xsize / 2 ysize }
            S:: { xsize / 2 0 }
            W:: { 0 ysize / 2 }
            E:: { xsize ysize / 2 }
            CTR:: { xsize / 2 ysize / 2 }
            0 0
            0 ysize
            xsize ysize
            xsize 0
            0 0
            []
            0.4f 0
            0.4f ysize
            []
            xsize - 0.4f 0
            xsize - 0.4f ysize
        }
}
### END


-- 
Mark Summerfield, Qtrac Ltd, www.qtrac.eu
    C++, Python, Qt, PyQt - training and consultancy
        "Programming in Go" - ISBN 0321774639
            http://www.qtrac.eu/gobook.html