Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1404 1716 (N48W44 L=186)   623     67        3 (1363/1695-1442/1737)   0.0 W38-W48 N46-N50
      2  703 1427 (N31E21 L=121)   614    126        1 ( 663/1365- 735/1490) -60.9 E25-E18 N26-N35
      3  252 1350 (N26E63 L= 80)  1317    206        3 ( 208/1283- 286/1431)  90.0 E66-E58 N21-N31
      4 1073 1333 (N23W05 L=147)   628    164        0 (1008/1295-1146/1358) -18.4 W00-W09 N20-N25
      5  385 1208 (N17E44 L= 98)   278     71        1 ( 365/1173- 404/1243)  76.0 E45-E42 N15-N19
      6 1390 1114 (N08W24 L=166)   328     72        1 (1356/1089-1418/1145) -14.0 W21-W25 N06-N09
      7 1593 1005 (S00W37 L=180)   324    129        1 (1547/ 964-1649/1040) -20.6 W33-W41 S03-N02
      8 1877  895 (S10W66 L=208)  2550    289        6 (1831/ 775-1944/ 978)  38.2 W59-W80 S17-S05
      9 1800  900 (S09W56 L=198)   795    117        2 (1764/ 843-1825/ 952)  50.2 W52-W58 S11-S05
     10 1701  890 (S08W46 L=188)   356     68        0 (1684/ 855-1720/ 931) -59.0 W44-W47 S10-S05
     11 1308  860 (S07W17 L=159)   360    112        2 (1285/ 809-1348/ 903) -80.5 W15-W19 S10-S04
     12 1369  819 (S10W21 L=163)   241     59        1 (1346/ 802-1399/ 844) -33.7 W19-W22 S11-S08
     13 1479  806 (S12W28 L=171)   238     24        0 (1462/ 782-1495/ 829) -56.3 W27-W29 S13-S10
     14  701  650 (S18E23 L=119)  1123    404        1 ( 631/ 474- 778/ 797)  54.5 E31-E16 S29-S08
     15  338  750 (S11E50 L= 92)   600     94        3 ( 302/ 710- 374/ 778) -53.1 E53-E46 S13-S09
     16 1284  734 (S15W15 L=158)   403    146        2 (1204/ 708-1346/ 754) -18.4 W10-W19 S16-S13
     17 1658  647 (S24W45 L=187)  1625    274        3 (1561/ 544-1734/ 721)  34.7 W37-W51 S30-S19
     18 1314  644 (S21W17 L=160)   250     73        0 (1281/ 624-1349/ 663)  26.6 W15-W19 S22-S19
     19 1394  623 (S23W23 L=166)   510    129        1 (1360/ 559-1426/ 661) -74.1 W20-W25 S27-S20
     20  447  559 (S24E45 L= 97)  1074    121        1 ( 419/ 507- 484/ 615)  41.6 E50-E40 S27-S19
     21 1565  456 (S37W42 L=184)   440    100        0 (1507/ 440-1604/ 482)  14.0 W35-W45 S38-S35
     22  385  445 (S32E59 L= 83)  1438    172        4 ( 308/ 429- 472/ 466)   0.0 E74-E48 S33-S30
     23  725  285 (S46E33 L=110)   441     47        1 ( 695/ 261- 749/ 305)  15.9 E36-E29 S48-S44
     24 1401  244 (S56W37 L=180)  1135    107        1 (1361/ 206-1443/ 280) -23.7 W29-W55 S62-S51
  

    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