Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1215 1472 (N24W13 L=357)   448    203        1 (1164/1408-1266/1538)  63.4 W09-W16 N20-N29
      2 1359 1454 (N23W23 L=  7)   322     95        3 (1321/1428-1402/1483)  -9.5 W19-W25 N21-N25
      3  508 1340 (N17E34 L=311)   233     54        1 ( 494/1307- 521/1370)  90.0 E35-E32 N14-N18
      4 1026 1187 (N07W00 L=345)   938    277        3 ( 966/1087-1080/1316)  85.9 E03-W03 N00-N14
      5  727  874 (S12E18 L=326)   321     94        0 ( 694/ 830- 756/ 912) -59.0 E20-E16 S14-S09
      6  805  698 (S23E15 L=330)   607    253        0 ( 766/ 606- 831/ 783)  70.0 E18-E12 S28-S17
      7  222  715 (S20E63 L=281)   621     79        0 ( 199/ 683- 243/ 755) -76.0 E66-E60 S21-S17
      8 1699  655 (S25W50 L= 35)   368     68        2 (1663/ 640-1737/ 670)   8.1 W47-W54 S26-S24
      9  631  495 (S36E31 L=314)  1263    270        1 ( 517/ 446- 755/ 530)  12.3 E43-E20 S38-S33
     10  818  430 (S41E17 L=327)   232     59        0 ( 782/ 420- 855/ 444)   8.1 E20-E13 S41-S40
     11 1510  340 (S48W48 L= 33)  1602    176        2 (1447/ 293-1574/ 405) -15.4 W36-W65 S51-S43
     12 1376  342 (S48W33 L= 17)   755     72        2 (1347/ 308-1411/ 389) -41.2 W28-W37 S51-S44
     13  833  246 (S57E22 L=322)   631     84        0 ( 787/ 227- 880/ 264)  -5.7 E26-E16 S58-S54
     14  747  206 (S61E38 L=307)   574     60        2 ( 716/ 184- 783/ 226) -15.9 E42-E31 S63-S58
  

    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