Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1376 1804 (N49W62 L=328)   846     94        0 (1336/1771-1414/1836)   5.2 W51-W73 N46-N49
      2 1494 1698 (N38W59 L=326)  1810    292        2 (1441/1565-1537/1794)  34.3 W49-W73 N29-N44
      3 1458 1612 (N34W47 L=314)   395     72        0 (1426/1577-1491/1645) -90.0 W46-W48 N30-N36
      4  607 1490 (N43E24 L=242)   284     67        0 ( 573/1477- 649/1501) -15.9 E27-E20 N41-N43
      5 1756 1373 (N12W61 L=328)   769    117        1 (1714/1331-1781/1417) -63.4 W58-W63 N09-N15
      6 1135 1230 (N17W10 L=277)  1000    387        1 ( 955/1170-1291/1279) -33.7 W00-W18 N10-N22
      7  154 1208 (N28E74 L=193)   816     70        0 ( 118/1192- 187/1225)   6.3 E85-E67 N26-N28
      8  606 1162 (N21E25 L=242)   280     95        1 ( 585/1113- 637/1196)  45.0 E26-E22 N18-N22
      9 1611  984 (S06W37 L=304)   534    105        0 (1585/ 937-1632/1036)  63.4 W34-W38 S09-S03
     10 1601  492 (S40W36 L=303)   378     42        2 (1579/ 467-1622/ 519) -78.7 W33-W38 S42-S37
     11 1481  369 (S48W26 L=293)   364     36        0 (1463/ 350-1504/ 391) -38.7 W23-W28 S49-S45
     12 1190  230 (S54E05 L=262)   406     33        0 (1171/ 209-1215/ 251) -80.5 E06-E02 S56-S50
     13  864  189 (S50E38 L=229)   470     43        0 ( 844/ 168- 882/ 209)  53.1 E41-E34 S52-S48
  

    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