Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  909 1739 (N49E22 L=293)   469     87        0 ( 864/1717- 947/1760)  33.7 E25-E19 N46-N51
      2 1642 1316 (N26W42 L=357)  2748    461        7 (1531/1149-1739/1450)  42.4 W31-W56 N14-N35
      3  220 1379 (N14E71 L=244)   664     64        1 ( 202/1354- 239/1406) -23.2 E75-E67 N12-N15
      4 1153 1361 (N24W05 L=320)   240     97        0 (1101/1343-1197/1382)  -9.5 W01-W07 N22-N24
      5  441 1287 (N11E43 L=273)   279     81        1 ( 417/1252- 466/1316) -45.0 E45-E40 N08-N12
      6  465 1093 (S01E37 L=278)   758    136        4 ( 396/1071- 544/1113)   5.2 E42-E31 S02-N01
      7  477  928 (S11E35 L=280)   313    112        1 ( 451/ 889- 515/ 953)  59.0 E36-E31 S13-S08
      8  280  878 (S16E52 L=263)   323     65        0 ( 251/ 860- 315/ 896)  23.2 E55-E48 S17-S14
      9  491  823 (S17E34 L=282)   235    111        1 ( 442/ 806- 535/ 851)  -8.1 E37-E30 S17-S15
     10 1182  730 (S15W13 L=328)   531    213        2 (1153/ 652-1223/ 819) -63.4 W10-W17 S19-S09
     11  530  693 (S25E31 L=284)   417    102        1 ( 506/ 630- 546/ 732)  81.9 E32-E29 S29-S22
     12 1705  643 (S16W55 L= 10)   485     60        1 (1674/ 618-1725/ 671)  26.6 W52-W58 S17-S13
     13  398  617 (S32E44 L=271)   599    140        0 ( 338/ 595- 459/ 656)  -5.2 E50-E38 S33-S30
     14 1212  403 (S37W23 L=338)   494     86        1 (1169/ 379-1249/ 429)   9.5 W19-W25 S39-S35
     15 1159  229 (S54W29 L=344)  1401    156        0 (1108/ 176-1203/ 303) -74.1 W26-W33 S60-S46
  

    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