Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  469 1623 (N14E55 L= 59)  1710    347        7 ( 362/1551- 571/1697)  40.2 E61-E48 N07-N19
      2  756 1573 (N17E32 L= 82)   757    270        0 ( 735/1452- 788/1672) -57.3 E35-E26 N10-N24
      3 1123 1591 (N29E11 L=103)   270     61        1 (1090/1560-1149/1611) -21.8 E13-E08 N27-N29
      4  369 1428 (N00E54 L= 61)   690    171        1 ( 318/1380- 420/1462)  -4.8 E60-E48 S01-N02
      5  926 1423 (N13E17 L= 98)   216     63        0 ( 899/1392- 950/1456)  78.7 E17-E15 N10-N15
      6  704 1228 (S04E23 L= 91)   728    196        0 ( 644/1134- 743/1308) -48.4 E29-E20 S09-N00
      7  232  998 (S27E53 L= 61)  3365    438        4 ( 123/ 843- 314/1183)  59.7 E63-E48 S38-S14
      8 1493 1058 (N09W26 L=140)   228     74        1 (1463/1045-1534/1077)  21.8 W23-W28 N07-N09
      9  732  986 (S16E16 L= 99)   313     73        1 ( 700/ 948- 763/1017) -18.4 E18-E12 S18-S15
     10 1648  936 (N07W39 L=154)   497    148        0 (1595/ 887-1702/ 979)  58.0 W36-W42 N02-N10
     11  813  881 (S20E08 L=107)   455    156        2 ( 743/ 824- 877/ 935)  63.4 E11-E05 S25-S15
     12 1547  776 (S05W38 L=152)   312    107        0 (1498/ 742-1596/ 800)  45.0 W35-W40 S07-S02
     13 1165  522 (S30W25 L=140)   885    197        1 (1076/ 494-1256/ 573)  37.9 W19-W29 S33-S25
     14 1657  450 (S17W63 L=178)   499    131        1 (1610/ 435-1696/ 472)  26.6 W58-W66 S19-S15
     15 1236  251 (S44W47 L=162)   489     89        1 (1204/ 225-1261/ 281)  76.0 W45-W50 S45-S40
  

    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