Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  476 1697 (N21E60 L=177)   634     86        2 ( 454/1657- 508/1732) -80.5 E63-E57 N18-N24
      2 1096 1593 (N28E11 L=227)   698    289        0 (1038/1545-1180/1669) -16.7 E15-E05 N24-N33
      3  699 1494 (N12E31 L=206)   250    109        0 ( 658/1483- 757/1507)  18.4 E34-E27 N10-N13
      4  868 1324 (N06E16 L=222)   379    111        0 ( 834/1302- 908/1355)  53.1 E18-E14 N04-N08
      5 1830 1258 (N30W51 L=289)  1059    220        0 (1754/1189-1891/1351) -20.6 W42-W60 N27-N33
      6 1489 1312 (N21W21 L=258)   297     85        0 (1449/1284-1529/1335)  -9.5 W17-W23 N20-N22
      7 1890 1046 (N19W61 L=298)   673    133        3 (1863/ 986-1907/1093)  81.9 W57-W64 N15-N22
      8  850  995 (S13E09 L=228)   461    167        1 ( 786/ 936- 921/1041)  58.0 E11-E05 S17-S09
      9  324  967 (S25E46 L=192)   505    155        0 ( 253/ 928- 374/1010)  28.6 E53-E41 S28-S22
     10  626  837 (S27E20 L=218)   243     93        0 ( 588/ 812- 669/ 866)  45.0 E22-E17 S29-S24
     11  949  695 (S28W04 L=242)   896    265        2 ( 830/ 665-1075/ 733)  14.9 E03-W12 S30-S24
     12  645  606 (S41E15 L=223)   668    146        2 ( 593/ 572- 712/ 655)  41.2 E18-E10 S44-S36
     13  362  425 (S63E59 L=178)   547     67        1 ( 324/ 416- 401/ 436)   2.7 E71-E48 S64-S61
     14 1508  399 (S28W55 L=293)   364    119        0 (1445/ 390-1562/ 410)  21.8 W49-W59 S29-S25
  

    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