Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  511 1703 (N21E58 L=250)   493    147        0 ( 490/1672- 533/1737) -29.7 E61-E53 N18-N22
      2  508 1579 (N13E50 L=258)   577    129        1 ( 437/1557- 551/1607)  40.6 E55-E46 N09-N15
      3  350 1473 (N03E58 L=249)   582    103        2 ( 322/1431- 389/1507)  59.0 E60-E55 N00-N05
      4  115 1197 (S17E74 L=234)  1245    111        1 ( 102/1164- 128/1232) -33.7 E77-E70 S18-S14
      5  485 1179 (S11E36 L=271)   437    106        0 ( 451/1134- 534/1227)  66.8 E37-E34 S14-S07
      6  408 1008 (S23E38 L=269)   526    238        0 ( 331/ 962- 494/1053)  36.0 E43-E32 S26-S18
      7  911  928 (S14E04 L=304)   206    119        1 ( 901/ 865- 922/ 986) -74.1 E05-E02 S17-S10
      8 1851  876 (N12W60 L=  7)  1832    327        7 (1808/ 808-1894/ 964)  84.8 W54-W66 N06-N17
      9  853  861 (S19E05 L=302)   349    153        0 ( 768/ 826- 917/ 887)   5.7 E10-W00 S21-S18
     10  859  785 (S24E03 L=305)   288    111        0 ( 802/ 758- 918/ 825)  -7.1 E07-W01 S24-S22
     11  391  663 (S45E36 L=272)  1381    418        3 ( 288/ 600- 510/ 775)  39.0 E47-E25 S50-S33
     12 1692  536 (S11W61 L=  8)  1153    168        3 (1652/ 490-1740/ 579)  45.0 W57-W66 S14-S08
     13 1778  517 (S09W74 L= 21)   928    180        4 (1751/ 477-1801/ 554) -45.0 W69-W78 S11-S06
     14 1492  284 (S31W61 L=  9)  1375    311        2 (1432/ 250-1547/ 323)  12.1 W54-W68 S32-S29
  

    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