Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1128 1587 (N34W21 L= 75)  1571    377        1 ( 983/1524-1282/1629) -32.9 W10-W28 N25-N38
      2 1615 1545 (N20W54 L=108)  1418    205        3 (1515/1499-1692/1611)   2.6 W44-W67 N17-N22
      3  358 1562 (N51E49 L=  5)   487     31        1 ( 338/1541- 377/1585) -56.3 E53-E45 N48-N52
      4  490 1429 (N38E30 L= 24)  1364    223        4 ( 410/1350- 559/1492) -45.0 E38-E23 N30-N43
      5  508 1203 (N23E29 L= 25)   281     70        1 ( 480/1183- 548/1218)   0.0 E31-E26 N21-N23
      6  157 1022 (N18E65 L=349)  7785      0       22 (  92/ 858- 234/1192) -79.2 E78-E54 N07-N28
      7  571 1100 (N15E26 L= 28)   641    124        1 ( 529/1049- 625/1150) -60.3 E28-E23 N11-N18
      8  213 1080 (N21E57 L=357)   553     68        3 ( 189/1041- 237/1111) -63.4 E59-E54 N18-N22
      9 1494 1004 (S08W28 L= 81)   352    130        1 (1482/ 931-1516/1064)  60.3 W25-W29 S12-S05
     10 1209  768 (S16W06 L= 60)   442    152        0 (1143/ 717-1266/ 827) -56.3 W02-W08 S20-S11
     11 1778  657 (S37W51 L=105)   868    119        0 (1740/ 609-1810/ 692) -80.5 W45-W55 S40-S34
     12  798  469 (S26E27 L= 27)   371    104        1 ( 785/ 419- 814/ 522)  66.8 E30-E24 S29-S22
     13  427  347 (S27E67 L=347)  2478    137        4 ( 384/ 278- 462/ 406)  33.7 E81-E59 S32-S22
  

    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