Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  741 1177 (N22E12 L= 88)  1478    552        5 ( 507/1018- 896/1312) -52.4 E26-E05 N09-N35
      2 1925 1180 (S14W71 L=171)  3012    169        4 (1893/1097-1957/1259)  78.7 W66-W78 S19-S08
      3 1106 1234 (N15W10 L=110)   234     51        1 (1077/1218-1139/1252) -14.0 W08-W12 N14-N16
      4 1751 1038 (S14W45 L=145)   720    197        0 (1718/ 951-1768/1135)  48.4 W40-W48 S18-S09
      5  245  992 (N23E54 L= 46)   370     51        0 ( 212/ 967- 270/1011) -18.4 E57-E51 N21-N24
      6 1852  951 (S23W54 L=154)  1128    186        3 (1794/ 870-1908/1009)  14.9 W46-W62 S25-S21
      7 1162  892 (S05W04 L=104)   245     73        1 (1140/ 854-1182/ 929)  76.0 W02-W04 S06-S02
      8 1318  738 (S18W09 L=109)   814    308        1 (1263/ 595-1377/ 865)  45.0 W01-W15 S24-S11
      9 1028  704 (S11E08 L= 91)   243    112        1 (1003/ 644-1046/ 749)  45.0 E11-E06 S14-S08
     10  580  500 (S12E42 L= 58)   632    195        0 ( 563/ 420- 600/ 594)  48.0 E47-E38 S17-S06
     11  282  540 (S04E67 L= 33)  1229    111        4 ( 247/ 511- 323/ 588) -59.0 E74-E62 S06-N00
     12 1334  535 (S31W04 L=104)   236     82        0 (1289/ 522-1381/ 549) -33.7 W01-W07 S32-S28
     13  456  373 (S18E61 L= 39)  1006    128        2 ( 415/ 320- 498/ 422)  76.0 E63-E58 S21-S13
  

    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