Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  655 1529 (N34E22 L= 10)  4818    705       12 ( 392/1320- 900/1678) -30.7 E59-E05 N17-N49
      2 1683 1520 (N24W55 L= 87)   414     31        2 (1662/1496-1704/1544)  56.3 W52-W57 N22-N25
      3 1206 1455 (N23W16 L= 48)   468    181        1 (1143/1401-1289/1509) -45.0 W12-W20 N19-N27
      4  352 1459 (N32E48 L=344)   397     58        0 ( 326/1433- 384/1483)  45.0 E51-E45 N30-N33
      5  427 1437 (N29E40 L=352)   319     94        0 ( 388/1407- 456/1460) -15.9 E43-E36 N27-N31
      6  400 1307 (N21E41 L=352)   724    191        2 ( 374/1256- 449/1398) -63.4 E43-E36 N17-N27
      7  247 1268 (N20E55 L=337)  1093    150        4 ( 219/1201- 280/1333)  66.8 E58-E51 N16-N24
      8  186 1207 (N17E62 L=331)   816    136        4 ( 153/1138- 211/1259) -82.9 E66-E59 N12-N20
      9  479 1153 (N11E34 L=359)   531    245        3 ( 417/1079- 569/1226)  24.4 E38-E27 N06-N15
     10  308 1203 (N15E48 L=344)   329     41        1 ( 285/1177- 334/1224) -45.0 E50-E45 N13-N16
     11  337 1115 (N10E45 L=347)   705    139        2 ( 291/1092- 410/1150) -16.7 E49-E39 N07-N12
     12  141 1077 (N10E67 L=326)  2322    184        8 (  93/ 985- 209/1131) -39.3 E77-E57 N04-N13
     13  790  762 (S15E17 L= 16)   806    318        2 ( 695/ 653- 879/ 872)  42.7 E24-E10 S21-S09
     14  510  724 (S15E36 L=356)  1435    298        1 ( 481/ 582- 545/ 837)  69.4 E39-E31 S24-S08
     15 1474  732 (S23W27 L= 60)  1058    288        3 (1380/ 680-1584/ 832) -32.0 W20-W36 S26-S15
     16 1656  789 (S20W41 L= 74)   510     84        0 (1615/ 769-1709/ 805)   7.1 W38-W46 S21-S19
     17 1682  477 (S42W54 L= 87)   534     57        0 (1652/ 453-1715/ 503) -18.4 W49-W61 S43-S39
     18  360  454 (S31E63 L=330)   550     56        0 ( 345/ 415- 376/ 481)  29.1 E67-E58 S33-S28
     19  621  435 (S35E37 L=355)   273     29        0 ( 604/ 411- 640/ 456)  36.9 E39-E35 S36-S33
  

    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