CRIMP
Artifact [a4b1fb1189]
Not logged in

Artifact a4b1fb11896d749cc7858ea3e1b8a91611ef0aa4:


# -*- tcl -*- tcl.tk//DSL diagram//EN//1.0
## ====================================================================
## DSL for dependency diagram. Default parameters.

source [file join [file dirname [file normalize [info script]]] dsl_dependencies.inc]

## ====================================================================
## Dependencies, bottom-up, one procedure per package.

proc crimp_core {} { box crimp::core color red }

proc crimp {} {
    box crimp color red
    group { down ; ---> 3 ; crimp_core }
}

proc crimp_bmp {} {
    box crimp::bmp color red
    group { down ; --- 6 ; r ; --- 7.5 ; d ; ---> } ;# core
}

proc crimp_tk {} {
    box crimp::tk color red
    group { down ; --- 5.25 ; l ; --- 8 ; d ; ---> 1.75 } ;# core
}

proc crimp_ppm {} {
    box crimp::ppm color red
    group { down ; --- ; r ; --- 3 ; d ; ---> } ;#crimp
    group { down ; --- 5.5 ; r ; --- 3 ; d ; ---> 1.5 } ;# core
}

proc crimp_pgm {} {
    box crimp::pgm color red
    group { down ; ---> 3 ; crimp }
    group { down ; --- 0.5 ; l ; --- 1.5 ; d ; --- 3.5 ; r ; --- ; d ; ---> 2 } ;# core
}

proc crimp_pfm {} {
    box crimp::pfm color red
    group { down ; --- ; l ; --- 3 ; d ; ---> } ;#crimp
    group { down ; --- 5 ; l ; --- 3.5 ; d ; ---> 2 } ;# core
}

proc crimp_pcx {} {
    box crimp::pcx color red
    group { down ; --- 5.5 ; l ; --- 12.75 ; d ; ---> 1.5 } ;# core
}

proc crimp_sun {} {
    box crimp::sun color red
    group { down ; --- 5.75 ; l ; --- 17.5 ; d ; ---> 1.25 } ;# core
}

proc crimp_sgi {} {
    box crimp::sgi color red
    group { down ; --- 6 ; l ; --- 22.25 ; d ; ---> 1 } ;# core
}

## ====================================================================

proc layout {} {
    east
    crimp_bmp ; move
    crimp_ppm ; move
    crimp_pgm ; move
    crimp_pfm ; move
    crimp_tk  ; move
    crimp_pcx ; move
    crimp_sun ; move
    crimp_sgi
}

## ====================================================================

layout