Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  923 1741 (N40E17 L=111)   418     63        2 ( 891/1722- 966/1769)  21.8 E19-E13 N38-N42
      2  672 1678 (N33E34 L= 94)   360     55        2 ( 645/1656- 705/1706)  11.3 E35-E30 N31-N35
      3 1155 1543 (N28W03 L=131)  1095    384        1 (1056/1478-1328/1639) -24.0 E04-W14 N25-N33
      4 1609 1261 (N15W35 L=163)   464     81        3 (1582/1223-1632/1299)  59.0 W33-W37 N12-N17
      5 1721 1223 (N15W44 L=172)   332    104        1 (1699/1176-1751/1273) -71.6 W42-W46 N11-N17
      6 1542 1127 (N06W31 L=159)  1311    391        1 (1401/ 977-1612/1267) -40.9 W20-W36 S01-N13
      7 1939 1168 (N16W70 L=198)   685     46        3 (1923/1142-1961/1194)  33.7 W67-W75 N13-N17
      8 1015 1071 (S03E01 L=127)   461    172        0 ( 937/1015-1078/1097) -20.6 E05-W03 S05-S01
      9  164  895 (S18E64 L= 64)  4482    378        7 ( 102/ 760- 211/1083)  55.6 E82-E57 S26-S07
     10  102 1004 (S12E73 L= 55)   932     70        3 (  66/ 981- 131/1031)  -8.1 E82-E67 S13-S09
     11  353  894 (S18E44 L= 84)  1065    306        2 ( 287/ 825- 416/ 966) -48.8 E49-E38 S22-S13
     12 1370  761 (S17W24 L=153)  1913    758        6 (1206/ 645-1614/ 930)  -3.8 W12-W42 S24-S07
     13 1795  867 (S05W54 L=182)   777     87        2 (1757/ 826-1836/ 903) -12.5 W50-W59 S07-S03
     14 1739  713 (S15W53 L=182)  1357    224        4 (1644/ 663-1816/ 769)  21.8 W46-W61 S18-S11
     15 1644  728 (S15W45 L=173)   288     32        0 (1624/ 702-1664/ 757)  90.0 W43-W45 S16-S13
     16 1216  692 (S23W16 L=144)   187     51        1 (1201/ 657-1237/ 722)  90.0 W14-W16 S25-S21
     17  967  645 (S29W00 L=128)   283     80        1 ( 944/ 605- 994/ 688)  90.0 W00-W01 S31-S25
     18  323  551 (S40E56 L= 72)  1874    179        2 ( 241/ 502- 399/ 590)   9.5 E75-E45 S43-S37
     19 1638  395 (S35W63 L=191)  1472    107        3 (1598/ 358-1685/ 432)   0.0 W56-W71 S37-S32
  

    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