Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  782 1894 (N61E35 L= 42)   554    113        0 ( 769/1865- 794/1922) -38.7 E41-E30 N57-N65
      2  500 1587 (N31E41 L= 36)   461    118        1 ( 474/1562- 536/1625) -39.8 E44-E37 N29-N34
      3  961 1516 (N27E06 L= 72)   241     65        0 ( 936/1486- 989/1544) -45.0 E07-E03 N24-N28
      4 1577 1473 (N26W38 L=115)   705     87        0 (1529/1428-1612/1509) -38.7 W34-W40 N23-N28
      5  722 1443 (N21E21 L= 56)   324     54        1 ( 690/1424- 760/1466) -11.3 E23-E18 N20-N22
      6  237 1381 (N18E60 L= 17)  1560    444        2 ( 178/1294- 285/1455) -32.9 E70-E52 N12-N23
      7  481 1361 (N16E37 L= 40)   277     65        0 ( 454/1328- 513/1398)  59.0 E38-E35 N13-N18
      8 1736 1292 (N16W49 L=126)  1411    317        1 (1652/1182-1814/1391) -50.2 W42-W55 N09-N21
      9  460 1217 (N07E37 L= 40)   603    166        1 ( 424/1160- 499/1292) -53.1 E40-E33 N03-N11
     10 1371 1244 (N10W21 L= 98)   456     77        1 (1326/1205-1408/1279) -45.0 W18-W23 N08-N12
     11  267 1164 (N04E53 L= 24)  1449    201        1 ( 199/1093- 319/1250)  42.0 E59-E48 N00-N09
     12 1228 1164 (N05W12 L= 89)   382     70        1 (1203/1122-1253/1204) -59.0 W10-W13 N02-N07
     13 1801 1155 (N07W54 L=131)   371    110        1 (1767/1129-1833/1176)  -8.1 W50-W57 N06-N08
     14 1196 1100 (N01W10 L= 87)   403     67        2 (1158/1074-1231/1128) -11.3 W07-W12 N00-N02
     15 1627 1067 (N01W39 L=116)   282     49        1 (1609/1037-1647/1092)  45.0 W37-W40 N00-N02
     16 1331 1033 (S02W19 L= 96)   404    107        0 (1279/1003-1389/1053)  15.9 W15-W22 S04-S01
     17 1370  976 (S06W21 L= 99)   190     71        0 (1341/ 953-1391/1017) -45.0 W19-W22 S07-S03
     18  190  956 (S08E61 L= 16)   879    190        6 ( 155/ 923- 232/ 993)  18.4 E65-E56 S09-S05
     19 1303  954 (S07W17 L= 94)   250     61        1 (1283/ 918-1319/ 984) -90.0 W16-W18 S09-S05
     20 1421  877 (S11W25 L=103)   268     81        0 (1408/ 832-1436/ 917) -80.5 W24-W26 S14-S08
     21 1533  870 (S11W33 L=110)   563    178        2 (1446/ 842-1619/ 913)  14.0 W27-W39 S13-S08
     22  192  776 (S19E63 L= 15)  4057    619        7 ( 140/ 654- 276/ 861) -85.6 E68-E52 S26-S13
     23 1124  732 (S21W07 L= 84)  1257    302        2 (1032/ 613-1169/ 851) -65.0 W00-W10 S29-S14
     24 1570  765 (S17W37 L=114)   963    230        3 (1472/ 711-1638/ 849)  36.0 W30-W41 S21-S11
     25  123  799 (S17E72 L=  5)  1340    209        2 ( 104/ 770- 139/ 837) -90.0 E75-E69 S18-S14
     26  400  657 (S27E44 L= 33)  3288    763        5 ( 282/ 431- 542/ 823)  36.0 E64-E30 S41-S16
     27  840  750 (S21E11 L= 66)   431     89        1 ( 794/ 723- 893/ 770)  15.9 E14-E07 S22-S19
     28 1396  677 (S24W26 L=103)   484    125        0 (1371/ 614-1426/ 743)  90.0 W24-W27 S27-S19
     29 1545  630 (S26W38 L=115)  1143    310        1 (1418/ 602-1676/ 662)  11.3 W28-W48 S28-S23
     30  716  524 (S36E22 L= 56)   561    137        1 ( 678/ 475- 749/ 583)  45.0 E25-E18 S39-S31
     31 1207  501 (S36W15 L= 93)   785    173        0 (1130/ 441-1265/ 576)  52.1 W10-W18 S41-S30
     32 1627  391 (S42W55 L=132)   624    132        0 (1596/ 358-1650/ 416) -20.6 W51-W59 S43-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