RectCoordinates ( pieceA ; pieceB ; materialA ; materialB )

[Ender]

Name & Parameters: [color:red][big] RectCoordinates ( pieceA ; pieceB ; materialA ; materialB ) [/big]

Description: Returns the coordinates of rectangles (with dimensions pieceA x pieceB,) that can be cut from an area of materials (with dimensions materialA x materialB.)

This is designed to be used by the xmChart plugin to generate a graphic representation of how to cut the most pieces from the material.

Sample Input:

RectCoordinates(12;12;15;25)

Results:

AddRect(0; 0; 25; 15; gray)

AddRect( 0;0;12;12;white)

AddFrame(0;0;12;12;1;black)

AddRect( 12;0;12;12;white)

AddFrame(12;0;12;12;1;black)

Recursive: no

Formula:

//RectCoordinates ( pieceA ; pieceB ; materialA; materialB )



/*

Returns the coordinates of rectangles (with dimensions pieceA x pieceB,) that can be cut from an area of materials (with dimensions materialA x materialB.)



This is designed to be used by the xmChart plugin to generate a graphic representation of how to cut the most pieces from the material. 

Coordinates start from the top, left.  

The string returned is in the form: 



OpenDrawing()¶

AddRect( 0;0;12;12;white)¶

AddFrame(0;0;12;12;1;black)¶

AddRect( 0;12;12;12;white)¶

AddFrame(0;12;12;12;1;black)¶

CloseDrawing()



CFs Required: RectCoordinatesSub(), RectCount(), and DrawRect().



7-29-2006

By Mike Hackett

*/



Let(

[

  pieceLongSide = Max(pieceA; pieceB);

  pieceShortSide = Min(pieceA; pieceB);

  materialLongSide = Max(materialA; materialB);

  materialShortSide = Min(materialA; materialB)

];



Case(materialA>0 and materialB >0 and pieceA > 0 and pieceB > 0; //Ensures values are all entered

  "AddRect(0; 0; " & materialLongSide & "; " & materialShortSide & "; gray)¶"&

  Case((materialA * materialB) / (pieceA * pieceB) < 125; //Ensures it won't time out on a recursive call limit

    RectCoordinatesSub( pieceLongSide; pieceShortSide; materialLongSide; materialShortSide; 0; 0 );

    "//Too many pieces to calculate."

    )

  )

) 

Required Functions: RectCoordinatesSub()

RectCount()

DrawRect()

Author(s) Ender

Date: 07/29/06

Credits: Based on the discussion in this thread: http://www.fmforums.com/forum/showtopic.php?tid/170643/

Disclaimer:

FM Forums does not endorse or warrantee these files are fit for any particular purpose. Do not post or distribute files without written approval from the copyright owner. All files are deemed public domain unless otherwise indictated. Please backup every file that you intend to modify.

RectanglePieces.fp7.zip

[Ender]

Here's an updated version of the demo file which adds compatibility with xmChart version 3.x.

One thing that this version of xmChart does differently is return the chart directly as a result of the external call. This means it can be used in an auto-enter calc to refresh the chart.

The custom functions in this demo are still the same.

RectanglePieces2.fp7.zip