Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  420 1584 (N20E57 L= 43)   697    119        1 ( 393/1540- 465/1606)  68.2 E60-E53 N17-N22
      2  362 1297 (N02E50 L= 50)   365     51        1 ( 331/1275- 388/1318)  36.9 E52-E47 N00-N03
      3 1152 1227 (N13W04 L=104)   530    188        1 (1097/1168-1238/1299) -26.6 E01-W09 N10-N16
      4 1022 1054 (N00E01 L= 99)   196     69        0 ( 996/1030-1048/1093) -18.4 E02-W01 S01-N01
      5  532  998 (S13E30 L= 70)   421    151        0 ( 509/ 931- 552/1078) -76.0 E32-E28 S16-S08
      6 1730  952 (N09W48 L=148)   304     97        1 (1699/ 932-1760/ 975)   0.0 W45-W51 N07-N09
      7 1310  908 (S03W19 L=119)   224     57        0 (1289/ 876-1326/ 946)  76.0 W18-W19 S04-N00
      8 1141  890 (S07W09 L=109)   270     81        0 (1128/ 841-1157/ 932) -80.5 W08-W10 S10-S04
      9  307  849 (S26E47 L= 53)   381    109        0 ( 269/ 832- 344/ 871)   0.0 E50-E43 S27-S25
     10  811  672 (S27E06 L= 94)  1514    562        1 ( 599/ 541-1055/ 766)  40.4 E20-W07 S40-S16
     11  911  584 (S31W02 L=102)   694    198        0 ( 838/ 525- 999/ 665)  63.4 E01-W06 S35-S23
     12 1380  633 (S17W31 L=131)   616    211        1 (1285/ 598-1467/ 658)  32.5 W25-W36 S21-S14
     13 1494  579 (S18W41 L=141)   331     76        1 (1474/ 547-1515/ 609)  76.0 W38-W43 S20-S16
     14 1426  285 (S39W53 L=153)  1176    198        0 (1349/ 263-1497/ 311)  26.6 W45-W57 S40-S35
  

    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