Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  486 1691 (N49E58 L=176)  1000     95        2 ( 455/1645- 511/1728) -19.3 E70-E50 N44-N51
      2  808 1653 (N46E18 L=216)   291     47        1 ( 783/1633- 834/1670) -31.0 E20-E15 N44-N47
      3  904 1538 (N37E09 L=226)   412     82        2 ( 868/1510- 948/1565) -18.4 E11-E05 N35-N39
      4 1047 1439 (N30W02 L=236)   352    120        0 (1000/1416-1101/1457) -18.4 E01-W05 N28-N31
      5  447 1138 (N11E39 L=196)   260     25        0 ( 427/1116- 471/1157)  14.0 E40-E36 N09-N11
      6 1789 1120 (N07W56 L=290)   624    109        1 (1747/1094-1828/1147)   0.0 W51-W60 N05-N08
      7  180 1089 (N07E65 L=169)   683     66        2 ( 142/1067- 209/1113) -11.3 E71-E61 N05-N08
      8 1834  987 (S01W60 L=294)   595     85        2 (1797/ 967-1863/1017)  -7.1 W55-W63 S02-N00
      9  292  871 (S06E52 L=182)  1541    270        3 ( 235/ 783- 386/ 974) -39.8 E57-E44 S11-N00
     10  718  744 (S14E20 L=214)   487    180        1 ( 631/ 703- 761/ 806)  33.7 E26-E16 S16-S09
     11  236  660 (S20E65 L=169)  5373    313        6 ( 137/ 545- 316/ 766) -41.2 E80-E55 S28-S14
     12  308  722 (S16E53 L=181)   339     81        1 ( 277/ 698- 339/ 752) -45.0 E56-E50 S17-S13
     13  385  641 (S21E48 L=187)  1082    239        0 ( 349/ 553- 452/ 730)  40.9 E55-E39 S27-S14
     14 1055  635 (S21W01 L=236)   714    272        1 ( 943/ 557-1099/ 704)  48.0 E06-W04 S26-S16
     15  848  589 (S24E12 L=222)   814    204        0 ( 793/ 513- 922/ 663)  45.0 E17-E07 S29-S18
     16 1823  595 (S27W72 L=306)  1133     98        2 (1791/ 566-1844/ 646)  68.2 W65-W80 S29-S23
     17 1276  409 (S38W19 L=253)   338     83        0 (1235/ 396-1323/ 424)  -8.1 W15-W22 S38-S36
     18  716  358 (S42E27 L=207)  1784    245        3 ( 627/ 317- 821/ 410)  14.0 E37-E17 S45-S37
     19  689  211 (S57E44 L=191)   783     66        0 ( 667/ 192- 723/ 240) -78.7 E50-E39 S59-S53
     20 1162  179 (S62W16 L=250)   533     54        0 (1145/ 156-1179/ 209)  90.0 W12-W18 S64-S57
  

    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