Stats

Locked Locked
Replies 9
Subscribers 126
Views 15412
Members are here 0

This discussion has been locked.

You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Skill

SarathKumarG over 14 years ago

Hi guys,

I want to create streachable metal bus using skill code.Plz let me the the idea about how to create it.

Parents

Andrew Beckett over 14 years ago

I explained how you could write something using enterPath() - if you search using the community search in this forum for "enterPath" you will find some examples of using this. I also explained how there's a built-in feature in IC61X. I could also have mentioned that in IC5141 you could use the "turbo toolbox" to provide this functionality - this is shipped as standard.

So I'm not really sure what more suggestions I can give (other than writing the code for you, which I don't have time).

I will even paste some code in here which shows enterPath being used for another purpose:

/* abGuardRing.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Sep 13, 2002 
Modified   
By         

This code defines two functions and a key-binding that allows the
automatic creation of an arbitrary guard-ring structure.

Could do with a few more comments...

***************************************************

SCCS Info: @(#) abGuardRing.il 09/13/02.14:03:39 1.1

*/

hiSetBindKey("Layout" "<Key>F10" "abCreateGuardring()")

procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
        abCreateGuardringOptionsForm()
        )
    enterPath(?prompts list("Enter points for guard ring")
        ?doneProc "abCreateGuardringDoneProc"
        ?points nil
        ?addPointProc "abCreateGuardringPointTracker"
        ?delPointProc "abCreateGuardringPointTracker"
        ?form abCreateGuardringForm
        ?alwaysMap t
        ?pathWidth abCreateGuardringForm->diffWidth->value
        )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
        diffWidth=hiCreateFloatField(
            ?name 'diffWidth
            ?value 10.0
            ?callback "abChangeGuardringWidth()"
            ?prompt "Diffusion Width"
        )
        hiCreateAppForm(
            ?name 'abCreateGuardringForm
            ?formType 'options
            ?buttonLayout 'HideCancelDef
            ?fields list(
                list(diffWidth 0:0 400:30 100)
                )
        )
    )
)


procedure(abChangeGuardringWidth()
    ; need this to stop recursion (not sure why)
    unless(abCreateGuardringForm->currentWidth==
        abCreateGuardringForm->diffWidth->value
        abCreateGuardringForm->currentWidth=
            abCreateGuardringForm->diffWidth->value
        changeEnterFun(
            'enterPath
            ?pathWidth abCreateGuardringForm->diffWidth->value
            ?doneProc "abCreateGuardringDoneProc"
            ?points abCreateGuardringForm->points
            ?addPointProc "abCreateGuardringPointTracker"
            ?delPointProc "abCreateGuardringPointTracker"
            ?prompts list("Enter points for guard ring")
            ?form abCreateGuardringForm
        )
    )
)

procedure(abCreateGuardringPointTracker(win points)
    abCreateGuardringForm->points=points
)

procedure( abCreateGuardringDoneProc( win done points )
    let((
        (MPSDwid abCreateGuardringForm->diffWidth->value)
        (MPSDoverM1MT 0.7)
        (MPSDoverM1MC 1.30)
        (MPSDoverM1MCfuse 1.25)
        (MPSDoverMMOX 0.0)
        (MPSDoverMLOC 0.5)
        (MPSDoverSCE 0.9)
        (M1MCfuseWid 0.5)
        (M1MCspacing 0.5)
        (M1MCwidth 0.4)
        (cv geGetEditCellView())
        rowsOfConts availWid startOffset subRects
        )
        ; reset points for next invocation
        abCreateGuardringForm->points=nil
        abCreateGuardringForm->currentWidth=nil
        ;abChangeGuardringWidth()
        ; now compute...
        availWid=MPSDwid-2*MPSDoverM1MC+M1MCspacing
        rowsOfConts=fix(availWid/(M1MCfuseWid+M1MCspacing)+0.001)
        startOffset=(rowsOfConts*M1MCfuseWid+(rowsOfConts-1)*M1MCspacing)/2.0-
            M1MCfuseWid/2.0
        for(contRow 0 rowsOfConts-1
            subRects=cons(
                list(
                    ?layer       '("M1MC" "bip2")
                    ?beginOffset -MPSDoverM1MC
                    ?space M1MCspacing+M1MCfuseWid-M1MCwidth
                    ?choppable t
                    ?sep -startOffset+contRow*(M1MCfuseWid+M1MCspacing)
                    ?gap 'minimum
                )
                subRects
            )
            subRects=cons(
                list(
                    ?layer       '("M1MC" "fuse")
                    ?beginOffset -MPSDoverM1MCfuse
                    ?width M1MCfuseWid
                    ?choppable t
                    ?sep -startOffset+contRow*(M1MCfuseWid+M1MCspacing)
                    ?gap 'minimum
                )
                subRects
            )
        ) ; for
        when(done
            grfig = rodCreatePath(
                ?cvId       cv
                ?layer      '("MPSD" "bip")
                ?width      MPSDwid
                ?pts        points
                ?choppable  nil
                ?encSubPath list(
                    list(
                        ?layer     '("MMOX" "bip")
                        ?enclosure MPSDoverMMOX
                        ?choppable nil
                    )
                    list(
                        ?layer     '("MMOX" "CHK")
                        ?enclosure MPSDoverMMOX
                        ?choppable nil
                    )
                    list(
                        ?layer     '("MLOC" "bip")
                        ?enclosure MPSDoverMLOC
                        ?choppable nil
                    )
                    list(
                        ?layer     '("SCE" "bip")
                        ?enclosure MPSDoverSCE
                        ?choppable nil
                    )
                    list(
                        ?layer     '("M1MT" "bip")
                        ?enclosure MPSDoverM1MT
                        ?choppable t
                    )
                )
                ?subRect  subRects
            )
        )
    )
)

