Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1617 1538 (N37W35 L=133)   553     87        2 (1581/1518-1649/1558)  29.7 W31-W38 N34-N38
      2  344 1341 (N05E50 L= 47)   325    113        1 ( 299/1326- 386/1358)  23.2 E54-E46 N03-N06
      3 1309 1164 (N06W15 L=112)   349    139        2 (1230/1127-1365/1194)  40.6 W10-W18 N02-N08
      4  218 1085 (S11E57 L= 40)   779    218        4 ( 169/1017- 261/1168)  56.3 E62-E53 S15-S06
      5  146 1104 (S10E67 L= 31)   545    126        2 ( 119/1075- 172/1155)  90.0 E70-E63 S12-S07
      6 1634 1020 (N04W38 L=136)   719    151        3 (1606/ 940-1670/1096)  83.7 W36-W40 S01-N08
      7  299  974 (S18E48 L= 49)  1381    465        4 ( 179/ 906- 406/1085)  31.0 E60-E40 S22-S10
      8 1278 1023 (S02W15 L=112)   382    181        1 (1235/ 940-1344/1085)  71.6 W12-W18 S07-N02
      9 1827 1024 (N08W55 L=152)   555    102        2 (1797/ 994-1861/1050)  39.8 W51-W58 N05-N10
     10 1060  939 (S11W03 L=101)   444    171        1 ( 993/ 893-1153/ 971)  41.2 W00-W08 S14-S07
     11  524  875 (S21E30 L= 67)   401    144        1 ( 467/ 838- 578/ 931)  36.9 E34-E26 S24-S17
     12  171  859 (S25E61 L= 36)   580    213        5 ( 128/ 833- 206/ 899)  12.5 E66-E57 S26-S22
     13  422  592 (S41E40 L= 58)   280     92        1 ( 384/ 578- 464/ 607)   0.0 E43-E35 S41-S39
     14 1530  453 (S31W48 L=145)   939    183        1 (1458/ 413-1611/ 504)  45.0 W42-W52 S34-S26
     15 1213  313 (S48W32 L=129)   314     58        1 (1189/ 293-1232/ 347) -68.2 W30-W33 S49-S44
  

    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