Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  568 1581 (N13E45 L= 57)   277     65        1 ( 545/1558- 582/1611) -76.0 E46-E43 N11-N15
      2  317 1570 (N08E68 L= 34)  1226    160        3 ( 283/1531- 353/1602)  45.0 E73-E64 N05-N10
      3  915 1515 (N18E20 L= 82)   704    196        1 ( 890/1426- 939/1602) -61.4 E23-E16 N12-N23
      4 1290 1512 (N29W01 L=104)   604    114        2 (1260/1451-1317/1562) -45.0 E01-W04 N25-N31
      5 1104 1372 (N15E05 L= 97)   617    174        0 (1075/1298-1121/1466) -56.3 E09-E03 N10-N19
      6  518 1364 (S00E40 L= 63)   344     92        1 ( 487/1331- 557/1399) -15.9 E42-E35 S01-N01
      7  892 1102 (S06E09 L= 93)   567    122        0 ( 853/1044- 916/1174) -76.0 E11-E07 S09-S01
      8  308  916 (S31E45 L= 57)  3190    633        7 ( 153/ 761- 433/1101)  50.0 E60-E36 S42-S17
      9 1669  981 (N10W40 L=142)   281     81        0 (1637/ 959-1690/1017)  90.0 W37-W40 N08-N12
     10 1864  939 (N15W58 L=161)   495     61        1 (1842/ 910-1880/ 971) -76.0 W55-W60 N13-N17
     11 1687  833 (N03W46 L=148)  1237    300        3 (1553/ 789-1808/ 883)  24.2 W34-W54 S01-N09
     12  634  771 (S31E17 L= 85)   837    257        0 ( 563/ 676- 710/ 870)  68.2 E20-E13 S38-S23
     13  970  789 (S21W04 L=106)   682    183        0 ( 877/ 731-1052/ 843)  61.4 W00-W06 S26-S15
     14 1187  712 (S19W18 L=121)   514    114        0 (1126/ 673-1251/ 743)  54.5 W16-W21 S22-S15
     15 1685  708 (S04W51 L=153)   386     69        1 (1654/ 674-1715/ 732)  59.0 W48-W52 S06-S01
     16 1560  559 (S15W48 L=150)   417     74        1 (1522/ 534-1597/ 587)  45.0 W45-W49 S16-S12
     17 1724  492 (S13W67 L=169)   527    146        4 (1703/ 467-1751/ 523) -14.0 W62-W71 S14-S10
     18 1292  441 (S30W37 L=139)  1158    255        4 (1191/ 402-1404/ 477)  39.3 W31-W43 S34-S25
     19 1541  411 (S23W55 L=158)   452     94        1 (1504/ 386-1577/ 443)  78.7 W52-W57 S25-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