Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  748 1645 (N36E22 L=259)  1772    328        1 ( 628/1556- 896/1727) -26.6 E35-E09 N29-N43
      2 1537 1578 (N33W38 L=320)   431    135        0 (1475/1537-1589/1611) -32.0 W33-W42 N30-N35
      3  549 1370 (N17E32 L=249)   284     54        0 ( 517/1349- 571/1396)  26.6 E34-E30 N15-N18
      4 1890 1094 (N04W65 L=346)   694     61        1 (1869/1060-1908/1123) -45.0 W61-W67 N02-N05
      5 1819 1045 (N00W56 L=337)   516     67        2 (1796/1008-1847/1080)  31.0 W53-W59 S01-N02
      6 1699  822 (S14W47 L=328)   889    228        1 (1679/ 704-1726/ 922) -72.9 W43-W49 S20-S07
      7 1519  809 (S15W33 L=314)   769    189        1 (1483/ 722-1541/ 874)  90.0 W29-W34 S20-S11
      8  299  810 (S17E51 L=230)   889     95        3 ( 262/ 777- 342/ 847) -23.2 E55-E47 S18-S14
      9  224  753 (S20E61 L=220)   533     72        2 ( 192/ 723- 249/ 791)  76.0 E65-E58 S21-S17
     10  280  687 (S24E57 L=224)   738    131        2 ( 248/ 639- 314/ 749) -90.0 E61-E54 S27-S20
     11 1694  645 (S24W51 L=332)   473     96        1 (1640/ 600-1727/ 675)  39.8 W47-W54 S27-S22
     12  610  597 (S31E29 L=252)   737    148        0 ( 569/ 539- 642/ 658)  58.0 E33-E26 S34-S26
     13  392  565 (S32E50 L=231)   946    173        3 ( 323/ 507- 467/ 600)  14.0 E61-E41 S35-S30
     14 1317  226 (S58W39 L=320)   661     71        2 (1280/ 202-1346/ 255) -17.1 W31-W45 S60-S55
     15 1162  194 (S63W22 L=303)  1043    110        1 (1121/ 161-1213/ 227)   0.0 W14-W27 S67-S59
  

    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