Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  742 1544 (N35E25 L=134)   394     87        0 ( 699/1507- 770/1570) -23.2 E28-E21 N32-N36
      2 1580 1516 (N37W44 L=203)  1194    163        2 (1505/1477-1646/1544)  -4.1 W35-W50 N34-N38
      3 1364 1404 (N28W22 L=181)   773    245        2 (1291/1331-1432/1477) -45.0 W16-W26 N23-N33
      4  359 1449 (N25E56 L=103)   406     66        0 ( 331/1427- 389/1467)  31.0 E58-E53 N23-N26
      5 1798 1323 (N24W62 L=221)  2035    266        3 (1704/1250-1892/1390) -20.6 W52-W76 N19-N28
      6  322  939 (S07E49 L=110)   358    103        1 ( 290/ 901- 355/ 973)  39.8 E51-E45 S09-S04
      7 1750  858 (S05W53 L=212)   458     20        0 (1725/ 838-1772/ 880)  14.0 W50-W55 S06-S03
      8  276  738 (S20E56 L=103)   624     74        1 ( 241/ 717- 311/ 766) -15.9 E60-E51 S21-S18
      9 1642  687 (S16W46 L=205)   354     64        2 (1619/ 652-1660/ 722)  90.0 W44-W47 S18-S13
     10  332  621 (S28E53 L=106)  1554    255        1 ( 241/ 533- 395/ 694) -34.7 E64-E48 S33-S23
     11 1761  602 (S22W63 L=222)  1396    167        2 (1734/ 539-1786/ 679) -73.3 W58-W71 S26-S16
     12 1107  639 (S21W07 L=167)   211     56        0 (1078/ 626-1142/ 653) -14.0 W05-W09 S22-S20
     13  595  512 (S34E30 L=129)   449     59        0 ( 562/ 491- 632/ 534) -21.8 E32-E27 S35-S31
     14  834  514 (S32E11 L=148)   237     49        1 ( 803/ 493- 860/ 532) -26.6 E13-E09 S33-S30
  

    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