Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  532 1748 (N31E57 L= 96)  1144    137        1 ( 503/1686- 556/1820) -38.2 E66-E51 N26-N37
      2 1335 1732 (N47W07 L=160)   414     47        0 (1304/1715-1366/1747)  18.4 W04-W10 N45-N49
      3  884 1709 (N34E25 L=128)   552    121        1 ( 832/1671- 939/1732) -11.3 E29-E19 N31-N35
      4  550 1615 (N21E45 L=108)   867    138        3 ( 511/1573- 633/1661)   0.0 E49-E38 N18-N24
      5  386 1517 (N13E54 L= 99)   990    182        5 ( 360/1430- 415/1606) -59.7 E58-E50 N07-N19
      6 1102 1545 (N26E05 L=148)   516    105        0 (1082/1492-1123/1598) -69.4 E07-E03 N22-N30
      7  647 1549 (N18E35 L=118)   490     68        3 ( 615/1509- 667/1592) -56.3 E36-E32 N15-N21
      8  546 1489 (N13E40 L=113)   389     66        1 ( 522/1465- 576/1517)  76.0 E41-E37 N11-N15
      9 1862 1266 (N27W58 L=212)  2036    227        5 (1773/1201-1933/1343) -10.3 W47-W70 N23-N29
     10 1700 1198 (N18W40 L=193)   790    126        2 (1666/1130-1729/1260)  82.9 W37-W42 N13-N21
     11 1905 1136 (N20W64 L=217)   794    116        0 (1890/1073-1920/1191) -74.1 W61-W66 N16-N23
     12  797 1115 (S05E15 L=138)   199     66        0 ( 762/1101- 828/1133)  33.7 E16-E13 S06-S04
     13  489 1044 (S14E34 L=119)  1021    203        2 ( 431/ 973- 544/1090)  66.8 E37-E29 S18-S11
     14  817 1071 (S08E13 L=140)   192     39        1 ( 795/1048- 846/1087)  18.4 E14-E11 S08-S06
     15  931  902 (S15E03 L=150)   324     99        0 ( 881/ 875- 972/ 929)  45.0 E05-E01 S17-S13
     16  317  876 (S26E47 L=106)   627    144        0 ( 264/ 827- 365/ 915) -21.8 E52-E42 S28-S24
     17  272  743 (S35E54 L= 99)   598     93        0 ( 242/ 715- 319/ 773) -18.4 E58-E48 S36-S33
     18  484  594 (S42E33 L=120)  1831    421        1 ( 335/ 534- 624/ 707)  21.8 E50-E20 S47-S32
     19  976  647 (S30W05 L=158)  1246    359        4 ( 812/ 600-1127/ 685)   8.1 E06-W15 S32-S26
     20 1610  581 (S19W50 L=203)   595    156        0 (1545/ 539-1646/ 642)  69.4 W46-W52 S23-S15
     21 1532  588 (S21W44 L=197)   257     27        1 (1511/ 564-1547/ 608) -71.6 W41-W45 S22-S19
     22 1121  503 (S36W19 L=172)   356     74        0 (1092/ 471-1160/ 529)  63.4 W16-W20 S38-S33
     23  616  382 (S57E22 L=131)   312     58        0 ( 595/ 360- 631/ 413)  45.0 E25-E19 S58-S53
     24  550  280 (S69E41 L=112)   896    112        0 ( 490/ 259- 602/ 297)  -2.2 E57-E30 S69-S65
  

    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