Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1289 1783 (N41W52 L=208)   776    122        1 (1226/1745-1351/1815) -13.0 W44-W60 N39-N42
      2 1522 1605 (N23W53 L=209)  1085    128        2 (1458/1577-1590/1635) -12.1 W47-W61 N20-N25
      3  608 1440 (N41E16 L=140)   371     84        1 ( 571/1416- 643/1467) -51.3 E18-E13 N38-N44
      4 1181 1438 (N24W22 L=178)   409    140        1 (1118/1400-1242/1467) -50.2 W18-W24 N20-N27
      5 1047 1263 (N18W08 L=164)   817    333        0 ( 913/1224-1210/1301) -19.4 W00-W17 N14-N21
      6 1548 1137 (S03W33 L=189)   302     65        0 (1522/1120-1582/1158) -53.1 W31-W35 S04-N00
      7  842 1032 (N11E10 L=146)   219     58        0 ( 814/1012- 862/1059)  14.0 E12-E08 N09-N12
      8  411 1018 (N20E39 L=117)   564    158        1 ( 362/ 952- 469/1058)  12.5 E43-E34 N17-N22
      9  836  982 (N08E12 L=145)   351    126        0 ( 793/ 953- 895/1019)   0.0 E14-E07 N07-N09
     10 1665  926 (S18W37 L=193)   372     68        1 (1646/ 881-1682/ 969)  59.0 W34-W38 S20-S15
     11  563  863 (N08E31 L=125)   298     57        0 ( 545/ 823- 579/ 900)  78.7 E32-E30 N05-N10
     12  238  883 (N16E58 L= 98)   377     99        1 ( 199/ 866- 290/ 894)  -5.7 E62-E52 N14-N17
     13 1245  594 (S25W01 L=157)   291     89        1 (1199/ 569-1286/ 620)   0.0 E02-W04 S25-S23
     14  922  410 (S27E25 L=131)  1262    257        2 ( 882/ 310- 955/ 539)  51.3 E32-E19 S34-S18
  

    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