Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  823 1833 (N45E47 L=345)  1769    166        3 ( 750/1781- 890/1877)  -2.6 E58-E36 N41-N48
      2 1349 1729 (N53W04 L= 36)   355     46        0 (1328/1707-1367/1747) -11.3 W01-W06 N50-N55
      3 1591 1594 (N50W32 L= 64)  3129    464        8 (1429/1496-1737/1692)  -7.9 W13-W50 N44-N53
      4 1022 1581 (N31E15 L= 17)   594    126        0 ( 975/1524-1064/1625) -24.0 E19-E10 N27-N33
      5  765 1533 (N21E29 L=  2)   494    136        1 ( 742/1463- 796/1601) -73.3 E31-E27 N16-N26
      6  626 1447 (N13E35 L=357)   681    122        1 ( 605/1395- 654/1515) -45.0 E38-E31 N10-N17
      7  448 1420 (N08E47 L=345)   463     90        0 ( 420/1383- 489/1452)  59.0 E49-E45 N05-N10
      8 1554 1408 (N34W27 L= 59)   359     82        1 (1529/1372-1581/1441) -45.0 W24-W29 N31-N35
      9 1046 1316 (N15E06 L= 26)   366    113        1 (1005/1294-1115/1352)   8.1 E08-E01 N12-N16
     10 1771 1249 (N29W49 L= 80)   830    118        0 (1725/1211-1818/1292) -10.3 W43-W54 N28-N31
     11  165 1145 (S14E68 L=324)   880     81        1 ( 128/1117- 212/1166)   8.1 E75-E61 S15-S11
     12  251  971 (S23E54 L=338)  2284    407        2 ( 214/ 838- 326/1143) -77.5 E58-E45 S29-S11
     13 1866 1081 (N22W61 L= 93)   534    103        0 (1834/1054-1907/1122)  -9.5 W56-W68 N20-N23
     14  858  932 (S12E08 L= 24)   307    110        0 ( 813/ 911- 919/ 949)  26.6 E10-E04 S13-S09
     15  451  791 (S30E33 L=359)   335    114        0 ( 414/ 745- 495/ 821)  45.0 E36-E29 S33-S26
     16  750  711 (S27E10 L= 22)   329    183        0 ( 673/ 695- 843/ 721)  28.6 E14-E03 S30-S24
     17 1003  691 (S22W07 L= 39)   201     74        2 ( 970/ 664-1036/ 718)  53.1 W05-W08 S24-S20
     18 1149  473 (S32W24 L= 56)  1832    394        4 ( 954/ 443-1318/ 524)  25.6 W10-W33 S37-S25
     19  681  415 (S50E09 L= 23)   615    134        0 ( 625/ 388- 750/ 442)  36.0 E14-E03 S54-S46
     20  678  255 (S67E06 L= 26)  1704    228        2 ( 589/ 220- 794/ 299)   5.4 E22-W11 S70-S63
  

    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