Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1001 1885 (N70E15 L=128)   734     68        1 ( 972/1863-1043/1904)   9.5 E21-E07 N66-N73
      2  823 1589 (N39E19 L=123)   378    128        0 ( 781/1548- 859/1642) -33.7 E24-E15 N35-N42
      3 1706 1520 (N37W61 L=203)  1557    173        1 (1643/1481-1777/1550)   2.7 W50-W72 N34-N39
      4 1483 1481 (N34W34 L=176)   544    130        1 (1441/1441-1524/1514) -26.6 W29-W36 N31-N36
      5  540 1420 (N25E37 L=105)   419    129        0 ( 491/1399- 607/1442)   6.3 E40-E31 N23-N26
      6 1594 1377 (N27W41 L=183)   312     31        1 (1573/1357-1615/1400) -71.6 W39-W43 N25-N28
      7 1360 1363 (N25W22 L=164)   267     60        1 (1328/1343-1392/1387)   0.0 W19-W24 N24-N26
      8 1842 1186 (N15W64 L=206)   530     69        0 (1824/1143-1859/1219) -78.7 W61-W65 N11-N16
      9 1290 1012 (N03W17 L=159)   215     53        1 (1266/ 989-1314/1032)  56.3 W15-W18 N01-N04
     10 1753  854 (S06W53 L=195)   537     37        0 (1729/ 831-1776/ 879)  36.9 W50-W55 S07-S04
     11  475  709 (S20E37 L=105)   855    204        0 ( 402/ 677- 588/ 745)  -7.6 E43-E28 S21-S17
     12  221  695 (S23E66 L= 76)  1820    137        1 ( 180/ 636- 265/ 741)  17.8 E87-E57 S28-S19
     13  824  477 (S34E12 L=130)   535     93        1 ( 786/ 448- 870/ 510) -26.6 E15-E08 S36-S31
     14 1073  491 (S32W06 L=148)   262     92        1 (1033/ 473-1121/ 510) -18.4 W03-W09 S33-S30
  

    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