Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1097 1721 (N43W07 L= 77)   853    155        1 (1050/1649-1139/1782) -70.0 W03-W09 N36-N48
      2 1712 1546 (N30W56 L=125)  2196    245        7 (1596/1474-1810/1620) -22.8 W45-W67 N24-N34
      3  825 1568 (N31E13 L= 56)   831    166        0 ( 745/1510- 888/1604) -28.6 E19-E08 N27-N34
      4 1454 1478 (N24W30 L= 99)   724    200        1 (1389/1437-1540/1534) -21.8 W25-W36 N21-N28
      5 1668 1357 (N17W45 L=114)  1405    359        3 (1593/1191-1729/1468) -73.6 W40-W47 N06-N23
      6 1864 1290 (N13W64 L=133)  1436    199        5 (1825/1215-1920/1375) -78.7 W60-W71 N08-N18
      7  435  697 (S21E41 L= 28)  4621    877        7 ( 304/ 373- 500/1069)  38.3 E89-E33 S41-N01
      8  215  842 (S11E59 L= 11)  5164    452       13 ( 134/ 708- 346/1014) -57.7 E69-E48 S19-N00
      9  233  932 (S06E55 L= 14)   388     54        0 ( 216/ 906- 252/ 972)  63.4 E57-E53 S07-S03
     10 1197  928 (S09W10 L= 80)   212     94        0 (1158/ 918-1243/ 943)   0.0 W07-W13 S09-S08
     11  647  890 (S10E23 L= 46)   337     64        1 ( 608/ 864- 679/ 921)  11.3 E26-E21 S11-S08
     12 1022  826 (S15E00 L= 69)   403    112        0 ( 987/ 773-1055/ 877) -66.8 E02-W01 S18-S11
     13 1179  814 (S16W09 L= 78)   269     97        0 (1163/ 765-1200/ 853)  78.7 W08-W10 S18-S13
     14  258  761 (S16E56 L= 13)   421     78        1 ( 222/ 733- 291/ 784)  -8.1 E59-E52 S17-S14
     15  750  731 (S20E18 L= 51)   196     59        0 ( 730/ 705- 765/ 757) -71.6 E19-E17 S21-S18
     16  923  681 (S24E07 L= 62)   975    345        2 ( 762/ 652-1055/ 751)   9.5 E17-W01 S25-S19
     17 1503  539 (S33W35 L=104)   411     50        2 (1478/ 516-1531/ 569) -36.9 W32-W37 S34-S31
     18 1587  548 (S33W42 L=112)   459     83        0 (1553/ 528-1634/ 569)   8.1 W38-W46 S33-S31
     19 1360  497 (S36W24 L= 94)   358     81        1 (1333/ 471-1398/ 522)  45.0 W21-W26 S38-S34
     20 1178  406 (S43W11 L= 81)   886    164        3 (1108/ 368-1263/ 445)  22.6 W05-W17 S45-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