Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1465 1636 (N26W48 L=137)   827    181        2 (1422/1563-1534/1675)  15.9 W41-W55 N23-N28
      2 1631 1543 (N16W55 L=144)   826    128        3 (1602/1490-1668/1594)  56.3 W52-W60 N13-N19
      3 1238 1540 (N27W28 L=117)   449     89        0 (1193/1509-1281/1560) -59.0 W24-W29 N24-N29
      4 1159 1334 (N18W15 L=104)  1248    455        3 (1015/1278-1359/1446) -45.0 W09-W26 N10-N27
      5  787 1304 (N25E07 L= 82)  1863    645        2 ( 526/1169-1020/1370) -34.2 E25-W04 N11-N32
      6 1877 1202 (S09W64 L=152)  2120    363        4 (1839/1029-1904/1364)  52.6 W55-W71 S17-N00
      7  651 1164 (N20E19 L= 70)   217     90        0 ( 605/1154- 702/1175) -18.4 E21-E15 N18-N21
      8 1410 1038 (S05W22 L=111)   273    123        1 (1398/ 972-1427/1086)  56.3 W20-W24 S08-S02
      9 1769  955 (S19W46 L=135)  1122    174        1 (1702/ 914-1854/ 996)   0.0 W39-W55 S20-S17
     10 1912  879 (S28W64 L=153)   859     59        2 (1882/ 853-1947/ 899)   0.0 W58-W71 S30-S26
     11 1634  845 (S22W33 L=122)   278     63        0 (1620/ 809-1651/ 877)  45.0 W31-W34 S23-S20
     12  985  780 (S09E08 L= 81)   474    169        2 ( 940/ 729-1025/ 860)  45.0 E11-E04 S10-S04
     13 1734  763 (S30W41 L=130)   298    106        0 (1679/ 726-1770/ 791)   6.3 W35-W44 S30-S28
     14  601  541 (S14E38 L= 51)  4630    843        9 ( 368/ 365- 872/ 768) -53.1 E47-E24 S27-N03
     15  168  693 (N03E73 L= 16)  1387    138        2 ( 127/ 659- 222/ 737)  -6.0 E84-E65 N00-N05
     16  452  593 (S08E47 L= 42)   762    155        3 ( 419/ 538- 486/ 674)  83.7 E50-E44 S11-S02
     17  815  546 (S18E25 L= 64)   237     81        0 ( 777/ 532- 853/ 565) -11.3 E26-E21 S19-S17
     18  375  450 (S15E62 L= 27)   858    129        2 ( 320/ 433- 436/ 483) -29.1 E67-E55 S16-S11
     19  575  277 (S30E58 L= 31)  3667    259        8 ( 508/ 164- 657/ 375)  36.5 E77-E50 S39-S22
     20 1506  283 (S61W19 L=108)   488     42        1 (1480/ 257-1528/ 314) -48.4 W15-W24 S65-S56
  

    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