Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1070 1764 (N53E10 L=196)   389     92        1 (1035/1736-1106/1783)  50.2 E12-E06 N49-N55
      2  371 1583 (N27E60 L=146)   844    145        1 ( 342/1543- 407/1633)  80.5 E62-E56 N24-N30
      3 1662 1559 (N45W48 L=254)   638    142        1 (1626/1540-1688/1583)  24.0 W43-W52 N43-N47
      4 1531 1413 (N32W31 L=238)   761    183        1 (1449/1373-1608/1450)  -4.4 W24-W37 N29-N33
      5  574 1342 (N14E34 L=173)   367     93        1 ( 560/1295- 594/1390) -71.6 E35-E32 N11-N17
      6 1891 1097 (N15W66 L=272)  2614    281        5 (1867/1013-1926/1205) -67.4 W62-W73 N10-N22
      7 1824 1120 (N16W57 L=264)   487    124        2 (1797/1088-1847/1148)  45.0 W54-W60 N13-N17
      8 1850  902 (N03W63 L=270)  2569    341        6 (1806/ 781-1897/1027) -57.3 W56-W68 S04-N10
      9  191  893 (S18E61 L=145)  1508    249        4 ( 138/ 838- 230/ 992) -39.3 E69-E56 S21-S12
     10  237  926 (S15E56 L=151)   556    126        2 ( 206/ 883- 276/ 966) -51.3 E59-E51 S17-S12
     11 1022  861 (S09W02 L=208)   194     62        0 (1008/ 825-1036/ 897)  90.0 W01-W02 S11-S06
     12  357  783 (S23E44 L=162)   804    198        3 ( 308/ 722- 414/ 819)  16.7 E48-E38 S26-S19
     13 1612  666 (S14W45 L=252)  2375    460        7 (1486/ 511-1738/ 780)  62.2 W39-W55 S25-S06
     14  908  721 (S19E04 L=203)   594    222        0 ( 818/ 694-1028/ 753)   4.8 E09-W03 S21-S16
     15 1469  732 (S12W33 L=239)   304     91        0 (1431/ 718-1514/ 746)  11.3 W30-W36 S12-S10
     16 1674  631 (S16W52 L=258)   900    174        2 (1623/ 604-1732/ 663)  18.4 W47-W58 S17-S13
     17 1296  634 (S20W23 L=229)   250     39        0 (1269/ 616-1322/ 655)  33.7 W21-W24 S21-S18
     18  634  534 (S36E22 L=184)   482    152        1 ( 581/ 504- 679/ 588)  32.0 E26-E18 S38-S31
     19 1609  539 (S22W50 L=256)   323     86        1 (1588/ 509-1625/ 568)  90.0 W47-W51 S24-S20
  

    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