Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  396 1640 (N34E66 L=306)   725     69        2 ( 381/1605- 417/1681) -24.4 E73-E60 N31-N36
      2  656 1580 (N33E34 L=338)  1668    338        3 ( 553/1444- 753/1661) -26.6 E48-E22 N24-N38
      3  503 1621 (N34E51 L=322)   768     77        2 ( 463/1590- 540/1642)  14.0 E54-E46 N31-N35
      4  515 1453 (N23E41 L=331)   709    258        1 ( 431/1375- 564/1562)  81.3 E45-E38 N17-N30
      5  439 1474 (N23E48 L=324)   341     61        0 ( 429/1440- 452/1507) -63.4 E50-E46 N21-N25
      6 1071 1380 (N24E00 L= 12)   216     76        0 (1057/1342-1096/1410)  76.0 E01-W01 N21-N25
      7  924 1335 (N20E09 L=  3)   533    232        0 ( 814/1287-1018/1355)  -8.1 E16-E02 N17-N20
      8 1334 1216 (N16W18 L= 30)   288     88        1 (1288/1198-1376/1239)   0.0 W14-W20 N14-N17
      9  979 1057 (N03E03 L=  9)   185     33        0 ( 953/1044-1009/1072)  18.4 E04-E01 N02-N03
     10 1286 1012 (N03W16 L= 28)   560    169        1 (1225/ 967-1362/1037)  20.6 W12-W20 N00-N04
     11  166  915 (S14E66 L=306)  1881    164        5 ( 137/ 851- 192/ 983) -48.8 E72-E61 S17-S09
     12 1397  904 (S03W24 L= 36)   220     42        0 (1375/ 879-1426/ 928) -33.7 W22-W26 S03-S01
     13 1643  713 (S12W46 L= 58)  2229    437        3 (1512/ 600-1751/ 893)  57.0 W37-W53 S20-N00
     14  336  613 (S32E51 L=321)  1012    189        0 ( 296/ 533- 403/ 668)  30.1 E61-E42 S38-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