Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  847 1590 (N21E28 L=280)   460    133        1 ( 803/1532- 876/1629) -26.6 E31-E23 N17-N22
      2 1648 1311 (N29W31 L=339)  1002    363        1 (1614/1159-1692/1448) -58.0 W26-W37 N20-N37
      3 1538 1332 (N26W22 L=330)   239     70        0 (1521/1299-1564/1364)  71.6 W20-W23 N23-N29
      4 1852 1254 (N34W54 L=  2)  1002    167        1 (1797/1176-1890/1317) -21.0 W46-W60 N30-N36
      5  172  998 (S28E65 L=243)  1659    178        2 (  85/ 976- 258/1024)   4.9 E88-E53 S30-S25
      6  809  844 (S23E07 L=301)   252     85        0 ( 791/ 804- 832/ 880) -45.0 E08-E04 S24-S20
      7 1678  864 (N04W44 L=352)   268     30        0 (1654/ 848-1702/ 878)  33.7 W42-W46 N03-N05
      8  641  836 (S28E18 L=290)   235     96        0 ( 613/ 793- 676/ 872)  71.6 E19-E16 S30-S24
      9 1106  663 (S24W16 L=324)   539    219        0 (1010/ 636-1215/ 691)  36.0 W10-W21 S27-S19
     10 1450  567 (S19W41 L=349)   413     81        1 (1419/ 539-1471/ 605)  90.0 W39-W43 S20-S15
     11 1302  490 (S27W36 L=344)   297    128        0 (1269/ 429-1343/ 517) -81.9 W34-W37 S31-S24
     12 1536  437 (S22W55 L=  3)  1394    223        0 (1432/ 404-1602/ 476)  38.7 W49-W61 S27-S18
     13  650  357 (S61E04 L=304)   342     69        0 ( 615/ 345- 687/ 370)  26.6 E08-W00 S62-S57
  

    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