Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  920 1661 (N33E26 L=271)  1268    201        4 ( 832/1619- 998/1728)  -7.1 E35-E19 N30-N35
      2  539 1667 (N24E54 L=242)   402     41        0 ( 521/1643- 556/1693) -53.1 E56-E52 N22-N26
      3  638 1652 (N25E45 L=251)   452    101        0 ( 588/1629- 684/1675)   0.0 E50-E40 N24-N26
      4  689 1554 (N20E36 L=261)   474    120        1 ( 663/1508- 711/1613) -60.3 E39-E33 N16-N23
      5 1481 1595 (N46W18 L=314)   462     93        0 (1451/1568-1524/1613)  29.7 W15-W22 N42-N48
      6  526 1556 (N17E48 L=248)   334     83        0 ( 506/1517- 543/1595) -33.7 E51-E45 N14-N18
      7  748 1496 (N18E29 L=267)   458    123        1 ( 714/1447- 776/1555) -82.9 E30-E28 N14-N22
      8  926 1395 (N16E15 L=281)   297     54        2 ( 900/1362- 954/1421)  63.4 E16-E13 N13-N17
      9  180 1202 (S11E68 L=229)  4158    250       12 ( 109/1117- 249/1288)  34.5 E81-E58 S17-S05
     10  286 1251 (S06E56 L=241)   425     72        3 ( 248/1235- 316/1270)   0.0 E60-E52 S07-S04
     11 1863 1168 (N28W60 L=357)  1349    151        1 (1821/1109-1889/1223) -74.1 W54-W65 N24-N31
     12 1467 1108 (N12W24 L=321)   295     92        1 (1440/1057-1487/1147) -45.0 W22-W26 N09-N14
     13 1637  577 (S13W54 L=350)   537    120        2 (1585/ 552-1676/ 601)  12.5 W49-W58 S14-S11
     14 1397  511 (S23W39 L=335)   390     92        0 (1383/ 468-1412/ 567) -50.2 W35-W41 S25-S19
     15 1039  233 (S53W35 L=331)   473     53        0 (1022/ 205-1060/ 266) -32.0 W31-W39 S55-S50
  

    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