Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  902 1749 (N46E08 L= 75)   317     35        0 ( 884/1723- 920/1773)  76.0 E09-E06 N43-N47
      2  926 1675 (N39E06 L= 78)   255     52        0 ( 908/1656- 954/1701) -45.0 E07-E03 N37-N41
      3 1573 1548 (N29W42 L=125)  2113    360        3 (1439/1477-1734/1636) -26.6 W32-W55 N24-N35
      4  617 1555 (N31E28 L= 56)   522     97        2 ( 565/1523- 663/1579) -14.0 E32-E24 N29-N33
      5 1309 1472 (N24W20 L=103)   346    121        0 (1249/1457-1369/1485)   0.0 W15-W23 N22-N24
      6 1520 1333 (N15W33 L=116)   623    164        0 (1495/1241-1541/1402) -90.0 W31-W34 N09-N19
      7 1726 1297 (N13W49 L=132)   702    228        1 (1683/1207-1767/1395) -74.7 W45-W51 N07-N18
      8 1826 1273 (N12W58 L=142)  1485    203        2 (1798/1189-1855/1362)  74.7 W54-W63 N06-N17
      9 1894 1276 (N12W67 L=151)   519     58        3 (1876/1245-1910/1309)  76.0 W64-W70 N10-N14
     10 1881 1230 (N09W64 L=148)   731     71        3 (1850/1198-1923/1263) -18.4 W60-W70 N07-N11
     11  302  778 (S15E51 L= 32)  2951    613        5 ( 227/ 513- 346/1051)  76.0 E62-E48 S31-N01
     12 1051  919 (S09W01 L= 85)   297     94        1 (1032/ 875-1076/ 956) -63.4 W00-W02 S11-S07
     13  162  803 (S13E66 L= 17)  4105    296        6 (  87/ 693- 250/ 941) -61.9 E77-E58 S19-S04
     14 1030  852 (S13E00 L= 84)   286    103        0 (1004/ 813-1067/ 896) -78.7 E01-W02 S15-S10
     15  239  830 (S12E56 L= 27)   311     74        0 ( 225/ 789- 253/ 867) -90.0 E57-E55 S13-S09
     16  800  743 (S19E15 L= 69)   796    284        0 ( 730/ 655- 838/ 847)  67.4 E20-E12 S24-S12
     17  954  803 (S16E05 L= 79)   210     93        0 ( 940/ 769- 972/ 842) -78.7 E05-E03 S18-S13
     18 1847  734 (S21W63 L=147)   416     66        2 (1828/ 708-1876/ 763) -53.1 W60-W67 S22-S18
     19  599  680 (S22E29 L= 54)   836    256        1 ( 511/ 641- 710/ 759) -31.6 E34-E21 S25-S17
     20 1537  607 (S29W36 L=119)   249     45        0 (1514/ 585-1563/ 626)  45.0 W34-W37 S30-S27
     21 1700  596 (S30W51 L=135)   317     31        1 (1684/ 572-1717/ 625) -45.0 W49-W53 S31-S27
     22 1416  551 (S33W27 L=111)   344     84        1 (1381/ 534-1465/ 570)   0.0 W24-W30 S33-S31
     23 1195  509 (S35W11 L= 95)   297     37        2 (1163/ 489-1224/ 530)   0.0 W08-W13 S36-S33
     24  981  383 (S44E05 L= 78)  1196    320        4 ( 836/ 313-1109/ 446)  19.2 E19-W04 S49-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