Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  867 1898 (N61E25 L= 39)   508    136        0 ( 853/1870- 884/1929) -45.0 E31-E21 N57-N66
      2  300 1457 (N22E55 L=  9)  2622    589        8 ( 232/1323- 423/1555) -33.2 E67-E41 N13-N30
      3 1179 1476 (N25W09 L= 73)   481    102        1 (1140/1430-1224/1516) -50.2 W06-W11 N21-N27
      4 1731 1456 (N27W51 L=116)  1232    147        3 (1688/1414-1778/1492)  -7.1 W47-W56 N24-N29
      5  919 1440 (N21E08 L= 56)   317     67        0 ( 883/1416- 959/1466) -11.3 E10-E05 N19-N23
      6  199 1238 (N08E62 L=  3)   918    192        2 ( 173/1192- 223/1295) -81.9 E65-E58 N05-N12
      7 1583 1214 (N10W36 L=100)   224     32        1 (1568/1191-1601/1237)  71.6 W34-W36 N08-N11
      8 1897 1192 (N11W66 L=130)   711     81        0 (1871/1154-1916/1221) -45.0 W62-W68 N08-N12
      9  661 1195 (N05E23 L= 41)   241     53        1 ( 638/1176- 690/1218) -26.6 E24-E20 N04-N06
     10  414 1148 (N02E40 L= 24)   463    129        0 ( 364/1106- 475/1201)  32.0 E43-E35 N00-N05
     11 1399 1094 (N02W23 L= 87)   251     64        1 (1378/1064-1428/1131)  71.6 W21-W24 N00-N03
     12 1556 1017 (S02W34 L= 98)   525    153        1 (1472/ 990-1611/1041)  18.4 W27-W37 S03-N00
     13 1640  996 (S03W40 L=105)   466     65        1 (1618/ 957-1669/1031) -63.4 W38-W42 S05-N00
     14  176  829 (S16E64 L=  1)  2074    264        2 ( 134/ 776- 213/ 890)  81.9 E69-E59 S19-S12
     15 1602  839 (S13W39 L=103)   300     73        1 (1588/ 799-1624/ 880) -53.1 W37-W40 S14-S10
     16 1311  739 (S20W20 L= 84)  1246    326        2 (1234/ 609-1360/ 872) -66.4 W13-W22 S28-S12
     17  305  842 (S16E50 L= 15)   591    125        3 ( 258/ 812- 335/ 869) -15.9 E54-E47 S17-S14
     18  488  606 (S31E38 L= 26)  2742    703        1 ( 350/ 438- 705/ 824)  34.0 E56-E19 S42-S16
     19 1733  751 (S17W51 L=116)  1083    223        1 (1655/ 688-1804/ 823)  33.7 W45-W57 S21-S12
     20  273  741 (S22E54 L= 10)  1231    201        6 ( 233/ 678- 325/ 802)  66.8 E58-E49 S25-S18
     21 1055  741 (S21W03 L= 67)   467    105        0 (1010/ 715-1116/ 760)  26.6 W00-W06 S22-S19
     22 1640  621 (S26W46 L=110)  2051    487        3 (1534/ 580-1824/ 700)  13.5 W37-W62 S28-S20
     23  889  513 (S37E08 L= 56)   232     55        0 ( 869/ 486- 916/ 536)  45.0 E09-E06 S38-S35
     24 1354  477 (S37W28 L= 92)  1077    164        0 (1264/ 432-1425/ 531)  35.0 W21-W31 S40-S33
     25  841  473 (S40E12 L= 52)   224     37        0 ( 826/ 449- 858/ 497) -90.0 E13-E10 S41-S38
     26 1223  461 (S39W18 L= 82)   353     63        0 (1203/ 429-1242/ 496)  90.0 W16-W19 S41-S36
  

    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