Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  878 1743 (N49W01 L=338)   302     66        0 ( 846/1724- 916/1758)   0.0 E02-W04 N47-N51
      2  559 1290 (N22E27 L=309)  1765    366        4 ( 447/1182- 653/1367) -29.4 E37-E21 N14-N28
      3  126 1201 (N22E72 L=264)  1036    192        2 (  92/1167- 167/1231)   7.6 E85-E64 N19-N25
      4  759 1119 (N09E15 L=322)   241     67        0 ( 738/1095- 795/1150) -45.0 E16-E13 N07-N11
      5 1237 1062 (S01W13 L=349)   330    128        0 (1165/1028-1307/1086)   6.3 W09-W17 S04-N02
      6 1370 1000 (S06W20 L=357)   289    123        1 (1324/ 978-1439/1021) -29.7 W18-W25 S08-S04
      7 1315  952 (S08W16 L=353)   321    114        1 (1258/ 936-1375/ 975) -23.2 W13-W20 S10-S06
      8 1853  929 (S16W59 L= 36)   758    158        3 (1821/ 877-1885/ 971)  35.5 W56-W65 S20-S13
      9 1179  847 (S13W07 L=343)   512    141        1 (1128/ 772-1226/ 926)  48.8 W05-W09 S18-S07
     10 1034  810 (S13E02 L=334)   739    195        0 (1016/ 720-1053/ 916)  71.6 E02-E02 S19-S06
     11 1875  830 (S23W64 L= 41)   461     98        1 (1857/ 805-1902/ 860) -29.7 W61-W70 S25-S21
     12  171  707 (S08E72 L=265)  2758    278        5 ( 139/ 637- 214/ 779)  63.4 E73-E69 S12-S03
     13 1602  669 (S29W37 L= 14)  1611    272        4 (1531/ 588-1646/ 778)  90.0 W30-W44 S36-S21
     14  537  575 (S21E40 L=296)  1265    263        2 ( 484/ 488- 571/ 692)  38.7 E40-E42 S27-S13
     15 1364  540 (S35W18 L=354)   431     93        1 (1338/ 490-1381/ 590)  90.0 W16-W20 S39-S31
  

    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