Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1232 1824 (N52E15 L=276)   430     45        1 (1211/1804-1256/1844)  63.4 E16-E12 N48-N54
      2  635 1540 (N13E38 L=253)   694    252        0 ( 606/1447- 664/1636) -45.0 E43-E32 N07-N18
      3  962 1549 (N21E18 L=272)   250     69        0 ( 948/1516- 980/1587) -53.1 E19-E16 N19-N23
      4  269 1202 (S14E55 L=236)   362     70        0 ( 254/1165- 286/1240) -78.7 E56-E52 S16-S11
      5  692 1089 (S12E21 L=270)   361     94        1 ( 636/1072- 728/1117)  18.4 E24-E18 S13-S09
      6  446 1085 (S17E37 L=254)   466    107        1 ( 397/1062- 498/1106)  23.2 E40-E32 S19-S15
      7 1137  985 (S06W07 L=298)   272     79        1 (1104/ 944-1173/1022) -18.4 W04-W10 S07-S04
      8  232  990 (S27E53 L=237)   464    114        1 ( 189/ 974- 274/1011)  14.0 E57-E49 S28-S25
      9  630  898 (S24E20 L=270)  2237    743        1 ( 325/ 815- 941/ 989)  10.5 E43-W00 S31-S16
     10 1153  705 (S21W16 L=307)   288     71        0 (1113/ 672-1189/ 738)  -9.5 W13-W19 S22-S20
     11  838  599 (S36W01 L=291)   690    175        2 ( 745/ 563- 932/ 625)   8.1 E06-W08 S37-S34
     12 1733  542 (S11W64 L=355)  1737    312        1 (1668/ 459-1795/ 599)  74.7 W60-W69 S17-S06
     13 1672  546 (S13W58 L=348)   592     87        1 (1640/ 496-1702/ 583)  80.5 W55-W59 S16-S10
     14 1521  258 (S33W65 L=355)   712    134        1 (1488/ 244-1551/ 274)  18.4 W61-W67 S34-S31
  

    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