Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1396 1741 (N53W42 L=216)   488     71        1 (1370/1715-1426/1761)  15.3 W36-W47 N50-N55
      2  978 1729 (N53E05 L=170)   316     49        0 ( 957/1707-1000/1750)  53.1 E06-E02 N50-N54
      3  859 1731 (N53E17 L=157)   332     48        0 ( 830/1716- 889/1744)  11.3 E20-E14 N51-N54
      4  682 1557 (N38E28 L=146)   673    157        3 ( 614/1509- 748/1585) -21.0 E34-E21 N34-N40
      5 1735 1548 (N36W70 L=245)   938     59        0 (1709/1527-1775/1563)   0.0 W63-W81 N34-N36
      6  861 1491 (N34E12 L=162)   473    141        1 ( 810/1466- 931/1516)  20.6 E16-E07 N31-N35
      7 1064 1461 (N32W03 L=177)   267     50        0 (1033/1444-1097/1476) -21.8 W00-W05 N30-N32
      8  380 1140 (N10E45 L=130)   382     52        1 ( 357/1113- 400/1166) -26.6 E46-E42 N08-N11
      9 1242  673 (S19W14 L=189)   357    119        0 (1184/ 656-1304/ 694)  14.0 W10-W18 S19-S17
     10  666  483 (S32E27 L=147)  3026    490        5 ( 512/ 341- 840/ 659)  35.1 E49-E12 S45-S19
     11  381  523 (S31E53 L=121)  1305    229        1 ( 348/ 418- 434/ 618)  30.7 E70-E43 S39-S23
     12 1585  556 (S27W43 L=217)   318     53        0 (1562/ 532-1607/ 575)  45.0 W41-W44 S29-S26
     13 1405  415 (S38W31 L=206)   400     66        1 (1374/ 392-1430/ 445)  63.4 W28-W33 S39-S35
     14 1433  322 (S46W39 L=214)   534     79        1 (1398/ 296-1448/ 361)  90.0 W36-W43 S48-S42
     15 1487  299 (S49W49 L=224)   543     35        1 (1461/ 281-1512/ 323)   0.0 W44-W54 S50-S46
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y