Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  771 1545 (N30E17 L=  3)   711    165        2 ( 710/1494- 842/1597) -32.5 E22-E11 N26-N33
      2 1499 1357 (N17W31 L= 51)   242     79        1 (1469/1333-1521/1380)  36.9 W28-W32 N15-N18
      3  147 1304 (N16E68 L=312)   655    110        1 ( 131/1272- 164/1348)  90.0 E70-E65 N14-N19
      4  490 1050 (S01E34 L=346)   306     64        0 ( 455/1023- 525/1071) -26.6 E36-E31 S02-N00
      5  440  884 (S11E38 L=342)   913    210        1 ( 415/ 782- 463/ 996)  69.0 E40-E35 S16-S03
      6  813  857 (S13E13 L=  7)   206    102        0 ( 763/ 843- 862/ 871)   0.0 E16-E10 S13-S12
      7 1411  826 (S15W24 L= 44)   342    120        0 (1346/ 805-1458/ 863)  15.9 W20-W27 S16-S12
      8  226  778 (S16E59 L=321)  1695    269        5 ( 183/ 725- 288/ 857) -48.8 E63-E53 S19-S11
      9 1757  686 (S23W53 L= 73)   365    124        0 (1729/ 651-1785/ 722) -29.7 W50-W57 S25-S20
     10  792  664 (S25E16 L=  4)   383     72        0 ( 776/ 628- 817/ 704)  78.7 E17-E13 S27-S22
     11 1111  645 (S27W06 L= 25)   273     94        0 (1085/ 603-1125/ 694)  71.6 W03-W06 S29-S23
     12  273  568 (S29E59 L=320)  1274    255        2 ( 238/ 511- 299/ 649)  48.8 E64-E55 S32-S24
     13  497  568 (S30E39 L=341)   648    178        1 ( 453/ 523- 550/ 625)  35.0 E43-E33 S33-S26
  

    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