Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  773 1751 (N60W10 L= 75)   349     71        1 ( 739/1727- 796/1777)  12.5 W05-W15 N58-N62
      2  616 1683 (N61E11 L= 54)   595     86        2 ( 575/1652- 656/1705) -10.3 E16-E05 N58-N63
      3  497 1643 (N62E28 L= 36)   522     55        2 ( 470/1618- 522/1668) -33.7 E33-E23 N58-N64
      4 1169 1549 (N32W26 L= 91)   540    288        0 (1040/1489-1284/1594) -54.5 W20-W30 N24-N38
      5  633 1438 (N41E14 L= 50)   453    143        0 ( 599/1376- 668/1494) -71.6 E16-E12 N36-N45
      6 1000 1372 (N26W09 L= 73)   420    175        0 ( 903/1354-1077/1386) -33.7 W03-W12 N23-N29
      7  734 1154 (N21E14 L= 51)  2235    499       12 ( 587/ 999- 886/1265) -53.6 E21-E05 N08-N29
      8 1891 1239 (S09W69 L=134)   592     64        1 (1857/1217-1921/1258)  -8.1 W63-W77 S09-S07
      9  496 1039 (N20E32 L= 33)   437    153        0 ( 437/1001- 567/1062) -36.9 E36-E27 N16-N22
     10 1742  890 (S22W42 L=107)   748    209        0 (1682/ 812-1801/ 983)  19.7 W35-W49 S25-S18
     11 1463  750 (S21W18 L= 83)   305    127        0 (1423/ 698-1495/ 801)  29.7 W14-W21 S23-S19
     12 1635  781 (S25W31 L= 96)   269     67        1 (1598/ 767-1670/ 797) -26.6 W28-W34 S26-S23
     13 1444  585 (S31W14 L= 78)   233     48        1 (1416/ 560-1471/ 608)  14.0 W11-W15 S32-S30
     14  952  507 (S21E19 L= 46)   594    107        1 ( 906/ 461- 999/ 549)  29.7 E23-E15 S23-S19
  

    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