Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1031 1640 (N46W13 L=236)   413    138        1 ( 973/1598-1079/1674) -35.5 W07-W15 N41-N48
      2  473 1607 (N52E45 L=178)   994    135        1 ( 405/1584- 535/1628)   3.2 E55-E37 N50-N53
      3  565 1544 (N46E30 L=193)   579    138        2 ( 518/1501- 614/1589) -31.6 E37-E24 N41-N49
      4 1509 1482 (N26W43 L=266)   320     45        0 (1488/1457-1529/1504)  71.6 W41-W44 N24-N27
      5  910 1463 (N35E01 L=222)  1468    412        3 ( 709/1421-1098/1488)  -8.1 E16-W12 N31-N37
      6 1620 1369 (N17W47 L=270)   887    136        1 (1564/1307-1655/1408) -74.1 W43-W50 N12-N19
      7 1095 1359 (N25W10 L=233)   313    140        0 (1039/1324-1135/1380) -26.6 W05-W12 N22-N26
      8 1836 1355 (N11W70 L=293)  1031    103        1 (1782/1324-1878/1375) -21.0 W63-W77 N07-N13
      9  484 1080 (N16E35 L=189)   270    116        1 ( 451/1028- 508/1128) -56.3 E37-E33 N12-N19
     10  202 1085 (N18E62 L=161)   418     69        2 ( 179/1055- 226/1114) -23.2 E65-E58 N16-N19
     11  285  988 (N12E53 L=171)  1332    308        3 ( 189/ 943- 418/1018)   5.0 E63-E40 N09-N13
     12  578  835 (N00E31 L=193)   214     40        1 ( 554/ 813- 604/ 851)   0.0 E32-E28 S01-N01
     13 1066  805 (S08E00 L=223)   232     76        0 (1047/ 769-1089/ 836)  63.4 E01-W01 S09-S05
     14  911  751 (S09E11 L=212)   810    201        4 ( 846/ 686- 961/ 818)  53.1 E15-E08 S12-S04
     15  273  778 (S01E57 L=166)   574    133        0 ( 215/ 740- 326/ 811) -15.3 E63-E52 S03-N01
     16  277  718 (S05E59 L=165)   456     69        2 ( 252/ 679- 296/ 741) -63.4 E60-E55 S07-S03
     17 1406  643 (S23W19 L=243)   297     91        1 (1393/ 598-1425/ 690) -90.0 W18-W20 S26-S20
     18  295  641 (S10E60 L=164)   564    116        2 ( 255/ 612- 344/ 678) -12.5 E63-E54 S11-S07
     19 1074  575 (S22E03 L=220)   861    182        4 ( 992/ 524-1139/ 646)  33.7 E09-W00 S25-S17
     20 1184  576 (S24W04 L=227)   289     68        0 (1146/ 556-1214/ 598)   0.0 W01-W05 S25-S22
     21  421  567 (S15E50 L=173)   420     53        2 ( 398/ 534- 444/ 596)  63.4 E51-E47 S17-S13
     22  596  464 (S24E39 L=184)   838    266        0 ( 545/ 359- 647/ 577)  39.8 E49-E31 S31-S16
     23  349  520 (S18E60 L=163)   856    124        2 ( 292/ 485- 394/ 559) -24.0 E65-E55 S20-S15
  

    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