Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1397 1804 (N44W63 L=243)   545     55        0 (1370/1782-1427/1824)   4.8 W57-W69 N43-N45
      2 1225 1770 (N48W43 L=222)   375     52        0 (1202/1745-1249/1793)   7.1 W39-W47 N46-N49
      3 1081 1689 (N47W24 L=204)   456     82        0 (1056/1648-1115/1720)  29.7 W20-W28 N44-N48
      4  926 1642 (N48W09 L=189)  1242    212        4 ( 858/1571-1008/1688)  14.9 W02-W17 N43-N50
      5  348 1580 (N56E61 L=119)   584     79        1 ( 313/1560- 395/1591)   0.0 E70-E51 N54-N56
      6  818 1452 (N37E04 L=175)   322     82        0 ( 773/1441- 864/1463) -18.4 E07-E01 N35-N38
      7 1041 1401 (N29W09 L=189)   579    140        1 ( 998/1345-1095/1448)  14.0 W06-W14 N24-N30
      8 1311 1265 (N15W22 L=202)  1248    287        1 (1213/1177-1399/1377) -69.4 W19-W25 N07-N23
      9  298 1310 (N37E52 L=128)  1184    204        0 ( 253/1227- 364/1370)  48.4 E56-E44 N31-N40
     10  230  980 (N17E58 L=122)  2119    454        3 ( 191/ 771- 303/1169) -78.7 E62-E53 N03-N28
     11  838 1083 (N14E10 L=170)   245     95        1 ( 818/1057- 867/1115) -76.0 E11-E08 N12-N16
     12  403 1029 (N18E41 L=139)   314     92        0 ( 384/ 987- 428/1075) -71.6 E41-E38 N14-N20
     13 1143  903 (S02W04 L=184)   402    106        0 (1122/ 850-1170/ 955)  51.3 W02-W07 S05-N00
     14 1886  869 (S23W62 L=242)  1419    135        2 (1856/ 808-1921/ 934) -59.0 W57-W70 S28-S18
     15  647  828 (N02E26 L=153)   349    100        1 ( 627/ 776- 665/ 878)  59.0 E28-E24 N00-N05
     16  193  768 (N04E67 L=113)  3021    321       10 ( 141/ 687- 244/ 869)  84.3 E74-E61 N00-N10
     17 1396  754 (S17W17 L=197)   586    171        0 (1333/ 686-1440/ 815)  33.7 W11-W20 S19-S13
     18  533  695 (S04E37 L=143)   313     71        0 ( 511/ 660- 556/ 730) -78.7 E38-E35 S06-S01
     19  457  701 (S02E43 L=137)   368     53        0 ( 421/ 686- 487/ 720)   0.0 E45-E40 S03-S01
     20 1564  594 (S32W28 L=207)   415     99        0 (1519/ 558-1606/ 628)  14.0 W23-W31 S33-S30
     21  948  488 (S24E16 L=164)  1060    250        3 ( 901/ 383- 997/ 601)  49.8 E22-E10 S30-S17
     22 1389  508 (S33W13 L=193)   292     84        0 (1363/ 469-1409/ 553)  63.4 W10-W14 S35-S29
     23  547  482 (S17E44 L=136)   787    161        2 ( 492/ 453- 595/ 538)   0.0 E49-E40 S19-S13
     24  398  439 (S19E61 L=119)  5895    276       10 ( 298/ 344- 514/ 531) -69.0 E71-E49 S26-S12
     25 1670  458 (S47W42 L=222)   472     50        0 (1644/ 440-1699/ 479) -21.8 W37-W47 S49-S43
     26  634  437 (S22E39 L=141)   885    199        1 ( 562/ 395- 688/ 472) -26.6 E45-E35 S25-S19
     27  602  364 (S26E46 L=134)   409     72        1 ( 583/ 329- 629/ 390)  35.5 E49-E42 S29-S24
     28 1070  311 (S40E15 L=165)   492     50        0 (1038/ 295-1104/ 334) -36.9 E16-E12 S42-S37
     29 1216  219 (S54E08 L=172)  2052    315        3 (1067/ 176-1338/ 266)   0.0 E23-W05 S56-S50
  

    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