Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1576 (N15E41 L=134)   560    126        3 ( 598/1528- 648/1647) -54.5 E45-E38 N11-N18
      2 1674 1497 (N44W33 L=208)   800    143        1 (1622/1454-1733/1534)  -4.8 W26-W39 N42-N45
      3  293 1405 (S02E61 L=115)   521     75        2 ( 275/1366- 309/1446) -45.0 E64-E58 S04-N00
      4  909 1223 (N01E12 L=164)   232    108        0 ( 854/1212- 958/1243)  31.0 E14-E09 N00-N03
      5  204 1054 (S24E60 L=116)   477    115        0 ( 158/1016- 247/1094)  28.6 E66-E55 S27-S21
      6  933  895 (S16E02 L=174)   372    107        1 ( 896/ 847- 975/ 942)  80.5 E03-W00 S18-S12
      7  372  849 (S33E40 L=136)   676    181        0 ( 339/ 771- 425/ 916)  57.5 E42-E35 S38-S27
      8  267  848 (S36E51 L=124)   469    141        0 ( 256/ 775- 278/ 906) -82.9 E52-E49 S40-S32
      9  480  834 (S31E30 L=146)   303     88        2 ( 457/ 803- 519/ 872) -31.0 E31-E26 S32-S29
     10  580  783 (S32E21 L=155)   546    124        1 ( 522/ 750- 625/ 824)  40.6 E25-E18 S34-S28
     11 1076  765 (S19W10 L=186)   197     66        0 (1043/ 752-1110/ 781)  45.0 W08-W12 S20-S17
     12 1154  670 (S22W18 L=194)   827    291        0 (1117/ 582-1237/ 743) -79.7 W15-W23 S26-S15
     13 1374  568 (S21W36 L=211)   248     67        0 (1340/ 549-1405/ 594)  63.4 W34-W36 S22-S18
     14  760  203 (S70W24 L=200)  1080    238        1 ( 666/ 143- 856/ 269)  -1.2 W03-W50 S72-S67
  

    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