Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  728 1796 (N32E48 L=265)   877    140        2 ( 687/1733- 771/1845) -65.6 E52-E45 N26-N37
      2 1131 1687 (N36E14 L=299)   392     72        0 (1110/1652-1157/1723)  90.0 E15-E12 N33-N39
      3  993 1653 (N29E21 L=292)   532    146        1 ( 918/1623-1052/1673)   6.3 E25-E16 N26-N30
      4 1318 1285 (N15W10 L=323)   381    171        1 (1297/1209-1341/1366) -66.0 W07-W12 N11-N20
      5 1437 1346 (N23W16 L=329)   218     65        0 (1406/1324-1467/1364)   0.0 W13-W17 N21-N23
      6 1846 1067 (N20W54 L=  7)   667     88        3 (1797/1035-1874/1095)  11.3 W48-W58 N18-N22
      7 1775  999 (N14W48 L=  1)   769    118        1 (1752/ 940-1794/1059) -74.1 W46-W50 N10-N17
      8  859 1016 (S12E09 L=304)   300    134        0 ( 808/ 987- 917/1050)   0.0 E12-E05 S12-S10
      9 1881  914 (N13W63 L= 16)  1269    221        1 (1850/ 819-1907/1021) -29.7 W56-W70 N09-N18
     10 1035  783 (S20W07 L=320)   264     95        1 ( 991/ 770-1085/ 796)  18.4 W04-W10 S21-S18
     11 1035  599 (S31W14 L=327)  1901    578        4 ( 817/ 539-1300/ 693)  37.6 W00-W26 S39-S18
     12  710  397 (S55E02 L=312)   425     91        4 ( 670/ 370- 760/ 421)  40.6 E05-W02 S57-S51
     13 1544  309 (S29W70 L= 23)  2122    157        3 (1475/ 272-1609/ 345)  35.0 W61-W77 S32-S25
     14 1303  191 (S45W66 L= 19)   645     63        1 (1281/ 166-1327/ 231) -13.0 W58-W71 S46-S42
  

    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