Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1544 (N34E34 L=331)   627    155        1 ( 596/1470- 646/1613) -45.0 E39-E29 N29-N39
      2  902 1480 (N31E11 L=354)   523    219        0 ( 816/1419- 983/1509) -18.4 E16-E04 N27-N33
      3 1618 1474 (N33W46 L= 51)   780    108        2 (1558/1438-1664/1506) -18.4 W41-W50 N30-N35
      4 1357 1434 (N30W22 L= 27)   344    171        0 (1277/1388-1420/1462) -21.8 W16-W26 N26-N31
      5  486 1300 (N17E38 L=326)   321    106        1 ( 454/1266- 531/1338) -23.2 E41-E34 N15-N19
      6  157 1270 (N13E75 L=289)  1325    112        1 ( 134/1206- 177/1317) -66.8 E81-E71 N08-N15
      7 1147 1197 (N14W07 L= 12)   337    104        1 (1114/1177-1201/1226) -11.3 W05-W10 N12-N15
      8 1812 1043 (N05W57 L= 62)   343     97        0 (1779/1003-1844/1069)  20.6 W53-W61 N03-N07
      9  502  901 (S07E34 L=331)   598    155        4 ( 463/ 826- 533/ 959)  71.6 E36-E31 S12-S03
     10 1713  906 (S03W48 L= 52)   863    125        4 (1665/ 866-1763/ 952) -21.8 W43-W53 S05-N00
     11 1267  784 (S11W16 L= 21)   198    116        1 (1248/ 743-1280/ 846) -80.5 W15-W17 S13-S07
     12 1094  797 (S11W05 L= 10)   234     79        0 (1059/ 762-1126/ 824) -38.7 W02-W07 S13-S09
     13 1837  768 (S12W64 L= 69)   476     47        2 (1817/ 740-1854/ 798) -53.1 W61-W67 S13-S09
     14 1447  767 (S12W28 L= 33)   269     50        1 (1414/ 747-1482/ 783)  14.0 W26-W30 S13-S10
     15 1012  687 (S18W00 L=  5)   627    160        5 ( 965/ 616-1062/ 735) -54.5 E02-W04 S22-S15
     16  894  653 (S21E07 L=357)   656    164        3 ( 841/ 591- 947/ 701) -49.4 E10-E03 S25-S18
     17  437  558 (S30E44 L=321)  1443    243        1 ( 385/ 505- 528/ 646) -28.6 E47-E35 S34-S24
     18 1205  486 (S32W15 L= 20)  3632    657        8 ( 962/ 367-1475/ 638)  27.9 E01-W33 S41-S20
     19  794  574 (S27E14 L=350)   761    133        2 ( 742/ 514- 861/ 614)  24.0 E18-E09 S31-S23
     20 1530  495 (S30W41 L= 46)  1394    266        4 (1415/ 433-1636/ 554)  26.6 W32-W49 S34-S25
  

    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