Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  613 1528 (N33E34 L=331)   486     96        0 ( 594/1475- 632/1577) -54.5 E37-E30 N29-N36
      2 1602 1477 (N33W45 L= 50)   805    149        2 (1529/1440-1652/1517) -21.8 W38-W48 N30-N36
      3  887 1479 (N31E12 L=354)   589    220        0 ( 799/1419- 968/1512) -17.1 E18-E05 N27-N33
      4 1338 1431 (N29W21 L= 26)   391    207        0 (1238/1385-1406/1462) -18.4 W13-W25 N26-N31
      5  875 1392 (N25E12 L=354)   270    153        0 ( 819/1331- 918/1429) -35.5 E15-E08 N21-N27
      6 1272 1407 (N28W16 L= 21)   241    120        0 (1215/1375-1318/1426) -15.9 W11-W18 N25-N28
      7  470 1304 (N17E40 L=326)   298     82        0 ( 443/1272- 509/1337) -23.2 E42-E35 N15-N19
      8  149 1262 (N12E76 L=289)  1108     89        2 ( 126/1219- 162/1306) -59.0 E83-E71 N09-N14
      9 1125 1198 (N14W06 L= 11)   318     92        2 (1090/1179-1173/1227) -11.3 W03-W08 N12-N15
     10 1801 1041 (N05W56 L= 62)   432    104        0 (1762/1003-1840/1068)  20.6 W52-W60 N03-N07
     11  473  866 (S10E36 L=330)  1043    305        2 ( 424/ 729- 517/ 964)  75.1 E40-E32 S18-S03
     12 1699  906 (S03W47 L= 52)   846    127        1 (1652/ 866-1751/ 948) -24.0 W42-W51 S05-N00
     13 1075  799 (S11W04 L= 10)   272     92        1 (1037/ 764-1113/ 830) -31.0 W01-W06 S13-S09
     14 1822  770 (S12W62 L= 68)   448     58        2 (1805/ 741-1839/ 801) -53.1 W59-W64 S13-S09
     15  992  691 (S18E01 L=  5)   658    115        3 ( 947/ 641-1038/ 736) -45.0 E03-W02 S21-S15
     16  878  654 (S21E08 L=357)   697    152        4 ( 820/ 594- 931/ 701) -40.6 E11-E04 S24-S18
     17  429  563 (S30E44 L=321)  1634    275        1 ( 375/ 506- 543/ 656) -30.3 E48-E34 S34-S23
     18 1189  498 (S31W14 L= 20)  3635    601       12 ( 972/ 381-1423/ 648)  28.1 E01-W29 S40-S19
     19  771  579 (S27E16 L=350)   776    190        1 ( 703/ 530- 848/ 627)  32.5 E21-E10 S30-S23
     20 1514  495 (S30W40 L= 46)  1431    271        5 (1394/ 431-1619/ 554)  26.6 W30-W48 S35-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