Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1344 1741 (N37W49 L=290)  2260    376        2 (1194/1712-1543/1766) -23.2 W35-W64 N29-N41
      2 1569 1569 (N20W53 L=294)  3764    670        1 (1439/1418-1699/1679) -78.7 W46-W66 N08-N28
      3  637 1364 (N33E16 L=225)  1050    456        1 ( 441/1323- 833/1390) -15.4 E32-E03 N27-N36
      4 1074 1167 (N11W06 L=247)   481    152        1 (1031/1095-1114/1233) -84.3 W05-W07 N05-N15
      5 1772 1114 (S10W51 L=292)   799    249        2 (1699/1016-1830/1199)  26.6 W42-W58 S14-S06
      6 1618 1022 (S11W36 L=277)   311     78        1 (1588/ 986-1643/1060) -68.2 W34-W37 S13-S08
      7 1861  907 (S25W57 L=299)   557    101        0 (1842/ 858-1884/ 953)  45.0 W54-W60 S27-S22
      8  708  702 (S07E26 L=215)   415    191        1 ( 655/ 613- 739/ 779) -90.0 E27-E25 S12-S01
      9 1724  708 (S33W41 L=282)   819    149        1 (1686/ 670-1770/ 777) -51.3 W37-W46 S37-S27
     10 1560  659 (S31W26 L=267)   756    227        0 (1486/ 595-1636/ 745)  17.1 W19-W32 S34-S27
     11  979  545 (S23E15 L=226)   849    176        2 ( 922/ 474-1004/ 636)  48.4 E19-E10 S26-S17
     12 1420  450 (S42W12 L=253)  1016    214        0 (1317/ 381-1483/ 514)  14.0 W01-W17 S44-S38
     13 1025  198 (S50E32 L=210)  1698    258        3 ( 902/ 156-1136/ 253)  -2.2 E46-E18 S52-S47
  

    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