Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  855 1667 (N34E28 L=181)  2508    560        5 ( 664/1564-1040/1772)  -6.3 E48-E12 N30-N38
      2 1125 1551 (N33E06 L=204)   419     97        0 (1092/1519-1176/1575)  56.3 E07-E02 N29-N35
      3  593 1424 (N13E36 L=174)   308     66        0 ( 561/1396- 615/1459)  68.2 E37-E34 N10-N15
      4  453 1413 (N10E46 L=164)   456     79        1 ( 431/1387- 482/1445) -31.0 E48-E43 N08-N11
      5  351 1378 (N06E54 L=156)   431     91        1 ( 313/1355- 389/1392)   8.1 E57-E50 N03-N06
      6  396 1315 (N03E47 L=162)   289     78        0 ( 376/1279- 414/1348) -45.0 E50-E44 N00-N04
      7  247 1324 (N01E63 L=147)   501     90        0 ( 224/1301- 274/1344)  -8.1 E65-E58 N00-N01
      8 1769 1014 (N13W50 L=260)  1201    199        3 (1711/ 940-1809/1074) -24.4 W44-W55 N09-N16
      9  739 1002 (S09E16 L=193)   599    167        0 ( 647/ 975- 809/1035)  31.0 E22-E12 S11-S05
     10  256 1006 (S18E53 L=157)   422     93        0 ( 221/ 986- 286/1025)  15.9 E56-E49 S19-S16
     11  511  718 (S31E28 L=182)   241     52        0 ( 494/ 689- 530/ 748) -45.0 E29-E26 S32-S29
     12 1528  707 (S10W39 L=248)   283     91        0 (1512/ 673-1557/ 748) -31.0 W36-W41 S11-S07
     13  706  665 (S30E13 L=197)   339    107        0 ( 649/ 643- 753/ 688)   0.0 E17-E09 S31-S28
     14  960  631 (S27W05 L=215)   473    117        1 ( 901/ 612-1017/ 661)  15.9 W01-W08 S28-S24
  

    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