Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  744 1742 (N40E30 L=237)   399     34        0 ( 723/1721- 772/1762) -11.3 E32-E27 N37-N41
      2  480 1467 (N18E41 L=226)   647    145        0 ( 430/1426- 534/1503) -21.8 E45-E35 N15-N20
      3  281  991 (S12E51 L=217)  1307    324        4 ( 216/ 933- 360/1068)  58.0 E56-E43 S15-S07
      4  378  995 (S11E42 L=225)   363     98        1 ( 366/ 937- 393/1048) -80.5 E43-E40 S14-S08
      5  184  976 (S13E60 L=207)   431     70        2 ( 165/ 951- 206/1004) -26.6 E62-E57 S14-S11
      6  118  965 (S13E69 L=198)   571    104        3 ( 106/ 931- 141/ 999) -76.0 E71-E65 S15-S11
      7  745  847 (S18E16 L=251)  1858    511        3 ( 662/ 595- 879/ 992)  63.4 E21-E08 S34-S08
      8  465  890 (S17E35 L=232)   353     98        2 ( 443/ 843- 492/ 937) -90.0 E36-E33 S19-S14
      9  366  908 (S17E43 L=224)   263     79        0 ( 330/ 879- 388/ 930) -36.9 E45-E41 S18-S15
     10  210  785 (S24E59 L=209)   706    179        0 ( 180/ 734- 255/ 822)  39.8 E62-E53 S27-S22
     11 1030  769 (S20W03 L=270)   190     58        0 (1013/ 734-1046/ 803)  76.0 W01-W03 S22-S18
     12  304  717 (S28E50 L=217)   716    230        0 ( 270/ 643- 350/ 780)  42.0 E54-E44 S33-S24
     13 1433  634 (S24W31 L=299)   761    115        2 (1370/ 584-1495/ 675)  49.4 W27-W35 S28-S21
     14 1719  616 (S21W55 L=322)   339     88        0 (1682/ 590-1757/ 637)  38.7 W52-W57 S23-S19
  

    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