Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1468 1702 (N34W48 L=182)   342     56        1 (1448/1676-1482/1726)  36.9 W46-W50 N32-N35
      2 1081 1437 (N24W11 L=145)   951    277        3 ( 981/1362-1186/1509) -45.0 W05-W17 N19-N30
      3  566 1491 (N38E24 L=110)   327     59        1 ( 536/1469- 596/1507) -21.8 E26-E21 N36-N39
      4 1721 1435 (N12W56 L=190)   706     92        0 (1678/1393-1765/1473) -45.0 W53-W59 N09-N15
      5 1737 1312 (N05W53 L=187)   411    106        3 (1698/1276-1771/1339) -26.6 W50-W56 N02-N06
      6 1028 1226 (N13W04 L=137)   565    182        2 ( 945/1178-1121/1273) -45.0 W00-W08 N08-N16
      7 1238  936 (S08W11 L=144)   467    175        1 (1194/ 854-1276/1028)  56.3 W06-W13 S11-S02
      8  245  904 (N07E55 L= 79)  1788    424        3 ( 116/ 806- 345/ 969) -28.6 E69-E47 N00-N12
      9 1608  880 (S18W34 L=168)   343     91        0 (1580/ 838-1631/ 933)  51.3 W31-W36 S19-S14
     10 1489  730 (S25W24 L=158)   904    287        3 (1346/ 690-1589/ 793)   3.2 W14-W32 S26-S22
     11 1531  628 (S32W27 L=160)  1595    260        1 (1409/ 532-1644/ 720)  21.8 W16-W36 S36-S27
     12 1826  673 (S36W54 L=188)   494    118        1 (1800/ 656-1858/ 699) -15.9 W51-W58 S37-S33
     13  529  491 (S22E44 L= 90)   538    178        2 ( 496/ 449- 561/ 554)  32.0 E48-E40 S24-S17
  

    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