Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  641 1694 (N45E29 L=286)   455     68        1 ( 616/1667- 668/1721) -26.6 E31-E25 N42-N47
      2 1063 1617 (N36W06 L=321)   453    175        0 ( 966/1601-1139/1628)   0.0 W00-W12 N34-N36
      3 1713 1586 (N31W63 L= 17)   854    134        1 (1653/1541-1767/1621) -24.4 W56-W68 N27-N33
      4  709 1471 (N27E19 L=296)  2215    613        2 ( 431/1358- 962/1541) -18.9 E43-E02 N18-N33
      5 1539 1467 (N23W38 L=353)   900    208        3 (1451/1421-1623/1525) -32.5 W32-W44 N19-N27
      6 1323 1410 (N20W21 L=336)   203     74        0 (1292/1387-1350/1435) -45.0 W19-W22 N18-N21
      7 1046 1345 (N17W03 L=318)   454    158        0 (1010/1290-1084/1409)  82.9 W00-W05 N13-N21
      8  396 1328 (N20E42 L=273)   389     92        0 ( 377/1289- 425/1373) -45.0 E44-E38 N17-N23
      9  670 1302 (N17E21 L=294)   230     87        0 ( 655/1256- 689/1336) -68.2 E22-E19 N13-N18
     10 1887 1243 (N08W68 L= 22)  1675    133        2 (1856/1187-1921/1301)  37.9 W62-W74 N04-N11
     11 1526 1263 (N10W33 L=348)   324    126        0 (1472/1246-1590/1286) -20.6 W29-W37 N08-N11
     12  164 1178 (N13E65 L=250)  2277    233        6 ( 134/1092- 208/1271) -45.0 E72-E58 N07-N18
     13 1797 1039 (S04W54 L=  8)   686     85        1 (1774/ 992-1826/1072)  38.7 W51-W56 S06-S02
     14 1182  899 (S10W09 L=324)  1086    328        3 (1101/ 770-1278/1038)  53.7 W03-W15 S17-S02
     15  803  799 (S15E15 L=300)   317    165        0 ( 754/ 726- 835/ 863)  53.1 E18-E12 S18-S10
     16 1257  579 (S31W14 L=328)   758    280        2 (1180/ 496-1325/ 690)  50.2 W08-W18 S36-S23
     17  560  575 (S27E36 L=279)   419    138        0 ( 531/ 522- 581/ 643)  48.8 E39-E32 S30-S22
     18  824  433 (S39E19 L=295)   727    196        3 ( 763/ 410- 916/ 487) -33.7 E24-E12 S40-S34
     19  538  375 (S41E48 L=267)   647     73        0 ( 501/ 357- 577/ 395)  -7.1 E52-E43 S41-S39
  

    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