Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1295 1687 (N37W34 L=239)   275     44        0 (1276/1662-1319/1706)  21.8 W31-W36 N35-N38
      2  619 1601 (N44E21 L=184)   634    130        2 ( 561/1557- 678/1631)  16.7 E26-E15 N41-N45
      3 1687 1490 (N17W56 L=261)   358     76        0 (1646/1462-1719/1514) -45.0 W53-W58 N15-N19
      4  674 1408 (N29E17 L=188)  3490    886        8 ( 290/1324-1039/1509)  -9.4 E51-W09 N24-N34
      5 1558 1488 (N19W44 L=249)   264     30        1 (1533/1467-1584/1508) -26.6 W42-W46 N18-N20
      6 1544 1137 (S01W33 L=238)   233     66        0 (1528/1106-1561/1178) -90.0 W32-W34 S02-N01
      7 1806  898 (S19W53 L=258)  2530    437        5 (1691/ 725-1878/1082)  45.0 W42-W61 S28-S08
      8 1514  884 (S15W28 L=233)   269     61        0 (1480/ 862-1548/ 902)   0.0 W25-W30 S16-S14
      9  986  853 (S09E05 L=200)   525    165        0 ( 950/ 785-1053/ 890)  29.7 E07-W00 S12-S06
     10 1663  809 (S22W39 L=244)   367     83        1 (1645/ 775-1681/ 862)  80.5 W37-W40 S24-S18
     11  556  554 (S20E39 L=165)  1400    447        2 ( 414/ 444- 678/ 687)  23.2 E54-E26 S25-S13
     12  279  627 (S11E61 L=144)   548     34        0 ( 257/ 602- 306/ 650) -71.6 E63-E57 S13-S09
     13  352  479 (S22E62 L=142)   878    125        4 ( 316/ 427- 381/ 532)  76.0 E65-E58 S25-S17
     14  309  463 (S22E70 L=135)   720    113        3 ( 284/ 408- 339/ 505)  63.4 E73-E65 S25-S19
     15  876  472 (S31E20 L=185)   240     61        1 ( 855/ 439- 895/ 504)  45.0 E22-E18 S32-S28
  

    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