Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1101 1870 (N66E15 L=  7)   497     59        0 (1076/1850-1123/1887)  59.0 E18-E10 N62-N68
      2 1634 1597 (N48W50 L= 71)  2043    173        5 (1555/1562-1714/1625)   8.9 W38-W71 N44-N51
      3 1283 1474 (N33W12 L= 33)  1094    303        2 (1224/1351-1377/1566) -57.3 W07-W19 N25-N39
      4  395 1470 (N20E54 L=327)   479     60        1 ( 361/1452- 430/1488)  -7.1 E58-E49 N18-N20
      5 1167 1318 (N20W05 L= 27)   403    152        0 (1122/1286-1220/1382) -35.5 W01-W08 N18-N24
      6 1316 1041 (N05W18 L= 39)   289    140        0 (1292/ 980-1337/1104)  90.0 W16-W18 N01-N09
      7  228  974 (S13E58 L=323)   361     77        0 ( 213/ 935- 250/1009)  51.3 E59-E55 S15-S10
      8 1810  828 (S02W60 L= 82)   592    133        0 (1795/ 771-1822/ 893) -74.1 W58-W62 S05-N02
      9  324  766 (S25E48 L=333)  1145    156        4 ( 292/ 698- 350/ 851)  78.7 E52-E45 S29-S19
     10 1021  733 (S17W04 L= 25)   262     80        1 ( 991/ 702-1063/ 759)  53.1 W01-W05 S19-S15
     11  904  582 (S29E02 L= 19)   786    208        2 ( 820/ 555- 983/ 620)  24.0 E07-W03 S31-S25
     12  416  566 (S38E43 L=338)   747     95        2 ( 387/ 522- 459/ 596) -68.2 E46-E37 S40-S35
     13 1393  498 (S28W35 L= 56)  3077    754        5 (1070/ 431-1701/ 572)  18.4 W12-W60 S36-S19
  

    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