Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  488 1657 (N21E53 L= 27)  1156     89        2 ( 452/1611- 528/1700) -45.0 E58-E49 N17-N23
      2  373 1633 (N18E64 L= 16)   987    123        2 ( 342/1585- 419/1678) -60.3 E68-E57 N14-N21
      3  621 1594 (N18E39 L= 41)   358     92        0 ( 591/1559- 667/1632)  71.6 E40-E37 N15-N21
      4  243 1390 (N01E63 L= 17)  1027    165        2 ( 170/1357- 321/1412)  10.0 E72-E55 S01-N02
      5 1686 1382 (N30W36 L=116)   859    280        1 (1574/1351-1812/1405)  22.6 W27-W51 N24-N36
      6  245 1126 (S15E55 L= 25)  1791    284        6 ( 200/ 984- 293/1247)  82.9 E59-E50 S23-S07
      7 1046 1163 (N01E02 L= 78)   223     88        0 (1005/1132-1083/1197) -26.6 E04-W00 N00-N02
      8  479 1159 (S10E36 L= 44)   237     74        0 ( 455/1132- 503/1187)  63.4 E37-E34 S11-S07
      9 1485 1083 (N06W25 L=105)   212     67        1 (1452/1069-1526/1102)   0.0 W23-W28 N05-N07
     10  240  936 (S26E54 L= 26)   920    221        2 ( 182/ 851- 315/1023)  36.9 E62-E46 S31-S19
     11 1204  809 (S15W15 L= 95)  1211    606        1 ( 989/ 737-1454/ 899)  31.0 W02-W28 S22-S04
     12 1575  672 (S13W43 L=123)   315     91        1 (1516/ 655-1604/ 693)  31.0 W39-W44 S15-S11
     13  264  618 (S46E58 L= 22)   564     55        0 ( 234/ 597- 297/ 638)  13.0 E65-E52 S47-S44
     14 1572  554 (S20W48 L=128)   328     63        0 (1543/ 535-1609/ 575)  45.0 W45-W50 S21-S17
     15 1474  450 (S28W47 L=127)   441     79        0 (1429/ 434-1520/ 467)  14.0 W43-W51 S29-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