Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1047 1714 (N45W27 L=134)   284     50        2 (1017/1691-1068/1738) -56.3 W23-W28 N42-N46
      2  398 1610 (N59E42 L= 65)   619    116        1 ( 366/1567- 443/1644)  29.7 E48-E35 N56-N61
      3 1119 1386 (N22W15 L=123)   590    194        1 (1060/1348-1209/1422) -49.4 W12-W19 N18-N25
      4 1858 1346 (S01W68 L=176)  1011     74        1 (1815/1321-1899/1365)  -7.1 W61-W77 S02-N00
      5 1324 1173 (N05W20 L=128)   239     98        0 (1280/1145-1367/1200)   0.0 W17-W23 N04-N05
      6  570 1139 (N22E24 L= 83)  1160    242        4 ( 449/1102- 695/1165) -20.6 E32-E16 N19-N26
      7 1106 1145 (N10W07 L=115)   199     90        0 (1060/1129-1152/1160)   0.0 W04-W10 N08-N10
      8  847  921 (N04E12 L= 95)   211     92        0 ( 801/ 902- 875/ 952)  11.3 E15-E10 N02-N04
      9 1611  885 (S18W31 L=139)   354     81        1 (1576/ 850-1637/ 925)  31.0 W28-W33 S19-S16
     10  408  817 (N08E43 L= 65)   712    202        0 ( 383/ 741- 436/ 900)  60.9 E45-E40 N03-N12
     11  177  862 (N14E64 L= 43)  1464    181        6 ( 103/ 835- 258/ 896)  -7.4 E77-E54 N12-N17
     12 1431  807 (S18W18 L=125)   347    119        0 (1395/ 757-1467/ 856)  29.7 W14-W21 S19-S15
     13  288  733 (N05E56 L= 52)   722     95        1 ( 247/ 698- 327/ 771) -45.0 E59-E52 N02-N07
     14 1488  633 (S30W18 L=126)   610    234        0 (1424/ 534-1546/ 738)  36.9 W12-W24 S35-S25
     15 1720  656 (S37W39 L=146)  1227    127        2 (1665/ 612-1769/ 714)  11.3 W32-W44 S38-S32
     16  668  651 (S07E30 L= 77)   494    151        1 ( 624/ 596- 720/ 706)  24.0 E34-E25 S09-S05
     17  308  598 (S03E60 L= 48)  1605    200        2 ( 236/ 522- 359/ 682)  14.0 E75-E51 S06-N01
     18  458  471 (S13E53 L= 55)   363     81        0 ( 437/ 433- 483/ 514)  71.6 E54-E50 S16-S10
     19 1358  368 (S45W03 L=110)   315     61        0 (1338/ 337-1379/ 403) -90.0 W01-W03 S48-S41
     20  950  216 (S43E35 L= 73)  1358    320        1 ( 821/ 174-1087/ 295)   2.0 E48-E19 S46-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