Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1412 1712 (N45W48 L=226)  1241    224        1 (1330/1661-1506/1764)   2.0 W37-W66 N42-N46
      2 1184 1460 (N31W16 L=194)   814    175        2 (1106/1416-1257/1505) -33.7 W11-W20 N27-N34
      3 1750 1434 (N20W62 L=240)   467     58        1 (1715/1416-1780/1449) -15.9 W58-W65 N19-N21
      4  355 1355 (N31E49 L=129)  1970    362        5 ( 209/1319- 514/1394)   3.4 E68-E34 N28-N33
      5 1776 1311 (N13W59 L=237)   664    146        1 (1713/1270-1839/1344) -28.6 W53-W65 N09-N15
      6  210 1198 (N21E62 L=116)  1508    184        1 ( 176/1122- 242/1287) -37.6 E70-E56 N16-N26
      7  111 1040 (N11E77 L=101)   885     86        2 (  93/1001- 130/1071)  68.2 E82-E72 N08-N13
      8  555  954 (N05E30 L=148)   363     92        1 ( 526/ 908- 581/1008) -71.6 E32-E28 N02-N08
      9 1006  943 (N01E02 L=176)   224     99        0 ( 993/ 898-1028/ 994)  63.4 E02-W00 S01-N03
     10 1685  838 (S14W43 L=221)   457    111        0 (1645/ 793-1713/ 892)  45.0 W39-W45 S16-S10
     11 1283  863 (S07W14 L=192)   238     79        1 (1246/ 832-1308/ 883)   0.0 W11-W15 S08-S05
     12  540  702 (S10E35 L=143)   281     74        0 ( 516/ 669- 562/ 740) -78.7 E35-E33 S12-S07
     13  393  665 (S12E48 L=131)   307     53        1 ( 373/ 645- 418/ 689) -33.7 E49-E45 S13-S10
     14  426  585 (S17E47 L=131)   870    101        2 ( 385/ 538- 476/ 623) -23.2 E50-E42 S20-S14
     15  912  549 (S23E12 L=166)   570    134        1 ( 866/ 499- 957/ 607)  49.4 E15-E08 S26-S19
     16 1107  424 (S34E01 L=177)  2967    538        8 ( 931/ 344-1245/ 594)  20.0 E13-W09 S39-S23
     17  509  437 (S28E47 L=131)   621     78        0 ( 476/ 409- 552/ 472) -31.0 E48-E43 S30-S25
     18 1543  329 (S51W42 L=220)   932     95        1 (1499/ 311-1598/ 348)  -3.8 W35-W51 S52-S47
     19 1292  246 (S54W14 L=192)  2079    271        3 (1182/ 207-1413/ 306)   7.1 W02-W27 S57-S49
  

    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