Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1103 1711 (N49W24 L=180)  2203    391        2 ( 919/1676-1286/1744) -15.7 W06-W39 N42-N52
      2 1575 1694 (N35W67 L=223)  1580    123        1 (1516/1662-1642/1720)  -4.2 W56-W83 N33-N36
      3 1111 1571 (N39W18 L=173)   882    269        2 (1000/1535-1241/1600) -18.4 W09-W27 N34-N42
      4 1779 1475 (N17W71 L=226)   684     96        0 (1743/1439-1809/1514) -56.3 W68-W73 N14-N20
      5 1040 1343 (N25W07 L=162)   442    148        1 ( 966/1329-1116/1358)  -5.7 W01-W11 N23-N26
      6 1490 1338 (N17W36 L=192)   681    242        2 (1384/1308-1574/1358) -26.6 W29-W41 N13-N19
      7  216 1064 (N18E60 L= 96)  1450    294        3 ( 195/ 947- 253/1218) -66.4 E64-E55 N11-N27
      8 1175 1145 (N11W11 L=167)   644    269        0 (1076/1097-1273/1201)  -9.5 W05-W17 N08-N14
      9 1859 1016 (S11W61 L=216)  2554    257       11 (1798/ 949-1923/1086) -51.3 W53-W71 S15-S05
     10 1650 1061 (S03W41 L=197)   295     79        0 (1613/1046-1691/1080) -26.6 W38-W44 S04-S01
     11  560  999 (N11E30 L=126)   454    113        1 ( 537/ 945- 581/1056)  63.4 E31-E27 N08-N14
     12 1205  971 (N00W10 L=166)   424    188        0 (1123/ 958-1297/ 985)  -5.2 W04-W15 S01-N01
     13 1802  933 (S14W53 L=209)   501     95        1 (1768/ 910-1836/ 962)   7.1 W49-W57 S15-S12
     14  681  906 (N04E23 L=133)   243     51        0 ( 663/ 884- 705/ 932) -63.4 E23-E21 N02-N06
     15 1338  808 (S12W16 L=171)  1253    355        4 (1229/ 698-1406/ 907)  67.4 W08-W21 S18-S06
     16 1619  768 (S20W35 L=191)   424    156        0 (1576/ 718-1674/ 835)  33.7 W31-W40 S22-S16
     17 1871  780 (S26W64 L=219)  1108     93        2 (1832/ 753-1906/ 815)   0.0 W57-W70 S28-S23
     18  390  568 (S13E53 L=103)  3504    522       11 ( 257/ 398- 501/ 766) -81.3 E60-E47 S26-N00
     19  347  727 (S03E51 L=104)   360     63        1 ( 333/ 696- 364/ 755)  36.9 E53-E49 S04-S01
     20  252  659 (S07E64 L= 91)  1327    158        1 ( 218/ 594- 301/ 734)  73.3 E70-E59 S11-S01
     21  439  632 (S10E46 L=110)   852    178        2 ( 391/ 577- 500/ 701) -60.9 E48-E42 S13-S04
     22  534  632 (S11E39 L=117)   542    137        1 ( 491/ 600- 571/ 692) -66.8 E40-E35 S13-S06
     23 1447  562 (S30W21 L=177)   828    140        2 (1399/ 508-1500/ 612)  36.9 W17-W25 S33-S27
     24  618  515 (S19E36 L=119)   357     95        1 ( 598/ 470- 632/ 562)  56.3 E37-E33 S22-S16
     25  585  336 (S32E49 L=107)   691    103        1 ( 547/ 297- 625/ 370)  13.0 E57-E44 S35-S29
     26 1009  237 (S48E20 L=136)  1335    252        2 ( 921/ 174-1100/ 319)  21.8 E33-E08 S53-S41
  

    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