Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1654 (N31E19 L=339)  1181    370        1 ( 996/1467-1081/1779) -57.5 E26-E11 N18-N40
      2  580 1701 (N21E52 L=305)   674     93        2 ( 552/1669- 610/1744) -74.1 E54-E48 N18-N25
      3  908 1623 (N25E25 L=332)   628     98        4 ( 854/1602- 960/1645)  38.7 E28-E22 N21-N27
      4 1545 1584 (N44W19 L= 16)   921    159        3 (1488/1516-1612/1637) -13.0 W12-W25 N40-N47
      5  948 1547 (N21E20 L=338)   365    120        1 ( 929/1480- 976/1592) -69.4 E22-E17 N16-N24
      6 1366 1500 (N31W07 L=  4)   504    142        0 (1332/1434-1385/1556) -54.5 W03-W08 N26-N33
      7 1735 1393 (N38W39 L= 36)   359     59        2 (1711/1369-1764/1418)   0.0 W36-W42 N36-N39
      8 1639 1268 (N25W31 L= 28)   908    244        2 (1579/1178-1708/1370) -26.6 W24-W38 N21-N30
      9 1812 1071 (N20W50 L= 48)   577    148        0 (1763/1008-1839/1132) -21.8 W44-W54 N17-N22
     10  145 1008 (S28E69 L=289)   523     98        1 ( 131/ 958- 169/1054)  54.5 E71-E64 S31-S24
     11  447  946 (S26E34 L=323)   502    181        1 ( 363/ 905- 521/ 986)  36.9 E41-E29 S30-S21
     12  730  818 (S26E12 L=346)   195     99        1 ( 700/ 793- 782/ 831)  11.3 E13-E08 S28-S24
     13 1002  759 (S22W06 L=  4)   354    164        0 ( 912/ 725-1061/ 773)  40.6 W02-W09 S26-S19
     14  325  736 (S42E45 L=312)   523    132        0 ( 261/ 709- 389/ 754)  19.4 E54-E37 S45-S39
  

    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