Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1372 1672 (N31W44 L=106)   319     88        1 (1354/1635-1403/1705)  20.6 W40-W48 N29-N32
      2 1488 1683 (N28W54 L=116)   529    132        1 (1423/1653-1542/1701) -45.0 W49-W57 N25-N31
      3 1607 1566 (N19W55 L=117)   699    114        3 (1571/1536-1648/1600) -38.7 W50-W57 N16-N21
      4 1430 1512 (N20W38 L=101)   877    243        1 (1345/1451-1538/1588) -59.7 W35-W43 N14-N26
      5  412 1494 (N47E36 L= 26)   693     95        2 ( 367/1460- 461/1519)  -5.2 E40-E29 N45-N48
      6  992 1486 (N30W10 L= 72)   975    241        1 ( 878/1437-1098/1519)  -7.1 W01-W17 N27-N32
      7 1324 1443 (N19W29 L= 91)   919    261        1 (1217/1362-1426/1491) -53.1 W23-W32 N12-N24
      8 1648 1457 (N12W52 L=114)   371     40        1 (1621/1431-1673/1476) -14.0 W49-W53 N10-N12
      9 1064 1328 (N19W10 L= 72)   282    134        0 (1003/1311-1134/1343) -29.7 W06-W13 N17-N21
     10 1755 1203 (S05W51 L=113)   534    119        1 (1734/1128-1779/1245)  45.0 W47-W54 S08-S02
     11 1814 1168 (S08W55 L=117)   385     45        0 (1802/1135-1829/1199)  56.3 W53-W57 S09-S06
     12 1286 1022 (S03W14 L= 77)   343    118        2 (1252/ 976-1323/1067)  26.6 W11-W17 S04-N00
     13  196 1002 (N20E59 L=  4)   972    181        2 ( 153/ 912- 257/1064) -47.7 E63-E53 N13-N24
     14 1780  970 (S18W48 L=110)   298     62        1 (1762/ 945-1806/ 989)  11.3 W45-W50 S19-S17
     15 1377  918 (S11W17 L= 79)   310    117        0 (1323/ 898-1427/ 947)  -8.1 W14-W21 S11-S09
     16  881  769 (S07E14 L= 48)  1595    445        7 ( 756/ 678-1030/ 856)   5.7 E23-E03 S10-S04
     17  520  693 (S04E38 L= 24)  2950    578        8 ( 335/ 525- 714/ 845) -48.0 E49-E30 S16-N06
     18  873  659 (S13E17 L= 45)   461    152        1 ( 826/ 630- 922/ 697)   0.0 E20-E13 S14-S10
     19  376  654 (S03E50 L= 12)   300     70        1 ( 364/ 612- 391/ 682)  76.0 E52-E48 S05-S01
     20  309  599 (S05E59 L=  3)  1374    221        2 ( 262/ 539- 382/ 660) -63.4 E63-E54 S09-S01
     21 1058  537 (S25E10 L= 52)  1718    425        4 ( 938/ 481-1233/ 660) -40.6 E15-W01 S29-S14
     22  372  480 (S13E60 L=  2)  3774    299       10 ( 246/ 342- 475/ 553)  58.0 E80-E49 S22-S06
     23  835  285 (S36E36 L= 26)  4335    510        6 ( 709/ 125- 930/ 487)  31.4 E66-E24 S48-S22
     24  490  459 (S17E50 L= 12)   328     38        1 ( 463/ 440- 519/ 472) -21.8 E52-E47 S17-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