Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1285 1795 (N52E11 L=238)   721     84        1 (1244/1764-1327/1826)   0.0 E15-E06 N49-N54
      2  396 1628 (N13E64 L=185)   767     77        1 ( 362/1602- 428/1654)  45.0 E66-E61 N11-N15
      3 1556 1620 (N48W19 L=268)   364     48        0 (1530/1598-1585/1640)  -9.5 W16-W22 N47-N49
      4  573 1489 (N08E40 L=208)   301     76        0 ( 548/1458- 606/1518)  76.0 E41-E39 N06-N10
      5 1652 1447 (N38W30 L=278)   469     58        0 (1623/1424-1679/1471)   0.0 W27-W32 N36-N39
      6  222 1360 (S06E66 L=182)  2139    232        4 ( 175/1285- 277/1463)  84.3 E73-E62 S10-N00
      7  208 1203 (S15E62 L=187)  2280    316        6 (  88/1130- 357/1261)  13.7 E84-E47 S20-S10
      8  650 1192 (S07E26 L=223)   686    256        0 ( 595/1103- 749/1245)  56.3 E28-E19 S12-S02
      9 1301 1203 (N11W10 L=259)   411     97        1 (1258/1167-1342/1243)  -9.5 W07-W13 N09-N12
     10  960 1100 (S04E05 L=243)   262     50        0 ( 936/1077- 979/1135)  90.0 E06-E04 S05-S01
     11  440  966 (S24E35 L=214)   765    230        1 ( 396/ 884- 537/1033)  54.0 E37-E28 S29-S18
     12 1271  803 (S11W20 L=268)   275    152        0 (1199/ 773-1330/ 825)  35.5 W16-W23 S14-S08
     13 1371  674 (S15W30 L=279)   291     82        0 (1336/ 648-1388/ 708)  90.0 W28-W31 S16-S12
     14 1643  567 (S12W54 L=303)   756    124        1 (1607/ 514-1671/ 611) -26.6 W49-W57 S14-S09
     15  521  546 (S49E22 L=226)  1257    250        2 ( 403/ 516- 632/ 600)   4.8 E35-E11 S51-S45
     16 1180  531 (S29W25 L=274)   530     98        1 (1140/ 508-1237/ 564)   0.0 W21-W29 S29-S27
     17 1585  427 (S21W59 L=308)   995    100        2 (1540/ 392-1633/ 459)  51.3 W56-W63 S23-S18
     18 1454  418 (S26W50 L=298)   573     62        2 (1420/ 389-1490/ 443)  18.4 W46-W52 S27-S24
     19 1119  257 (S47W41 L=290)  1596    301        2 (1001/ 189-1250/ 325)   7.9 W27-W57 S49-S44
  

    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