Reply

Andrew Beckett over 14 years ago

So I'm not really sure what more suggestions I can give (other than writing the code for you, which I don't have time).

I will even paste some code in here which shows enterPath being used for another purpose:

/* abGuardRing.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Sep 13, 2002 
Modified   
By         

This code defines two functions and a key-binding that allows the
automatic creation of an arbitrary guard-ring structure.

Could do with a few more comments...

***************************************************

SCCS Info: @(#) abGuardRing.il 09/13/02.14:03:39 1.1

*/

hiSetBindKey("Layout" "<Key>F10" "abCreateGuardring()")

procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
        abCreateGuardringOptionsForm()
        )
    enterPath(?prompts list("Enter points for guard ring")
        ?doneProc "abCreateGuardringDoneProc"
        ?points nil
        ?addPointProc "abCreateGuardringPointTracker"
        ?delPointProc "abCreateGuardringPointTracker"
        ?form abCreateGuardringForm
        ?alwaysMap t
        ?pathWidth abCreateGuardringForm->diffWidth->value
        )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
        diffWidth=hiCreateFloatField(
            ?name 'diffWidth
            ?value 10.0
            ?callback "abChangeGuardringWidth()"
            ?prompt "Diffusion Width"
        )
        hiCreateAppForm(
            ?name 'abCreateGuardringForm
            ?formType 'options
            ?buttonLayout 'HideCancelDef
            ?fields list(
                list(diffWidth 0:0 400:30 100)
                )
        )
    )
)


procedure(abChangeGuardringWidth()
    ; need this to stop recursion (not sure why)
    unless(abCreateGuardringForm->currentWidth==
        abCreateGuardringForm->diffWidth->value
        abCreateGuardringForm->currentWidth=
            abCreateGuardringForm->diffWidth->value
        changeEnterFun(
            'enterPath
            ?pathWidth abCreateGuardringForm->diffWidth->value
            ?doneProc "abCreateGuardringDoneProc"
            ?points abCreateGuardringForm->points
            ?addPointProc "abCreateGuardringPointTracker"
            ?delPointProc "abCreateGuardringPointTracker"
            ?prompts list("Enter points for guard ring")
            ?form abCreateGuardringForm
        )
    )
)

procedure(abCreateGuardringPointTracker(win points)
    abCreateGuardringForm->points=points
)

procedure( abCreateGuardringDoneProc( win done points )
    let((
        (MPSDwid abCreateGuardringForm->diffWidth->value)
        (MPSDoverM1MT 0.7)
        (MPSDoverM1MC 1.30)
        (MPSDoverM1MCfuse 1.25)
        (MPSDoverMMOX 0.0)
        (MPSDoverMLOC 0.5)
        (MPSDoverSCE 0.9)
        (M1MCfuseWid 0.5)
        (M1MCspacing 0.5)
        (M1MCwidth 0.4)
        (cv geGetEditCellView())
        rowsOfConts availWid startOffset subRects
        )
        ; reset points for next invocation
        abCreateGuardringForm->points=nil
        abCreateGuardringForm->currentWidth=nil
        ;abChangeGuardringWidth()
        ; now compute...
        availWid=MPSDwid-2*MPSDoverM1MC+M1MCspacing
        rowsOfConts=fix(availWid/(M1MCfuseWid+M1MCspacing)+0.001)
        startOffset=(rowsOfConts*M1MCfuseWid+(rowsOfConts-1)*M1MCspacing)/2.0-
            M1MCfuseWid/2.0
        for(contRow 0 rowsOfConts-1
            subRects=cons(
                list(
                    ?layer       '("M1MC" "bip2")
                    ?beginOffset -MPSDoverM1MC
                    ?space M1MCspacing+M1MCfuseWid-M1MCwidth
                    ?choppable t
                    ?sep -startOffset+contRow*(M1MCfuseWid+M1MCspacing)
                    ?gap 'minimum
                )
                subRects
            )
            subRects=cons(
                list(
                    ?layer       '("M1MC" "fuse")
                    ?beginOffset -MPSDoverM1MCfuse
                    ?width M1MCfuseWid
                    ?choppable t
                    ?sep -startOffset+contRow*(M1MCfuseWid+M1MCspacing)
                    ?gap 'minimum
                )
                subRects
            )
        ) ; for
        when(done
            grfig = rodCreatePath(
                ?cvId       cv
                ?layer      '("MPSD" "bip")
                ?width      MPSDwid
                ?pts        points
                ?choppable  nil
                ?encSubPath list(
                    list(
                        ?layer     '("MMOX" "bip")
                        ?enclosure MPSDoverMMOX
                        ?choppable nil
                    )
                    list(
                        ?layer     '("MMOX" "CHK")
                        ?enclosure MPSDoverMMOX
                        ?choppable nil
                    )
                    list(
                        ?layer     '("MLOC" "bip")
                        ?enclosure MPSDoverMLOC
                        ?choppable nil
                    )
                    list(
                        ?layer     '("SCE" "bip")
                        ?enclosure MPSDoverSCE
                        ?choppable nil
                    )
                    list(
                        ?layer     '("M1MT" "bip")
                        ?enclosure MPSDoverM1MT
                        ?choppable t
                    )
                )
                ?subRect  subRects
            )
        )
    )
)

Children

No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.