Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1387 1799 (N44W61 L=242)   648     80        1 (1344/1778-1424/1821)  -4.1 W54-W69 N43-N45
      2 1222 1768 (N48W42 L=223)   406     54        0 (1198/1743-1252/1796)   0.0 W38-W48 N46-N49
      3 1077 1689 (N47W24 L=204)   504     85        1 (1048/1647-1113/1719)  26.6 W20-W28 N44-N48
      4  923 1641 (N48W09 L=190)  1206    204        2 ( 852/1584-1001/1685)   7.1 W01-W17 N44-N50
      5  810 1449 (N37E05 L=175)   320     73        0 ( 769/1437- 855/1462) -15.9 E08-E01 N35-N38
      6 1036 1396 (N29W09 L=189)   649    150        1 ( 986/1343-1096/1446)  12.5 W05-W14 N24-N30
      7 1303 1261 (N15W22 L=202)  1205    304        0 (1204/1164-1391/1375) -69.4 W18-W24 N07-N23
      8  334 1351 (N39E48 L=132)   352     53        0 ( 307/1331- 359/1368) -26.6 E51-E45 N37-N40
      9  232 1117 (N25E57 L=123)  2549    504        2 ( 187/ 901- 297/1333)  77.0 E63-E52 N12-N38
     10  828 1081 (N14E10 L=170)   296     91        1 ( 805/1053- 858/1112) -63.4 E12-E08 N12-N16
     11  398 1027 (N18E41 L=139)   334     86        0 ( 377/ 983- 422/1073) -80.5 E42-E39 N14-N20
     12 1134  899 (S02W04 L=184)   398    114        0 (1114/ 844-1162/ 952)  51.3 W01-W06 S05-N00
     13 1883  866 (S23W61 L=242)  1363    134        2 (1850/ 806-1916/ 931) -59.0 W56-W69 S28-S18
     14  639  832 (N03E27 L=154)   325    102        0 ( 623/ 773- 659/ 877)  68.2 E29-E25 N00-N05
     15  175  845 (N09E67 L=113)   466     59        1 ( 156/ 817- 193/ 871) -90.0 E69-E64 N07-N10
     16  198  760 (N04E67 L=114)  2438    265        7 ( 142/ 690- 253/ 822)  30.3 E74-E58 N00-N07
     17 1389  751 (S17W17 L=197)   552    162        0 (1328/ 685-1432/ 810)  36.9 W11-W20 S19-S13
     18  292  724 (N01E57 L=124)   490     72        2 ( 263/ 701- 326/ 752) -21.8 E59-E53 N00-N02
     19  526  693 (S04E38 L=143)   288     67        0 ( 502/ 658- 546/ 726) -78.7 E38-E36 S06-S01
     20  448  701 (S02E43 L=137)   302     50        2 ( 421/ 682- 476/ 717)  11.3 E45-E40 S03-S01
     21 1562  593 (S32W27 L=208)   442    106        0 (1515/ 558-1604/ 628)  14.0 W23-W31 S33-S30
     22  945  494 (S23E16 L=164)  1074    249        2 ( 894/ 383- 993/ 605)  51.8 E22-E11 S30-S16
     23  385  440 (S19E62 L=118)  5552    254        7 ( 297/ 345- 465/ 528) -69.0 E72-E52 S26-S12
     24  608  457 (S20E40 L=140)  1139    223        3 ( 513/ 395- 683/ 516) -45.0 E46-E35 S25-S15
     25 1667  456 (S47W41 L=222)   444     41        0 (1643/ 441-1695/ 477) -29.1 W37-W46 S49-S43
     26  489  404 (S22E54 L=127)   460    105        2 ( 452/ 366- 513/ 437) -78.7 E56-E50 S24-S19
     27  596  363 (S26E47 L=134)   440     64        1 ( 578/ 327- 623/ 390)  35.5 E49-E42 S29-S24
     28 1062  309 (S40E15 L=165)   521     33        0 (1031/ 293-1097/ 329) -36.9 E18-E12 S41-S37
     29 1236  224 (S54E06 L=175)  1701    245        2 (1137/ 181-1336/ 267)   5.4 E16-W05 S56-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