Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1673 (N46E19 L=128)  2729    459        7 ( 701/1589- 986/1730)  12.8 E30-E05 N39-N51
      2 1191 1631 (N44W12 L=160)   447     96        2 (1154/1596-1230/1665)  29.7 W09-W16 N41-N46
      3 1503 1598 (N42W39 L=187)   322     73        0 (1484/1573-1528/1617)  21.8 W36-W41 N39-N43
      4 1589 1542 (N37W45 L=193)   404    100        1 (1556/1526-1623/1559)   0.0 W41-W48 N36-N38
      5 1727 1411 (N28W54 L=201)   392    113        1 (1688/1396-1759/1425) -18.4 W49-W56 N26-N28
      6  532 1325 (N20E35 L=113)   249    101        2 ( 500/1288- 563/1358) -33.7 E37-E31 N17-N22
      7  843 1317 (N21E13 L=135)   511     96        2 ( 800/1285- 890/1354) -26.6 E15-E09 N18-N23
      8  779 1224 (N15E16 L=132)   796    252        5 ( 694/1192- 905/1249)   8.7 E21-E08 N12-N16
      9  385 1175 (N10E44 L=103)   374    138        0 ( 356/1117- 420/1230) -49.4 E47-E40 N06-N13
     10  889 1173 (N12E09 L=139)   221     40        0 ( 872/1145- 903/1203)  71.6 E09-E07 N10-N13
     11  743 1136 (N09E18 L=130)   559    243        1 ( 667/1096- 870/1202) -19.7 E23-E09 N06-N13
     12 1120  897 (S05W06 L=154)   267    115        0 (1105/ 832-1136/ 949) -81.9 W05-W07 S08-S01
     13  176  870 (S10E66 L= 82)   701    161        0 ( 145/ 844- 215/ 892)   5.7 E70-E60 S12-S08
     14  235  794 (S15E59 L= 89)  1313    197        5 ( 181/ 755- 278/ 835) -16.7 E65-E53 S16-S12
     15 1445  777 (S12W28 L=176)   235     70        1 (1424/ 737-1471/ 813)  59.0 W26-W29 S14-S09
     16  860  738 (S15E10 L=138)   288    110        1 ( 835/ 693- 882/ 786)  81.9 E11-E08 S18-S11
     17  428  433 (S39E49 L= 99)  1645    426        0 ( 359/ 379- 492/ 498)  27.6 E61-E40 S45-S33
     18 1323  406 (S38W25 L=173)   294     66        0 (1288/ 395-1355/ 418)   0.0 W22-W27 S38-S36
     19 1206  385 (S40W16 L=164)   334     66        0 (1185/ 366-1232/ 416) -76.0 W14-W18 S41-S37
     20 1093  355 (S42W08 L=155)   287     55        1 (1069/ 343-1125/ 371) -11.3 W05-W10 S43-S41
  

    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