Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1396 1505 (N34W29 L= 89)   522    109        1 (1366/1448-1422/1551) -82.9 W27-W30 N29-N37
      2 1634 1474 (N31W48 L=109)   887    142        1 (1591/1409-1685/1529) -63.4 W45-W51 N26-N34
      3  295 1479 (N32E60 L=  1)   949    218        2 ( 262/1445- 339/1517) -21.8 E64-E54 N29-N33
      4  537 1395 (N27E35 L= 26)   296     99        1 ( 497/1379- 578/1410)  -8.1 E38-E31 N26-N28
      5 1327 1267 (N18W20 L= 81)   315    126        0 (1280/1219-1379/1300)  29.7 W16-W23 N15-N20
      6 1842 1252 (N15W64 L=124)  1024    295        5 (1802/1215-1903/1287)   8.1 W58-W74 N12-N17
      7 1880 1184 (N10W68 L=129)   713    139        2 (1855/1138-1912/1234) -36.9 W65-W73 N07-N13
      8 1752 1150 (N09W52 L=112)   454    133        0 (1714/1111-1795/1195) -40.6 W49-W56 N06-N12
      9 1064  963 (S00W02 L= 63)   252     85        0 (1023/ 940-1113/ 984)  11.3 W00-W05 S01-N01
     10 1860  954 (S04W64 L=124)   491    105        1 (1833/ 936-1893/ 972)   0.0 W60-W68 S04-S02
     11 1818  819 (S12W59 L=120)   754    174        0 (1794/ 788-1859/ 869) -39.8 W56-W64 S13-S08
     12  453  782 (S12E39 L= 22)   872    245        1 ( 352/ 726- 543/ 855) -26.6 E46-E32 S14-S07
     13  373  647 (S21E48 L= 13)   369     72        1 ( 347/ 623- 401/ 663) -11.3 E50-E45 S22-S19
     14  289  571 (S27E59 L=  1)   744    193        1 ( 265/ 537- 315/ 600)  32.0 E63-E55 S29-S24
     15  986  578 (S25E03 L= 57)   244     59        0 ( 954/ 562-1019/ 593)  11.3 E05-W00 S25-S23
  

    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