Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1357 1639 (N31W43 L=250)   747    287        2 (1288/1622-1441/1654) -33.7 W37-W48 N27-N33
      2 1728 1546 (N13W67 L=274)  2006    389        5 (1694/1445-1773/1595)  11.9 W59-W78 N08-N15
      3 1565 1509 (N17W49 L=256)   729    160        4 (1504/1459-1621/1560) -66.0 W47-W52 N12-N21
      4 1267 1324 (N16W22 L=229)  2832    898       11 ( 836/1281-1599/1368) -33.4 E02-W42 N04-N30
      5 1622 1245 (N02W42 L=249)   248     65        0 (1600/1212-1640/1280) -90.0 W41-W43 N00-N03
      6  552 1153 (N26E26 L=181)   688    195        1 ( 521/1054- 581/1237) -90.0 E27-E23 N19-N31
      7 1824 1129 (S12W55 L=262)  1207    244        3 (1777/1024-1854/1195)  56.3 W52-W59 S17-S06
      8 1772 1122 (S10W50 L=257)   300     77        0 (1749/1104-1799/1139) -21.8 W47-W52 S11-S08
      9  169 1066 (N28E60 L=147)   428     82        1 ( 148/1043- 196/1086) -21.8 E62-E57 N26-N29
     10 1722 1027 (S13W43 L=250)   541    173        2 (1687/ 981-1749/1080)  38.7 W39-W46 S16-S11
     11  927 1012 (N09E06 L=201)   343    126        1 ( 898/ 948- 948/1075)  45.0 E08-E02 N05-N11
     12 1600 1038 (S09W34 L=241)   312     80        3 (1569/1017-1629/1054) -11.3 W31-W36 S10-S07
     13  204  920 (N19E59 L=147)   499     67        1 ( 188/ 881- 221/ 958) -90.0 E61-E57 N16-N21
     14  977  915 (N02E05 L=202)   529    119        0 ( 913/ 893-1041/ 944) -33.7 E08-E02 N00-N04
     15 1246  849 (S09W08 L=215)   251     40        1 (1229/ 824-1265/ 879)  33.7 W06-W09 S10-S07
     16 1847  833 (S30W51 L=258)   422     74        1 (1820/ 813-1868/ 849) -38.7 W48-W53 S32-S27
     17 1361  673 (S22W10 L=217)  1816    387        3 (1290/ 509-1407/ 828)  79.2 W04-W12 S32-S11
     18  271  650 (N02E63 L=144)   428    145        0 ( 253/ 614- 295/ 689)  26.6 E66-E58 N00-N04
     19  380  462 (S11E62 L=145)  3910    677       13 ( 285/ 341- 489/ 601) -75.3 E68-E54 S20-S01
     20  792  487 (S18E29 L=178)   353     73        2 ( 749/ 455- 825/ 514) -68.2 E31-E27 S20-S15
     21  553  433 (S16E48 L=159)   749    245        2 ( 528/ 345- 581/ 495)  36.9 E54-E42 S21-S11
     22  788  291 (S31E40 L=167)  1539    276        1 ( 694/ 240- 849/ 383)  14.7 E49-E30 S35-S26
  

    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